Rosetta Code

Langton's ant: Difference between revisions

Page Discussion

Langton's ant (view source)

Revision as of 08:38, 3 January 2013

37 bytes removed ,  11 years ago
m
→‎{{header|Mathematica}}
Line 1,665:
[[File:LangtonsAnt.png|right|thumb|Output]]
 
<lang mathematica>positiondirection = {50, 50}1;
data = SparseArray[{position{50, 50} -> -1}, {100, 100}, 1];▼
direction = 1;
NestWhile[
▲data = SparseArray[{position -> -1}, {100, 100}, 1];
{Re@#, Im@#} &@(direction *= (data[[Sequence @@ position#]] *= -1) I)]; + # &,▼
While[ {50, 50}, 1 <= Min@position# <= Max@position# <= 100, &];
position += {Re@#,
Image[@data]</lang>▼
▲ Im@#} &@(direction *= (data[[Sequence @@ position]] *= -1) I)];
▲Image[data]</lang>
 
=={{header|OCaml}}==
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/204477"