This commit is contained in:
shu 2020-12-17 13:56:05 +01:00
parent d128bdbf62
commit 7c785d75af

View File

@ -11,6 +11,7 @@ main = do
input <- lines <$> readFile "input"
let a = toVec input
_ = a :: [V4 Int]
-- _ = a :: [V3 Int]
print $ day17 a
day17 = length . flip (!!) 6 . iterate step