6 lines
162 B
Haskell
6 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)
|