Emirp primes: Difference between revisions
Added Easylang
m (→{{header|Wren}}: Minor tidy) |
(Added Easylang) |
||
Line 835:
=={{header|Delphi}}==
See [https://rosettacode.org/wiki/Emirp_primes#Pascal Pascal].
=={{header|EasyLang}}==
<syntaxhighlight>
fastfunc isprim num .
if num mod 2 = 0
if num = 2
return 1
.
return 0
.
i = 3
while i <= sqrt num
if num mod i = 0
return 0
.
i += 2
.
return 1
.
func isemirp n .
if isprim n = 0
return 0
.
m = n
while m > 0
d = m mod 10
m = m div 10
rev = rev * 10 + d
.
if rev = n
return 0
.
return isprim rev
.
m = 2
write "First 20 emirps: "
while cnt < 20
if isemirp m = 1
write m & " "
cnt += 1
.
m += 1
.
print ""
write "Emirps between 7700 8000: "
for m = 7700 to 8000
if isemirp m = 1
write m & " "
.
.
print ""
m = 2
cnt = 0
repeat
if isemirp m = 1
cnt += 1
.
until cnt = 10000
m += 1
.
print "The 10000th emirp: " & m
</syntaxhighlight>
{{out}}
<pre>
First 20 emirps: 13 17 31 37 71 73 79 97 107 113 149 157 167 179 199 311 337 347 359 389
Emirps between 7700 8000: 7717 7757 7817 7841 7867 7879 7901 7927 7949 7951 7963
The 10000th emirp: 948349
</pre>
=={{header|Elixir}}==
| |||