Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Goofy leaping ninja stickmen

by jonadab (Parson)
on Oct 07, 2003 at 15:45 UTC ( [id://297319] : obfuscated . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    sub r{int rand pop}$|++;@g=map{[map{' '}0..$=]}0..25;my$j=pop||2+r(3);
    {$$_{n}->($h++)}}}}}1..$j;while(1){++$iter;if(@f==1){exit 0}for$m(@f){
    ;$$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
    split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/