Factorial primes: Difference between revisions
m
→{{header|Raku}}: minor twiddles
Thundergnat (talk | contribs) (→{{header|Raku}}: Add a Raku example) |
Thundergnat (talk | contribs) 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!
exit if $limit >= 30
}</lang>
| |||