Additive primes: Difference between revisions
Content added Content deleted
m (→{{header|ALGOL 68}}: Avoid line wrap) |
Langurmonkey (talk | contribs) |
||
Line 2,367: | Line 2,367: | ||
} |
} |
||
val .sumDigits = fn |
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 |
write "{{.i:3}} " |
||
.count += 1 |
.count += 1 |
||
if .count div 10: writeln() |
if .count div 10: writeln() |
||
Line 2,381: | Line 2,381: | ||
} |
} |
||
writeln |
writeln "\n\n{{.count}} additive primes found.\n" |
||
</syntaxhighlight> |
</syntaxhighlight> |
||