Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
use strict;
...
}

print @$_ for permutations @ARGV;
  2. or download this
    sub permutations {
    return !@_ ? [] : map{
...
}

print @$_ for permutations @ARGV;