Least m such that n! + m is prime: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Raku}}: remove some debugging code) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: twiddles) |
||
Line 40: | Line 40: | ||
for (1..10).map: * × 1e3 { |
for (1..10).map: * × 1e3 { |
||
my $key = @least-m.first |
my $key = @least-m.first: * > $_, :k; |
||
printf "\nFirst m > $_ is %d at position %d\n", @least-m[$key], $key; |
printf "\nFirst m > $_ is %d at position %d\n", @least-m[$key], $key; |
||
}</syntaxhighlight> |
}</syntaxhighlight> |