Summarize primes: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
(added J solution) |
||
Line 752: | Line 752: | ||
(158,929,66463) |
(158,929,66463) |
||
(162,953,70241)</pre> |
(162,953,70241)</pre> |
||
=={{header|J}}== |
|||
<lang j>primes=: p: i. _1 p: 1000 NB. all prime numbers below 1000 |
|||
sums=: +/\ primes NB. running sum of those primes |
|||
mask=: 1 p: sums NB. array of 0s, 1s where sums are primes |
|||
NB. indices of prime sums (incremented for 1-based indexing) |
|||
NB. "copy" only the final primes in the prime sums |
|||
NB. "copy" only the sums which are prime |
|||
results=: (>: I. mask) ,. (mask # primes) ,. (mask # sums) |
|||
NB. pretty-printed "boxed" output |
|||
output=: 2 1 $ ' n prime sum ' ; < results</lang> |
|||
{{out}} |
|||
<pre> output |
|||
┌─────────────┐ |
|||
│ n prime sum │ |
|||
├─────────────┤ |
|||
│ 1 2 2│ |
|||
│ 2 3 5│ |
|||
│ 4 7 17│ |
|||
│ 6 13 41│ |
|||
│ 12 37 197│ |
|||
│ 14 43 281│ |
|||
│ 60 281 7699│ |
|||
│ 64 311 8893│ |
|||
│ 96 503 22039│ |
|||
│100 541 24133│ |
|||
│102 557 25237│ |
|||
│108 593 28697│ |
|||
│114 619 32353│ |
|||
│122 673 37561│ |
|||
│124 683 38921│ |
|||
│130 733 43201│ |
|||
│132 743 44683│ |
|||
│146 839 55837│ |
|||
│152 881 61027│ |
|||
│158 929 66463│ |
|||
│162 953 70241│ |
|||
└─────────────┘</pre> |
|||
=={{header|jq}}== |
=={{header|jq}}== |