Additive primes: Difference between revisions

(Added Uiua solution)
Line 2,361:
 
=={{header|langur}}==
<syntaxhighlight lang="langur">val .isPrime = ffn(.i) .i == 2 or .i > 2 and not any fn(.x) .i div .x, pseries 2 .. .i ^/ 2
not any f(.x) .i div .x, pseries 2 .. .i ^/ 2
 
val .sumDigits = ffn(.i) fold f{+}, s2n string .i
 
writeln "Additive primes less than 500:"
Line 2,372 ⟶ 2,371:
for .i in [2] ~ series(3..500, 2) {
if .isPrime(.i) and .isPrime(.sumDigits(.i)) {
write $"\{.i:3;} "
.count += 1
if .count div 10: writeln()
Line 2,378 ⟶ 2,377:
}
 
writeln $"\n\n\{.count;} additive primes found.\n"
</syntaxhighlight>
 
885

edits