Additive primes: Difference between revisions
Content added Content deleted
Deadmarshal (talk | contribs) (Added Modula-3) |
Langurmonkey (talk | contribs) |
||
| Line 2,361: | Line 2,361: | ||
=={{header|langur}}== |
=={{header|langur}}== |
||
<syntaxhighlight lang="langur">val .isPrime = fn(.i) |
<syntaxhighlight lang="langur">val .isPrime = fn(.i) { |
||
.i == 2 or .i > 2 and |
|||
not any fn(.x) { .i div .x }, pseries 2 .. .i ^/ 2 |
|||
} |
|||
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:" |
||