Anaprimes: Difference between revisions
J
(→{{header|Phix}}: prepend pascal) |
(J) |
||
Line 224:
First: 1,123,465,789 Last: 9,876,543,211
</pre>
=={{header|J}}==
Here, we'll define the "largeness" of a group of primes as its sum.
<syntaxhighlight lang=J>dgt=: 10&#.inv
dgrp=: </.~ /:~"1&.dgt
pgrp=: {{dgrp p:(+ i.)/(-/)\ p:inv 0 _1+10^_1 0+y}}
big=: \: +/@>
largest=: 0 {:: big</syntaxhighlight>
With these definitions, the count, min and max of prime groups with various (base 10) digit lengths are:
<syntaxhighlight lang=J> (#,<./,>./) largest pgrp 1
1 7 7
(#,<./,>./) largest pgrp 2
2 79 97
(#,<./,>./) largest pgrp 3
4 379 937
(#,<./,>./) largest pgrp 4
10 1789 9871
(#,<./,>./) largest pgrp 5
39 13789 98731
(#,<./,>./) largest pgrp 6
141 136879 987631
(#,<./,>./) largest pgrp 7
708 1345879 9874531
(#,<./,>./) largest pgrp 8
4192 13456879 98765431
(#,<./,>./) largest pgrp 9
26455 103456789 987654103</syntaxhighlight>
=={{header|jq}}==
| |||