Extra primes: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add BASIC) |
Not a robot (talk | contribs) (Add MAD) |
||
Line 990: | Line 990: | ||
7727 |
7727 |
||
</pre> |
</pre> |
||
=={{header|MAD}}== |
|||
<lang MAD> NORMAL MODE IS INTEGER |
|||
BOOLEAN PRIME |
|||
DIMENSION PRIME(7777) |
|||
VECTOR VALUES FMT = $I4*$ |
|||
PRINT COMMENT $ EXTRA PRIMES UP TO 10000$ |
|||
THROUGH SET, FOR P=1, 1, P.G.7777 |
|||
SET PRIME(P) = 1B |
|||
THROUGH SIEVE, FOR P=2, 1, P*P.G.7777 |
|||
THROUGH SIEVE, FOR C=P*P, P, C.G.7777 |
|||
SIEVE PRIME(C) = 0B |
|||
THROUGH X, FOR VALUES OF A = 0,2,3,5,7 |
|||
THROUGH X, FOR VALUES OF B = 0,2,3,5,7 |
|||
WHENEVER A.NE.0 .AND. B.E.0, TRANSFER TO X |
|||
THROUGH Y, FOR VALUES OF C = 0,2,3,5,7 |
|||
WHENEVER B.NE.0 .AND. C.E.0, TRANSFER TO Y |
|||
THROUGH Z, FOR VALUES OF D = 2,3,5,7 |
|||
NUM = A*1000 + B*100 + C*10 + D |
|||
SUM = A+B+C+D |
|||
Z WHENEVER PRIME(NUM) .AND. PRIME(SUM), |
|||
0 PRINT FORMAT FMT, NUM |
|||
Y CONTINUE |
|||
X CONTINUE |
|||
END OF PROGRAM </lang> |
|||
{{out}} |
|||
<pre>EXTRA PRIMES UP TO 10000 |
|||
2 |
|||
3 |
|||
5 |
|||
7 |
|||
23 |
|||
223 |
|||
227 |
|||
337 |
|||
353 |
|||
373 |
|||
557 |
|||
577 |
|||
733 |
|||
757 |
|||
773 |
|||
2333 |
|||
2357 |
|||
2377 |
|||
2557 |
|||
2753 |
|||
2777 |
|||
3253 |
|||
3257 |
|||
3323 |
|||
3527 |
|||
3727 |
|||
5233 |
|||
5237 |
|||
5273 |
|||
5323 |
|||
5527 |
|||
7237 |
|||
7253 |
|||
7523 |
|||
7723 |
|||
7727</pre> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |