Additive primes: Difference between revisions
Content added Content deleted
(Frink) |
(Frink updated to solve optional task.) |
||
Line 1,646: | Line 1,646: | ||
=={{header|Frink}}== |
=={{header|Frink}}== |
||
<lang frink> |
<lang frink>vals = toArray[select[primes[2, 500], {|x| isPrime[sum[integerDigits[x]]]}]] |
||
println[formatTable[columnize[ |
println[formatTable[columnize[vals, 10]]] |
||
println[length[vals] + " values found."]</lang> |
|||
{{out}} |
{{out}} |
||
<pre> |
<pre> |
||
Line 1,656: | Line 1,657: | ||
353 359 373 379 397 401 409 421 443 449 |
353 359 373 379 397 401 409 421 443 449 |
||
461 463 467 487 |
461 463 467 487 |
||
54 values found. |
|||
</pre> |
</pre> |
||