Additive primes: Difference between revisions
Content deleted Content added
Moved page |
|||
| Line 151: | Line 151: | ||
=={{header|Phix}}== |
=={{header|Phix}}== |
||
<lang Phix>function |
<lang Phix>function additive(integer p) return is_prime(sum(sq_sub(sprint(p),'0'))) end function |
||
sequence res = filter(get_primes_le(500), |
sequence res = filter(get_primes_le(500),additive) |
||
string r = join(shorten(apply(res,sprint),"",6)) |
string r = join(shorten(apply(res,sprint),"",6)) |
||
printf(1,"%d additive primes found: %s\n",{length(res),r})</lang> |
printf(1,"%d additive primes found: %s\n",{length(res),r})</lang> |
||