Select Code to Download

$ perl -w permute_n.pl 3                    
0: 1,2,3
...
3: 2,3,1
4: 3,1,2
5: 3,2,1

$ perl -w permute_n.pl 18 0 2 4 -5 -3 -1
0: 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18
...
6402373705727995: 18,17,16,15,14,13,12,11,10,9,8,7,6,5,4,1,3,2
6402373705727997: 18,17,16,15,14,13,12,11,10,9,8,7,6,5,4,2,3,1
6402373705727999: 18,17,16,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1

#!/usr/bin/perl
#
...
    }
    return $result;
}