Select Code to Download

use Benchmark 'cmpthese';
use strict;

...
        );

print 0+%y,$/;

         s/iter %y = map   @y{@x}
%y = map   2.45       --     -49%
@y{@x}     1.25      97%       --

# ...snip
  my ($n,$i,@n,@temp,%arrangements);
  # get size and create all permutations (comma separated)
...
  print STDERR scalar(localtime),$/;
  @arrangements{@temp} = undef;
  print STDERR scalar(localtime),$/;

computing 8-arrangements...
Mon Sep 30 15:30:31 2002
Mon Sep 30 15:33:35 2002