8 lines
260 B
Haskell
8 lines
260 B
Haskell
import Graphics.Gloss
|
|
|
|
main = display w white (draw (task initial))
|
|
where
|
|
w = InWindow "Langton's Ant" (400,400) (0,0)
|
|
initial = State (0,0) (1,0) mempty
|
|
draw = foldMap drawCell
|
|
drawCell (x,y) = Translate (10*x) (10*y) $ rectangleSolid 10 10
|