Additive primes: Difference between revisions

print( ( newline, "Found ", whole( additive count, 0 ), " additive primes below ", whole( UPB prime + 1, 0 ), newline ) );

<syntaxhighlight lang="langur">val .isPrime = fn(.i) {

.i == 2 or .i > 2 and

not any(fn fn(.x): { .i div .x }, pseries (2 .. .i ^/ 2))

val .sumDigits = fn(. i) {: fold (fn{+}, s2n (string .(i })))

var .countcnt = 0

for .i in [2] ~ series(3..500, 2) {

if .isPrime(.i) and .isPrime(.sumDigits(.i)) {

write $"\{.{i:3}} "

.countcnt += 1

if .countcnt div 10: writeln()

writeln $"\n\n\{.count{cnt}} additive primes found.\n"