Langton's ant: Difference between revisions

m
→‎{{header|Sidef}}: minor code simplifications
(Added PowerShell)
m (→‎{{header|Sidef}}: minor code simplifications)
Line 5,728:
=={{header|Sidef}}==
{{trans|Perl 6}}
<lang ruby>define dirs = [[1,0], [0,-1], [-1,0], [0,1]];
define size = 100;
 
enum |White, Black|;
var plane = size.of { size.of (White) };
 
var (x, y) = @|([size/2 -> int]*2);
var dir = dirs.len.rand.int;irand
 
var moves = 0;
loop {
(x >= 0) && (y >= 0) && (x < size) && (y < size) || break;
 
given(plane[x][y]) {
Line 5,746:
}
 
++moves;
[\x, \y]:dirs[dir %= dirs.len] -> each {|a,b| *a += b };
}
 
say "Out of bounds after #{moves} moves at (#{x}, #{y})";
plane.map{.map {|square| square == Black ? '#' : '.' }}.each{.join.say};</lang>
 
=={{header|Swift}}==
2,747

edits