Ormiston pairs: Difference between revisions
m
→{{header|Raku}}: Add a label
Thundergnat (talk | contribs) m (Add some reference links) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: Add a label) |
||
Line 32:
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:
(25013, 25031) (34613, 34631) (35617, 35671)
(35879, 35897) (36979, 36997) (37379, 37397)
| |||