fuxino/AdventOfCode2024
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix types

Browse Source
This commit is contained in:
daniele
2024-12-12 21:08:57 +01:00
parent 6717ed711e
commit 02fb6b2caf
2 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Day12/puzzle1.hs
View File

@ -5,7 +5,7 @@ import Data.Foldable (toList)
type Coords = (Int, Int)
type V = (String, Int)
getValue :: [[V]] -> (Int, Int) -> V
getValue :: [[V]] -> Coords -> V
getValue grid (i, j) = grid !! i !! j
getEdges :: [[V]] -> Coords -> [Int]
@ -17,7 +17,7 @@ listVertices :: [String] -> [[V]]
listVertices grid = let l = length $ head grid
in chunksOf l $ zip (map (:[]) (concat grid)) [0..]
calculatePerimeter :: (Int -> (String, Int, [Int])) -> Tree Vertex -> Int
calculatePerimeter :: (Vertex -> (String, Vertex, [Vertex])) -> Tree Vertex -> Int
calculatePerimeter nodeFromVertex p = let edges = concat [ x | (_, _, x) <- toList $ fmap nodeFromVertex p ]
area = 4 * length p
in area - length edges