Anonymous user
Langton's ant: Difference between revisions
→{{header|Aime}}
Line 146:
=={{header|Aime}}==
[[File:ant_phpoFTAAk.png|100px|Output png]]
<lang aime>
{
while (-1 < x && x < 100 && -1 < y && y < 100) {▼
b = map[y];
w = b[x >> 3];
p = 1 << (7 - (x & 7));
b[x >> 3] = w ^ p;
▲ant(integer x, integer y, integer d, list map)
▲ while (-1 < x && x < 100 && -1 < y && y < 100) {
▲ d &= 3;
▲ y += (d & 2) - 1;
}
}
Line 178 ⟶ 168:
main(void)
{
file f;
list l;
call_n(100, lb_p_data, l, data().run(13, 0));
▲ i -= 1;
ant(50, 50, 2, l);
f.create("ant.pbm", 00644).text("P4\n100 100\n");
l.ucall(f_data, 1, f);
| |||