Help for this page
#!/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.
$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}} split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
www.com | www.net | www.org
No recent polls found