-Lexicon##Perl Quilt #14x12 Patch # Randomizer use strict; my(@s,@q,$x) ;@s=(1..168) ;for(1..168) {$x=int rand @s; push(@q, splice@s,$x, 1);} print " ".join "\t", splice @q,0, 12for(1..14)
In reply to Re: a perl quilt
by Lexicon
in thread a perl quilt
by ailie
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |