5 lines
162 B
Haskell
5 lines
162 B
Haskell
task :: State -> State
|
|
task = iterate step
|
|
>>> dropWhile ((< 50) . distance . antPosition)
|
|
>>> getCells . head
|
|
where distance (x,y) = max (abs x) (abs y)
|