Additive primes: Difference between revisions

Content added Content deleted
m (→‎{{header|ALGOL 68}}: Avoid line wrap)
 
Line 2,367: Line 2,367:
}
}


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


writeln "Additive primes less than 500:"
writeln "Additive primes less than 500:"
Line 2,375: Line 2,375:
for .i in [2] ~ series(3..500, 2) {
for .i in [2] ~ series(3..500, 2) {
if .isPrime(.i) and .isPrime(.sumDigits(.i)) {
if .isPrime(.i) and .isPrime(.sumDigits(.i)) {
write $"\{.i:3} "
write "{{.i:3}} "
.count += 1
.count += 1
if .count div 10: writeln()
if .count div 10: writeln()
Line 2,381: Line 2,381:
}
}


writeln $"\n\n\{.count} additive primes found.\n"
writeln "\n\n{{.count}} additive primes found.\n"
</syntaxhighlight>
</syntaxhighlight>