Summarize primes: Difference between revisions
Content added Content deleted
(Added Quackery.) |
|||
Line 1,387: | Line 1,387: | ||
158 -> 66463 |
158 -> 66463 |
||
162 -> 70241</pre> |
162 -> 70241</pre> |
||
=={{header|Quackery}}== |
|||
<code>isprime</code> is defined at [[Primality by trial division#Quackery]]. |
|||
<syntaxhighlight lang="Quackery"> [ number$ |
|||
space 6 of swap join |
|||
-7 split nip echo$ ] is rjust ( n --> ) |
|||
say " index prime sum" cr |
|||
say " ----- ----- ---" cr |
|||
[] 1000 times |
|||
[ i^ isprime if [ i^ join ] ] |
|||
0 swap |
|||
witheach |
|||
[ dup dip + |
|||
over isprime iff |
|||
[ i^ 1+ rjust |
|||
rjust |
|||
dup rjust |
|||
cr ] |
|||
else drop ] |
|||
drop |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> index 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|Raku}}== |
=={{header|Raku}}== |