Special neighbor primes: Difference between revisions

m
(added Raku programming solution)
m (→‎{{header|Raku}}: simplify)
Line 333:
<lang perl6># 20210809 Raku programming solution
 
for 2(grep {.is-prime}, 3..*).rotor(2 => -1) -> (\P1,\P2) {
next unless P1.is-prime;
my \P2 = $ = P1 ; repeat { P2++ } until P2.is-prime ;
last if P2 ≥ Ⅽ;
($_ = P1+P2-1).is-prime and printf "%2d, %2d => %3d\n", P1, P2, $_
350

edits