Additive primes: Difference between revisions

<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{{.countcnt}} additive primes found.\n"