Gattix/AoC
3
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

day2

Browse Source
This commit is contained in:
Gattix 2021-12-05 21:00:32 +01:00
parent bf2354d2ee
commit ef0c56b784
2 changed files with 1013 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
2021/day02/day02.hs Normal file
View File

@ -0,0 +1,13 @@
import Control.Arrow
main :: IO ()
main = do
input <- map (head . words &&& read . flip (:) [] . last) <$> lines <$> readFile "input"
print $ (\(x,y,z,d2) -> (x*y,x*d2)) $ day2 input (0,0,0,0)
day2 :: [(String,Int)] -> (Int,Int,Int,Int) -> (Int,Int,Int,Int)
day2 ((d,l):xs) (x,y,z,d2)
| d=="forward" = day2 xs (x+l,y,z,d2+l*z)
| d=="up" = day2 xs (x,y-l,z-l,d2)
| d=="down" = day2 xs (x,y+l,z+l,d2)
day2 [] x = x

1000
2021/day02/input Normal file
View File

File diff suppressed because it is too large Load Diff