Cousin primes: Difference between revisions
Add MAD
Not a robot (talk | contribs) (Add Cowgol) |
Not a robot (talk | contribs) (Add MAD) |
||
Line 343:
41 pairs found.
</pre>
=={{header|MAD}}==
<lang MAD> NORMAL MODE IS INTEGER
BOOLEAN PRIME
DIMENSION PRIME(1000)
THROUGH SET, FOR P=2, 1, P.G.1000
SET PRIME(P) = 1B
THROUGH SIEVE, FOR P=2, 1, P*P.G.1000
WHENEVER PRIME(P)
THROUGH MARK, FOR K=P*P, P, K.G.1000
MARK PRIME(K) = 0B
END OF CONDITIONAL
SIEVE CONTINUE
COUNT = 0
THROUGH TEST, FOR P=2, 1, P.G.1000-4
WHENEVER PRIME(P) .AND. PRIME(P+4)
COUNT = COUNT + 1
PRINT FORMAT COUSIN, P, P+4
END OF CONDITIONAL
TEST CONTINUE
PRINT FORMAT TOTAL, COUNT
VECTOR VALUES COUSIN = $I4,2H: ,I4*$
VECTOR VALUES TOTAL = $15HTOTAL COUSINS: ,I2*$
END OF PROGRAM </lang>
{{out}}
<pre style="height:14em;"> 3: 7
7: 11
13: 17
19: 23
37: 41
43: 47
67: 71
79: 83
97: 101
103: 107
109: 113
127: 131
163: 167
193: 197
223: 227
229: 233
277: 281
307: 311
313: 317
349: 353
379: 383
397: 401
439: 443
457: 461
463: 467
487: 491
499: 503
613: 617
643: 647
673: 677
739: 743
757: 761
769: 773
823: 827
853: 857
859: 863
877: 881
883: 887
907: 911
937: 941
967: 971
TOTAL COUSINS: 41</pre>
=={{header|Pascal}}==
| |||