Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    sub r{int rand pop}$|++;@g=map{[map{' '}0..$=]}0..25;my$j=pop||2+r(3);
    +@f=map{my$
    ...
    {$$_{n}->($h++)}}}}}1..$j;while(1){++$iter;if(@f==1){exit 0}for$m(@f){
    +$$m{i}->()
    ;$$m{d}->()}print$/x$=;for $a(1..25){print$/,"|",@{$g[$a]},"|";@{$g[$a
    +]}=map{' '
    }0..$=;}sleep 1}#Optional command-line argument selects how many ninja
    + stickmen.
    
  2. or download this
    $;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
    split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/