Sequence of primorial primes: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
(Add Swift) |
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
||
Line 181:
(1 2 3 4 5 6 11 13 24 66 68 75 167 171 172 287 310 352 384 457)
</pre>
=={{header|EchoLisp}}==
<lang lisp>
Line 2,593 ⟶ 2,594:
384
457</pre>
=={{header|Perl 6}}==▼
<lang perl6>constant @primes = |grep *.is-prime, 2..*;▼
constant @primorials = [\*] 1, @primes;▼
my @pp_indexes := |@primorials.pairs.map: {▼
.key if ( .value + any(1, -1) ).is-prime▼
};▼
say ~ @pp_indexes[ 0 ^.. 20 ]; # Skipping bogus first element.</lang>▼
{{out}}▼
<pre>1 2 3 4 5 6 11 13 24 66 68 75 167 171 172 287 310 352 384 457</pre>▼
=={{header|Phix}}==
Line 2,747 ⟶ 2,736:
384
457</pre>
(formerly Perl 6)
▲<lang perl6>constant @primes = |grep *.is-prime, 2..*;
▲constant @primorials = [\*] 1, @primes;
▲my @pp_indexes := |@primorials.pairs.map: {
▲ .key if ( .value + any(1, -1) ).is-prime
▲};
▲say ~ @pp_indexes[ 0 ^.. 20 ]; # Skipping bogus first element.</lang>
▲{{out}}
▲<pre>1 2 3 4 5 6 11 13 24 66 68 75 167 171 172 287 310 352 384 457</pre>
=={{header|Ring}}==
Line 2,781 ⟶ 2,783:
1, 2, 3, 4, 5, 6, 11, 13, 24, 66, 68, 75, 167, 171, 172, 287, 310, 352, 384, 457
</pre>
=={{header|Ruby}}==
| |||