Anonymous user
Langton's ant: Difference between revisions
m
→{{header|Mathematica}}
Line 1,665:
[[File:LangtonsAnt.png|right|thumb|Output]]
<lang mathematica>position = {50, 50}
direction = 1;
data = SparseArray[{position -> -1}, {100, 100}, 1];
While[1 <= Min@position <= Max@position <= 100,
Im@#} &@(direction *= (data[[Sequence @@ position]] *= -1) I)];
Image[data]</lang>
|