Permutations: Difference between revisions
m
Undo revision 146579 by Grondilu (talk) not needed on second thought
(→{{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
multi postfix:<!>(@a) {
gather for @a -> $a {
|