CalmoSoft primes: Difference between revisions
Content added Content deleted
(Added XPL0 example.) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: Add a Raku example) |
||
Line 194: | Line 194: | ||
7 + 11 + 13 + 17 + 19 + 23 + 29 + 31 + 37 + 41 + 43 + 47 + 53 + 59 + 61 + 67 + 71 + 73 + 79 + 83 + 89 = 953 which is prime |
7 + 11 + 13 + 17 + 19 + 23 + 29 + 31 + 37 + 41 + 43 + 47 + 53 + 59 + 61 + 67 + 71 + 73 + 79 + 83 + 89 = 953 which is prime |
||
</pre> |
</pre> |
||
=={{header|Raku}}== |
|||
Longest sliding window prime sums |
|||
<syntaxhighlight lang="raku" line>sub sliding-window(@list, $window) { (^(+@list - $window)).map: { @list[$_ ..^ $_+$window] } } |
|||
for 100, 250, 500, 1000, 2500, 5000, 10000, 25000, 50000, 100000 -> $upto { |
|||
my @primes = (^$upto).grep: &is-prime; |
|||
for +@primes ... 1 { |
|||
my @sums = @primes.&sliding-window($_).grep: { .sum.is-prime } |
|||
next unless @sums; |
|||
say "\nFor primes up to $upto, longest sequence of consecutive primes yielding a prime sum: elements {+$_}"; |
|||
for @sums { say " {join '...', .[0..5, *-5..*]».join('+')}, sum: {.sum}" } |
|||
last |
|||
} |
|||
}</syntaxhighlight> |
|||
{{out}} |
|||
<pre>For primes up to 100, longest sequence of consecutive primes yielding a prime sum: elements 21 |
|||
7+11+13+17+19+23...71+73+79+83+89, sum: 953 |
|||
For primes up to 250, longest sequence of consecutive primes yielding a prime sum: elements 47 |
|||
7+11+13+17+19+23...199+211+223+227+229, sum: 5107 |
|||
11+13+17+19+23+29...211+223+227+229+233, sum: 5333 |
|||
For primes up to 500, longest sequence of consecutive primes yielding a prime sum: elements 81 |
|||
11+13+17+19+23+29...419+421+431+433+439, sum: 16823 |
|||
19+23+29+31+37+41...433+439+443+449+457, sum: 18131 |
|||
29+31+37+41+43+47...443+449+457+461+463, sum: 19013 |
|||
For primes up to 1000, longest sequence of consecutive primes yielding a prime sum: elements 162 |
|||
2+3+5+7+11+13...929+937+941+947+953, sum: 70241 |
|||
For primes up to 2500, longest sequence of consecutive primes yielding a prime sum: elements 359 |
|||
7+11+13+17+19+23...2411+2417+2423+2437+2441, sum: 408479 |
|||
For primes up to 5000, longest sequence of consecutive primes yielding a prime sum: elements 665 |
|||
7+11+13+17+19+23...4967+4969+4973+4987+4993, sum: 1543127 |
|||
For primes up to 10000, longest sequence of consecutive primes yielding a prime sum: elements 1223 |
|||
3+5+7+11+13+17...9887+9901+9907+9923+9929, sum: 5686633 |
|||
7+11+13+17+19+23...9907+9923+9929+9931+9941, sum: 5706497 |
|||
For primes up to 25000, longest sequence of consecutive primes yielding a prime sum: elements 2757 |
|||
3+5+7+11+13+17...24919+24923+24943+24953+24967, sum: 32305799 |
|||
For primes up to 50000, longest sequence of consecutive primes yielding a prime sum: elements 5125 |
|||
13+17+19+23+29+31...49927+49937+49939+49943+49957, sum: 120863297 |
|||
For primes up to 100000, longest sequence of consecutive primes yielding a prime sum: elements 9590 |
|||
2+3+5+7+11+13...99907+99923+99929+99961+99971, sum: 454196557</pre> |
|||
=={{header|Ring}}== |
=={{header|Ring}}== |