Substring primes: Difference between revisions
→{{header|Raku}}: Added Raku solution
(Added Algol W) |
(→{{header|Raku}}: Added Raku solution) |
||
Line 236:
6 innocent bystanders falsly accused of being prime (15 tests in total): {237,27,3737,537,57,737}
</pre>
=={{header|Raku}}==
<lang perl6>my @p = (^10).grep: *.is-prime;
say gather while @p {
.take for @p;
@p = ( @p X~ <3 7> ).grep: { .is-prime and .substr(*-2,2).is-prime }
}</lang>
{{out}}
<pre>
(2 3 5 7 23 37 53 73 373)</pre>
=={{header|REXX}}==
| |||