Rosetta Code

Fermat pseudoprimes: Difference between revisions

Page Discussion

Fermat pseudoprimes (view source)

Revision as of 16:49, 18 August 2022

209 bytes added ,  1 year ago
m
→‎{{header|Phix}}: removed shorten()
m (→‎{{header|Phix}}: tidier/better aligned output)
m (→‎{{header|Phix}}: removed shorten())
Line 236:
<span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
<span style="color: #008080;">constant</span> <span style="color: #000000;">limits</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">12000</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">25000</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">50000</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">100000</span><span style="color: #0000FF;">},</span> <span style="color: #000000;">sp</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">repeat</span><span style="color: #0000FF;">(</span><span style="color: #008000;">'-'</span><span style="color: #0000FF;">,</span><span style="color: #000000;">4353</span><span style="color: #0000FF;">)</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Base &lt;%s first 20 %s&gt; &lt;=%s\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">sp</span><span style="color: #0000FF;">,</span><span style="color: #000000;">sp</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">limits</span><span style="color: #0000FF;">,</span><span style="color: #000000;">fmt</span><span style="color: #0000FF;">:=</span><span style="color: #008000;">"%6d"</span><span style="color: #0000FF;">)})</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">base</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">20</span> <span style="color: #008080;">do</span>
Line 254:
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
<span style="color: #004080;">string</span> <span style="color: #000000;">s</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">shorten</span><span style="color: #0000FF;">(</span><span style="color: #000000;">first20</span><span style="color: #0000FF;">,</span><span style="color: #008000000000;">""fmt</span><span style="color: #0000FF;">,</span><span style="color: #000000;">8</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%5d"</span><span style="color: #0000FF;">),</span><span style="color: #008000;">","</span><span style="color: #0000FF;">),</span>
<span style="color: #000000;">c</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">join</span><span style="color: #0000FF;">(</span><span style="color: #000000;">counts</span><span style="color: #0000FF;">,</span><span style="color: #000000;">fmt</span><span style="color: #0000FF;">:=</span><span style="color: #008000;">"%6d"</span><span style="color: #0000FF;">)</span>
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%2d: %s %s\n"</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">base</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">c</span><span style="color: #0000FF;">})</span>
Line 260:
<!--</lang>-->
{{out}}
<pre style="font-size: 12px">
<pre>
Base <----------------------------------------------------- first 20 -----------------------------------------------------> <= 12000 25000 50000 100000
1: 4, 6, 8, 9, 10, 12, 14, 15,..., 16 18 20 21 22, 24, 25, 26, 27, 28, 30, 32 10561 22237 44866 90407
2: 341, 561, 645, 1105, 1387, 1729, 1905, 2047,..., 2465 2701 2821 3277 4033, 4369, 4371, 4681, 5461, 6601, 7957, 8321 25 38 55 78
3: 91, 121, 286, 671, 703, 949, 1105, 1541,..., 1729 1891 2465 2665 2701, 2821, 3281, 3367, 3751, 4961, 5551, 6601 25 38 53 78
4: 15, 85, 91, 341, 435, 451, 561, 645,..., 703 1105 1247 1271 1387, 1581, 1695, 1729, 1891, 1905, 2047, 2071 50 75 111 153
5: 4, 124, 217, 561, 781, 1541, 1729, 1891,..., 2821 4123 5461 5611 5662, 5731, 6601, 7449, 7813, 8029, 8911, 9881 22 35 54 73
6: 35, 185, 217, 301, 481, 1105, 1111, 1261,..., 1333 1729 2465 2701 2821, 3421, 3565, 3589, 3913, 4123, 4495, 5713 31 46 74 104
7: 6, 25, 325, 561, 703, 817, 1105, 1825,..., 2101 2353 2465 3277 4525, 4825, 6697, 8321, 10225, 10585, 10621, 11041 21 32 49 73
8: 9, 21, 45, 63, 65, 105, 117, 133,..., 153 231 273 341 481, 511, 561, 585, 645, 651, 861, 949 76 110 150 218
9: 4, 8, 28, 52, 91, 121, 205, 286,..., 364 511 532 616 671, 697, 703, 946, 949, 1036, 1105, 1288 55 83 113 164
10: 9, 33, 91, 99, 259, 451, 481, 561,..., 657 703 909 1233 1729, 2409, 2821, 2981, 3333, 3367, 4141, 4187 35 53 65 90
11: 10, 15, 70, 133, 190, 259, 305, 481,..., 645 703 793 1105 1330, 1729, 2047, 2257, 2465, 2821, 4577, 4921 30 41 61 89
12: 65, 91, 133, 143, 145, 247, 377, 385,..., 703 1045 1099 1105 1649, 1729, 1885, 1891, 2041, 2233, 2465, 2701 35 60 91 127
13: 4, 6, 12, 21, 85, 105, 231, 244,..., 276 357 427 561 1099, 1785, 1891, 2465, 2806, 3605, 5028, 5149 31 51 68 91
14: 15, 39, 65, 195, 481, 561, 781, 793,..., 841 985 1105 1111 1541, 1891, 2257, 2465, 2561, 2665, 2743, 3277 33 51 69 96
15: 14, 341, 742, 946, 1477, 1541, 1687, 1729,..., 1891 1921 2821 3133 3277, 4187, 6541, 6601, 7471, 8701, 8911, 9073 22 31 42 70
16: 15, 51, 85, 91, 255, 341, 435, 451,..., 561 595 645 703 1105, 1247, 1261, 1271, 1285, 1387, 1581, 1687 69 102 145 200
17: 4, 8, 9, 16, 45, 91, 145, 261,..., 781 1111 1228 1305 1729, 1885, 2149, 2821, 3991, 4005, 4033, 4187 31 44 63 83
18: 25, 49, 65, 85, 133, 221, 323, 325,..., 343 425 451 637 931, 1105, 1225, 1369, 1387, 1649, 1729, 1921 46 69 98 134
19: 6, 9, 15, 18, 45, 49, 153, 169,..., 343 561 637 889 905, 906, 1035, 1105, 1629, 1661, 1849, 1891 48 70 93 121
20: 21, 57, 133, 231, 399, 561, 671, 861,..., 889 1281 1653 1729 1891, 2059, 2413, 2501, 2761, 2821, 2947, 3059 35 49 66 101
</pre>
 
Petelomax
7,795

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/322087"