Cousin primes: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Cowgol) |
Not a robot (talk | contribs) (Add MAD) |
||
Line 343: | Line 343: | ||
41 pairs found. |
41 pairs found. |
||
</pre> |
</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}}== |
=={{header|Pascal}}== |