Additive primes: Difference between revisions
Content added Content deleted
(Frink updated to solve optional task.) |
|||
Line 1,648: | Line 1,648: | ||
<lang frink>vals = toArray[select[primes[2, 500], {|x| isPrime[sum[integerDigits[x]]]}]] |
<lang frink>vals = toArray[select[primes[2, 500], {|x| isPrime[sum[integerDigits[x]]]}]] |
||
println[formatTable[columnize[vals, 10]]] |
println[formatTable[columnize[vals, 10]]] |
||
println[length[vals] + " values found."]</lang> |
println["\n" + length[vals] + " values found."]</lang> |
||
{{out}} |
{{out}} |
||
<pre> |
<pre> |
||
Line 1,657: | 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. |
54 values found. |
||
</pre> |
</pre> |