Find prime n such that reversed n is also prime: Difference between revisions

m
m (Added Easylang)
 
Line 571:
return 1
.
procfastfunc nextprim .prim .
prim = 2
proc nextprim . .
repeat
prim += 1
until isprim prim = 1
.
return prim
.
prim = 2
while prim < 500
if isprim reverse prim = 1
write prim & " "
.
prim = nextprim prim
.
</syntaxhighlight>
1,983

edits