Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Re: generating permutations

by toolic (Bishop)
on Mar 29, 2017 at 17:33 UTC ( [id://1186405] : note . print w/replies, xml ) Need Help??

in reply to generating permutations

Start smaller. Here is one basic way to create and use the swap sub:
use warnings; use strict; my @swaps = swap(2, 3); print "@swaps\n"; sub swap { my $k = shift; # 1st arg my $l = shift; # 2nd arg return $l, $k; # List of 2 args swapped } __END__ Prints: 3 2