Fortunate numbers: Difference between revisions
m
→{{header|Raku}}: for want of a comma...
(Add Factor) |
SqrtNegInf (talk | contribs) m (→{{header|Raku}}: for want of a comma...) |
||
Line 151:
<lang perl6>my @primorials = [\*] grep *.is-prime, ^∞;
say display :title("First 50 distinct fortunate numbers:\n"),▼
▲say display :title("First 50 distinct fortunate numbers:\n")
(squish sort @primorials[^75].hyper.map: -> $primorial {
(2..∞).first: (* + $primorial).is-prime
})[^50];
sub display ($list, :$cols = 10, :$fmt = '%6d', :$title = "{+$list} matching:\n") {
| |||