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
Signed by: fuxino
GPG Key ID: 981A2B2A3BBF5514
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Day10/puzzle1.hs
View File

@ -1,4 +1,3 @@
import Data.List (sort)
import Data.Char (digitToInt)
import Data.List.Split (chunksOf)
import Data.Graph (graphFromEdges, path, vertices)
@ -6,7 +5,7 @@ import Data.Graph (graphFromEdges, path, vertices)
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]
@ -21,7 +20,7 @@ listVertices grid = let l = length $ head grid
main = do
contents <- lines <$> readFile "day10.txt"
let grid = listVertices contents
edgeCoords = sort [ (x, y) | x <- [0..length grid -1], y <- [0..length (head grid) - 1] ]
edgeCoords = [ (x, y) | x <- [0..length grid -1], y <- [0..length (head grid) - 1] ]
edgeList = [ (x, y, z) | ((x, y), z) <- zip (concat grid) (map (getEdges grid) edgeCoords) ]
(graph, nodeFromVertex, _) = graphFromEdges edgeList
startList = [ x | (_, x, _) <- filter (\(x, _, _) -> x == "0") $ map nodeFromVertex $ vertices graph ]

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