Anonymous user
Permutations by swapping: Difference between revisions
→{{header|Perl 6}}: fix code
(corrected C++ as requested in task maintenance page) |
(→{{header|Perl 6}}: fix code) |
||
Line 904:
=== Recursive ===
<lang perl6>sub insert($x, @xs) { ([@xs[0..$_-1], $x, @xs[$_..*]] for 0..+@xs).flat }
sub order($sg, @xs) { $sg > 0 ?? @xs !! @xs.reverse }
Line 920:
{{out}}
<pre>
</pre>
| |||