Additive primes: Difference between revisions
Content added Content deleted
(add RPL) |
|||
Line 1,462: | Line 1,462: | ||
353 359 373 379 397 401 409 421 443 449 461 463 467 487 |
353 359 373 379 397 401 409 421 443 449 461 463 467 487 |
||
There are 54 additive primes below 500</pre> |
There are 54 additive primes below 500</pre> |
||
=={{header|EasyLang}}== |
|||
<syntaxhighlight lang="easylang"> |
|||
proc isprime x . r . |
|||
r = 1 |
|||
for i = 2 to sqrt x |
|||
if x mod i = 0 |
|||
r = 0 |
|||
break 2 |
|||
. |
|||
. |
|||
. |
|||
proc digsum n . sum . |
|||
sum = 0 |
|||
while n > 0 |
|||
sum += n mod 10 |
|||
n = n div 10 |
|||
. |
|||
. |
|||
for i = 2 to 500 |
|||
call isprime i r |
|||
if r = 1 |
|||
call digsum i s |
|||
call isprime s r |
|||
if r = 1 |
|||
write i & " " |
|||
. |
|||
. |
|||
. |
|||
print "" |
|||
</syntaxhighlight> |
|||
=={{header|Erlang}}== |
=={{header|Erlang}}== |