Circular primes: Difference between revisions

m
Line 913:
{{trans|AWK}}
<syntaxhighlight lang="easylang">
fastprocfastfunc isprimeprime n . r .
rif n mod 2 = 10 and n > 2
i = 2 return 0
.
while i <= sqrt n and r = 1
if ri = 13
sq = sqrt n
while i <= sqrt n and r = 1sq
if n mod i = 0
r =return 0
.
i += 12
.
return 1
.
procfunc cycle n . r .
m = n
p = 1
Line 930 ⟶ 934:
m = m div 10
.
r =return m + n mod p * 10
.
procfunc iscircprimecircprime p . r .
callif isprimeprime p r= 0
if r = return 0
break 1
.
callp2 = cycle p p2
while p2 <> p
if p2 < p or prime p2 = 0
r =return 0
break 2
.
call isprime p2 r
if r = 0
break 2
.
callp2 cycle= p2cycle p2
.
r =return 1
.
p = 2
while count < 19
callif iscircprimecircprime p r= 1
if r = 1
print p
count += 1
1,969

edits