Help for this page
my($a,$c,$g,@b)=(40,10);$\=$/;for my$r(0..$a){$b ... $a){print map{$b[$r][$_]} (0..$a)}select $&,$&, $&,.4}while(&g)
$a=40;$\=$/;@a=0..$a;for$r(@a){$b[$r][$_] ... $d}{print"\ec",++$g,$\,map{@{$b[$_]},$\} @a;select$&,$&,$&,.1;redo if&g}
@a=0..40;for$r(@a){$b[$r][$_]=!int rand ... $_]=$h==3|$h==2&$b[$r][$_]ne$"?0:$"}}@b= @e;redo}
@a=0..40;$b[$_]=[map{rand 9<1?0:$"}@a] ... $j>40)&($i^$r||$j^$_)}}$b[$r][$_]=$h==3| $h==2&$e[$r][$_]ne$"?0:$"}}redo}
my ($a, $c, $g, @b) = (40, 10); ... } while (&g)
my ($board_size, $random_seed, $generation, @board) = (40, 10); ... } while (&generate)
www.com | www.net | www.org
No recent polls found