Langton's ant: Difference between revisions
m
→{{header|Sidef}}: modified code to work with Sidef 2.10
m (removed "started") |
m (→{{header|Sidef}}: modified code to work with Sidef 2.10) |
||
Line 5,302:
=={{header|Sidef}}==
{{trans|Perl 6}}
<lang ruby>
enum |White, Black|;
var plane = size.of { size.of (White) };
var
var dir = dirs.len.rand.int;
Line 5,317 ⟶ 5,315:
(x >= 0) && (y >= 0) && (x < size) && (y < size) || break;
given(plane[x][y]) {
when (White) { dir--; plane[x][y] = Black }
when (Black) { dir++; plane[x][y] = White }
}
[\x, \y]:dirs[dir %= dirs.len] -> each {|a,b| *a += b };
}
| |||