toastyandwarm/advent-of-code-2024
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

remove dead code

Browse source
This commit is contained in:
toastyandwarm 2024-12-08 10:51:15 +00:00
parent f71a67eac8
commit 36801efdd1
1 changed files with 0 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
8/solution.hs
View file

@ -16,9 +16,6 @@ splitInput text = concat $ map (\(x, zs) -> map (\(y, z) -> ((x, y), z)) zs) $ m
indexed :: [a] -> [(Int, a)] indexed :: [a] -> [(Int, a)]
indexed xs = zip [0..((length xs)-1)] xs indexed xs = zip [0..((length xs)-1)] xs
addCoords :: Num a => (a, a) -> (a, a) -> (a, a)
addCoords (a, b) (c, d) = (a+c, b+d)
checkBounds :: (Num a, Ord a) => (a, a) -> (a, a) -> Bool checkBounds :: (Num a, Ord a) => (a, a) -> (a, a) -> Bool
checkBounds (c, d) (a, b) = (0 <= a) && (0 <= b) && (a < c) && (b < d) checkBounds (c, d) (a, b) = (0 <= a) && (0 <= b) && (a < c) && (b < d)