Permutations/Derangements: Difference between revisions
Content added Content deleted
Line 2,166: | Line 2,166: | ||
{{trans|Perl}} |
{{trans|Perl}} |
||
{{works with|Rakudo|2016.10}} |
{{works with|Rakudo|2016.10}} |
||
<lang perl6> |
<lang perl6>sub derangements(@l) { |
||
sub derangements(@l) { |
|||
permutations(@l).grep(-> @p { none(@p Zeqv @l) }) |
permutations(@l).grep(-> @p { none(@p Zeqv @l) }) |
||
} |
} |
||
Line 2,179: | Line 2,178: | ||
for 0 .. 9 -> $n { |
for 0 .. 9 -> $n { |
||
say "!$n == { !$n }" |
say "!$n == { !$n }" |
||
⚫ | |||
} |
|||
⚫ | |||
{{out}} |
{{out}} |
||
<pre> |
<pre> |