Permutations by swapping: Difference between revisions

 

=== Recursive ===

<lang perl6>sub insert($x, @xs) { [@xs[0..$_-1], $x, @xs[$_..*]] for 0..+@xs }

sub order($sg, @xs) { $sg > 0 ?? @xs !! @xs.reverse }