Ormiston pairs: Difference between revisions
m
Move Python entry to correct position
Thundergnat (talk | contribs) m (Move Python entry to correct position) |
|||
Line 339:
+/isorm i.&.(p:inv) 1e7 NB. number of Ormiston pairs less than 1e7
3722</syntaxhighlight>
=={{header|Raku}}==▼
<syntaxhighlight lang="raku" line>use Lingua::EN::Numbers;▼
use List::Divvy;▼
my @primes = lazy (^∞).hyper.grep: &is-prime;▼
my @Ormistons = @primes.kv.map: { ($^value, @primes[$^key+1]) if $^value.comb.Bag eqv @primes[$^key+1].comb.Bag };▼
say "First thirty Ormiston pairs:"; ▼
say @Ormistons[^30].batch(3)».map( { "({.[0].fmt: "%5d"}, {.[1].fmt: "%5d"})" } ).join: "\n";▼
say '';▼
say +@Ormistons.&before( *[1] > $_ ) ~ " Ormiston pairs before " ~ .Int.&cardinal for 1e5, 1e6, 1e7;</syntaxhighlight>▼
{{out}}▼
<pre>First thirty Ormiston pairs:▼
( 1913, 1931) (18379, 18397) (19013, 19031)▼
(25013, 25031) (34613, 34631) (35617, 35671)▼
(35879, 35897) (36979, 36997) (37379, 37397)▼
(37813, 37831) (40013, 40031) (40213, 40231)▼
(40639, 40693) (45613, 45631) (48091, 48109)▼
(49279, 49297) (51613, 51631) (55313, 55331)▼
(56179, 56197) (56713, 56731) (58613, 58631)▼
(63079, 63097) (63179, 63197) (64091, 64109)▼
(65479, 65497) (66413, 66431) (74779, 74797)▼
(75913, 75931) (76213, 76231) (76579, 76597)▼
40 Ormiston pairs before one hundred thousand▼
382 Ormiston pairs before one million▼
3722 Ormiston pairs before ten million</pre>▼
=={{header|Python}}==
Line 400 ⟶ 371:
382 is the count of Ormiston pairs up to one million.
</pre>
▲=={{header|Raku}}==
▲<syntaxhighlight lang="raku" line>use Lingua::EN::Numbers;
▲use List::Divvy;
▲my @primes = lazy (^∞).hyper.grep: &is-prime;
▲my @Ormistons = @primes.kv.map: { ($^value, @primes[$^key+1]) if $^value.comb.Bag eqv @primes[$^key+1].comb.Bag };
▲say "First thirty Ormiston pairs:";
▲say @Ormistons[^30].batch(3)».map( { "({.[0].fmt: "%5d"}, {.[1].fmt: "%5d"})" } ).join: "\n";
▲say '';
▲say +@Ormistons.&before( *[1] > $_ ) ~ " Ormiston pairs before " ~ .Int.&cardinal for 1e5, 1e6, 1e7;</syntaxhighlight>
▲{{out}}
▲<pre>First thirty Ormiston pairs:
▲( 1913, 1931) (18379, 18397) (19013, 19031)
▲(25013, 25031) (34613, 34631) (35617, 35671)
▲(35879, 35897) (36979, 36997) (37379, 37397)
▲(37813, 37831) (40013, 40031) (40213, 40231)
▲(40639, 40693) (45613, 45631) (48091, 48109)
▲(49279, 49297) (51613, 51631) (55313, 55331)
▲(56179, 56197) (56713, 56731) (58613, 58631)
▲(63079, 63097) (63179, 63197) (64091, 64109)
▲(65479, 65497) (66413, 66431) (74779, 74797)
▲(75913, 75931) (76213, 76231) (76579, 76597)
▲40 Ormiston pairs before one hundred thousand
▲382 Ormiston pairs before one million
▲3722 Ormiston pairs before ten million</pre>
=={{header|Wren}}==
| |||