Permutations: Difference between revisions
Content added Content deleted
(→{{header|Perl 6}}: adding a simpler, recursive version) |
(→{{header|Perl 6}}: make it behave nice with empty arrays) |
||
Line 1,802:
Here is a quick and simple recursive implementation:
<lang Perl6>
multi postfix:<!>(@a where 0|1) { [@a] }
multi postfix:<!>(@a) {
gather for @a -> $a {
|