Prime numbers which contain 123: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Raku}}: Add a Raku example) |
Thundergnat (talk | contribs) (→{{header|Raku}}: use defaults) |
||
Line 190: | Line 190: | ||
<lang perl6>my @p123 = ^∞ .grep: { .is-prime && .contains: 123 }; |
<lang perl6>my @p123 = ^∞ .grep: { .is-prime && .contains: 123 }; |
||
put display |
put display @p123[^(@p123.first: * > 1e5, :k)]; |
||
put "\nCount up to 1e6: ", ~ +@p123[^(@p123.first: * > 1e6, :k)]; |
put "\nCount up to 1e6: ", ~ +@p123[^(@p123.first: * > 1e6, :k)]; |