Ormiston triples: Difference between revisions

Content added Content deleted
(→‎{{header|Phix}}: added faster version)
m (→‎faster version (win64 only): oops, it was collecting the middle primes)
Line 1,689: Line 1,689:
<span style="color: #000000;">count</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">1</span>
<span style="color: #000000;">count</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">1</span>
<span style="color: #008080;">if</span> <span style="color: #000000;">count</span><span style="color: #0000FF;"><=</span><span style="color: #000000;">25</span> <span style="color: #008080;">then</span>
<span style="color: #008080;">if</span> <span style="color: #000000;">count</span><span style="color: #0000FF;"><=</span><span style="color: #000000;">25</span> <span style="color: #008080;">then</span>
<span style="color: #000000;">orm25</span><span style="color: #0000FF;">[</span><span style="color: #000000;">count</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">sprintf</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"%d"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">p1</span><span style="color: #0000FF;">})</span>
<span style="color: #000000;">orm25</span><span style="color: #0000FF;">[</span><span style="color: #000000;">count</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">sprintf</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"%d"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">p2</span><span style="color: #0000FF;">})</span>
<span style="color: #008080;">if</span> <span style="color: #000000;">count</span><span style="color: #0000FF;">=</span><span style="color: #000000;">25</span> <span style="color: #008080;">then</span> <span style="color: #000000;">showt</span><span style="color: #0000FF;">()</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
<span style="color: #008080;">if</span> <span style="color: #000000;">count</span><span style="color: #0000FF;">=</span><span style="color: #000000;">25</span> <span style="color: #008080;">then</span> <span style="color: #000000;">showt</span><span style="color: #0000FF;">()</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
Line 1,703: Line 1,703:
<pre>
<pre>
Smallest members of first 25 Ormiston triplets:
Smallest members of first 25 Ormiston triplets:
11117213 12980837 14964071 32638231 32964413
11117123 12980783 14964017 32638213 32964341
33539837 35868031 44058031 46103273 48015031
33539783 35868013 44058013 46103237 48015013
50324273 52402837 58005293 60601273 61395293
50324237 52402783 58005239 60601237 61395239
74699879 76012897 78163213 80905897 81966413
74699789 76012879 78163123 80905879 81966341
82324273 82523071 83279837 86050817 92514413
82324237 82523017 83279783 86050781 92514341


368 Ormiston triplets before 1,000,000,000 (11s)
368 Ormiston triplets before 1,000,000,000 (11s)
4,925 Ormiston triplets before 10,000,000,000 (1:46)
4,925 Ormiston triplets before 10,000,000,000 (1:45)
</pre>
</pre>


Retrieved from "https://rosettacode.org/wiki/Ormiston_triples"