Browse Source

blah

master
shu 12 months ago
parent
commit
7c785d75af
  1. 1
      2020/day17/day17.hs

1
2020/day17/day17.hs

@ -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

Loading…
Cancel
Save