Help for this page

Select Code to Download


  1. or download this
      aeinprst: 346
  aeilprst: 344
  adeiprst: 332
  aeimprst: 328
  2. or download this
      use Algorithm::Combinatorics qw(:all);
  my $iter = combinations_with_repetition(\@{['a'..'z']}, 8);
  3. or download this
    #! /usr/bin/perl
use threads;
...
  printf "! progress %d/%d (% 3.1f%%)\n@{['-'x40]}\n",
                  $TDONE, $TOTAL, 100.0*$TDONE/$TOTAL;
}