Additive primes: Difference between revisions

Content added Content deleted
Line 2,334: Line 2,334:
not any f(.x) .i div .x, pseries 2 .. .i ^/ 2
not any f(.x) .i div .x, pseries 2 .. .i ^/ 2


val .sumDigits = f fold f{+}, s2n toString .i
val .sumDigits = f fold f{+}, s2n(string .i)


writeln "Additive primes less than 500:"
writeln "Additive primes less than 500:"