Langton's ant: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 1,665:
[[File:LangtonsAnt.png|right|thumb|Output]]
<lang mathematica>Timing[position = {50, 50}; direction = 1;
data = SparseArray[{position -> -1}, {100, 100}, 1];
Im@#} &@(direction *= (data[[Sequence @@ position]] *= -1) I)];
Image[data]]</lang>▼
▲Image[data]</lang>
=={{header|OCaml}}==
|