Help for this page

Select Code to Download


  1. or download this
    c:\@Work\Perl\monks>perl -wMstrict -le
    "use List::Util qw(shuffle);
    ...
    pick  3:  11 15 18 21 22 29
    pick  4:  05 07 09 12 20 48
    pick  5:  01 13 16 24 44 45