Equal prime and composite sums: Difference between revisions
Content added Content deleted
(→{{header|Wren}}: Added a further series term.) |
|||
Line 117: | Line 117: | ||
=={{header|Wren}}== |
=={{header|Wren}}== |
||
Takes around 2 minutes, which is respectable for Wren, but uses a lot of memory. |
|||
<lang ecmascript>import "./math" for Int |
<lang ecmascript>import "./math" for Int |
||
import "./sort" for Find |
import "./sort" for Find |
||
import "/fmt" for Fmt |
import "/fmt" for Fmt |
||
var limit = 1e8 |
var limit = 4 * 1e8 |
||
var c = Int.primeSieve(limit - 1, false) |
var c = Int.primeSieve(limit - 1, false) |
||
var compSums = [] |
var compSums = [] |
||
Line 137: | Line 137: | ||
} |
} |
||
} |
} |
||
for (i in 0...primeSums.count) { |
for (i in 0...primeSums.count) { |
||
var ix |
var ix |
||
if ((ix = Find.first(compSums, primeSums[i])) >= 0) { |
if ((ix = Find.first(compSums, primeSums[i])) >= 0) { |
||
Fmt.print("$, |
Fmt.print("$,21d - $,12r prime sum, $,12r composite sum", primeSums[i], i+1, ix+1) |
||
} |
} |
||
}</lang> |
}</lang> |
||
Line 146: | Line 147: | ||
{{out}} |
{{out}} |
||
<pre> |
<pre> |
||
10 - 3rd prime sum, |
10 - 3rd prime sum, 2nd composite sum |
||
1,988 - 33rd prime sum, |
1,988 - 33rd prime sum, 51st composite sum |
||
14,697 - 80th prime sum, |
14,697 - 80th prime sum, 147th composite sum |
||
83,292 - 175th prime sum, |
83,292 - 175th prime sum, 361st composite sum |
||
1,503,397 - 660th prime sum, |
1,503,397 - 660th prime sum, 1,582nd composite sum |
||
18,859,052 - 2,143rd prime sum, |
18,859,052 - 2,143rd prime sum, 5,699th composite sum |
||
93,952,013 - 4,556th prime sum, |
93,952,013 - 4,556th prime sum, 12,821st composite sum |
||
89,171,409,882 - 118,785th prime sum, |
89,171,409,882 - 118,785th prime sum, 403,341st composite sum |
||
9,646,383,703,961 - 1,131,142nd prime sum, |
9,646,383,703,961 - 1,131,142nd prime sum, 4,229,425th composite sum |
||
209,456,854,921,713 - 5,012,372nd prime sum, |
209,456,854,921,713 - 5,012,372nd prime sum, 19,786,181st composite sum |
||
3,950,430,820,867,201 - 20,840,220th prime sum, 86,192,660th composite sum |
|||
</pre> |
</pre> |