Additive primes: Difference between revisions

m (→‎{{header|ALGOL 68}}: Avoid line wrap)
 
Line 2,367:
}
 
val .sumDigits = fn( .i) {: fold fn{+}, s2n string .i }
 
writeln "Additive primes less than 500:"
Line 2,375:
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,381:
}
 
writeln $"\n\n\{{.count}} additive primes found.\n"
</syntaxhighlight>
 
890

edits