Anonymous user
Line 2,166:
{{trans|Perl}}
{{works with|Rakudo|2016.10}}
<lang perl6>sub derangements(@l) {
permutations(@l).grep(-> @p { none(@p Zeqv @l) })
}
Line 2,179 ⟶ 2,178:
for 0 .. 9 -> $n {
say "!$n == { !$n }"
}</lang>▼
▲</lang>
{{out}}
<pre>
|