Factorial primes: Difference between revisions

m
→‎{{header|Raku}}: minor twiddles
(→‎{{header|Raku}}: Add a Raku example)
m (→‎{{header|Raku}}: minor twiddles)
Line 26:
<br><br>
=={{header|Raku}}==
<lang perl6>sub postfix:<!> ($n) { constant @F = (1, 1, |[\*] 2..*); @F[$n] }
sub abr ($_) { .chars < 41 ?? $_ !! .substr(0,20) ~ '..' ~ .substr(*-20) ~ " ({.chars} digits)" }
 
Line 32:
 
for 1..* {
my \f = .!;
++$limit and printf "%2d: %3d! - 1 = %s\n", $limit, $_, abr .!-1 if (.!-1).is-prime;
++$limit and printf "%2d: %3d! +- 1 = %s\n", $limit, $_, abr .!+f -1 if (.!+f -1).is-prime;
++$limit and printf "%2d: %3d! -+ 1 = %s\n", $limit, $_, abr .!-f +1 if (.!-f +1).is-prime;
exit if $limit >= 30
}</lang>
10,333

edits