Matt Owen

source code for "files/pe/pe_024.pl"

return to portfolio
  1.  #!/usr/bin/perl
  2.  
  3.  use strict;
  4.  use warnings;
  5.  use combinatorics;
  6.  
  7.  my $k = 0;
  8.  my $factorial = combinatorics::factorial(9);
  9.  my @digits = (2, 0, 1, 3, 4, 5, 6, 7, 8, 9);
  10.  
  11.  $k++ while (($k+1) * $factorial < 1000000);
  12.  
  13.  for (1..999999-$k*$factorial) {
  14.   @digits = combinatorics::lpermute(@digits);
  15.  }
  16.  
  17.  print @digits;
  18.  
  19.  # print combinatorics::lpermute(1,2,4,3), "...";