Pandigital prime: Difference between revisions

m
→‎{{header|Raku}}: tucked into loop
m (→‎{{header|Ring}}: added performance timing)
m (→‎{{header|Raku}}: tucked into loop)
Line 493:
 
=={{header|Raku}}==
<lang perl6>sayfor max (1..7).map:, 0 -> $sizei {
say max (0$i..7).map: -> $size {
|(1$i..$size).permutations».join.grep(&is-prime);
}
}
say max (0..7).map: -> $size {
|(0..$size).permutations».join.grep(&is-prime);
}</lang>
{{out}}