Help for this page

Select Code to Download


  1. or download this
    $j=1;print$"x--$h,$_-1?map(rand>$f?"=":qw(
0 @ * +)[rand 4],1..($j+=2)):"*",$/for 1..$h
  2. or download this
    print$"x--$h,$_-1?map(rand>
$f?"=":qw(0 @ * +)[rand 4],
1..($j+=2)):"*",$/for++$j..$h
  3. or download this
    print$"x--$h,$_-1?map rand>
$f?"=":qw(0 @ * +)[rand 4],
2..$_*2:"*",$/for 1..$h