Langton's ant: Difference between revisions

<lang mathematica>Timing[position = {50, 50}; direction = 1;

data While[1 <= SparseArray[{Min@position -><= -1},Max@position {100,<= 100}, 1];

While[1 <= Min@position <+= Max{Re@position#, <= 100,

Im@#} &@(direction *= (data[[Sequence @@ position]] *= -1) I)];