Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    sub r{int rand pop} # Random integer generator, used quite a bit...
    ...
      }
      sleep 1 # I like [diotalevi]'s [select] much better, as the 1-second
    + delay is really too long.
    }#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$/