Select Code to Download

./1.permute.pl : permutations for 851:
  8,5,1
  8,1,5
...
  print "  " . join( ",", @$p ) . "\n";
}
$

$ ./2.permute.pl 372
./2.permute.pl : permutations for 372:
  3,7,2
...
descending is
[[2, 7, 3], [2, 3, 7], [7, 2, 3], [7, 3, 2], [3, 2, 7], [3, 7, 2]]
$