Find prime n such that reversed n is also prime: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add BASIC) |
Not a robot (talk | contribs) (Add MAD) |
||
Line 723: | Line 723: | ||
{{out}} |
{{out}} |
||
<pre>{2,3,5,7,11,13,17,31,37,71,73,79,97,101,107,113,131,149,151,157,167,179,181,191,199,311,313,337,347,353,359,373,383,389}</pre> |
<pre>{2,3,5,7,11,13,17,31,37,71,73,79,97,101,107,113,131,149,151,157,167,179,181,191,199,311,313,337,347,353,359,373,383,389}</pre> |
||
=={{header|MAD}}== |
|||
<lang MAD> NORMAL MODE IS INTEGER |
|||
BOOLEAN PRIME |
|||
DIMENSION PRIME(1000) |
|||
VECTOR VALUES FMT = $I3*$ |
|||
PRIME(0)=0B |
|||
PRIME(1)=0B |
|||
THROUGH INIT, FOR P=2, 1, P.GE.1000 |
|||
INIT PRIME(P)=1B |
|||
THROUGH SIEVE, FOR P=2, 1, P.GE.32 |
|||
THROUGH SIEVE, FOR C=P*P, P, C.GE.1000 |
|||
SIEVE PRIME(C)=0B |
|||
THROUGH TEST, FOR N=2, 1, N.GE.500 |
|||
WHENEVER .NOT. PRIME(N), TRANSFER TO TEST |
|||
NN=N |
|||
R=0 |
|||
RVRSE WHENEVER NN.G.0 |
|||
NXT=NN/10 |
|||
R=R*10+NN-NXT*10 |
|||
NN=NXT |
|||
TRANSFER TO RVRSE |
|||
END OF CONDITIONAL |
|||
WHENEVER .NOT. PRIME(R), TRANSFER TO TEST |
|||
PRINT FORMAT FMT,N |
|||
TEST CONTINUE |
|||
END OF PROGRAM</lang> |
|||
{{out}} |
|||
<pre style='height:50ex;'> 2 |
|||
3 |
|||
5 |
|||
7 |
|||
11 |
|||
13 |
|||
17 |
|||
31 |
|||
37 |
|||
71 |
|||
73 |
|||
79 |
|||
97 |
|||
101 |
|||
107 |
|||
113 |
|||
131 |
|||
149 |
|||
151 |
|||
157 |
|||
167 |
|||
179 |
|||
181 |
|||
191 |
|||
199 |
|||
311 |
|||
313 |
|||
337 |
|||
347 |
|||
353 |
|||
359 |
|||
373 |
|||
383 |
|||
389</pre> |
|||
=={{header|Modula-2}}== |
=={{header|Modula-2}}== |