Prime reciprocal sum: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (New draft task and Raku example) |
(J) |
||
Line 29: | Line 29: | ||
=={{header|J}}== |
|||
Given: |
|||
<syntaxhighlight lang=J>taskfmt=: {{ |
|||
if. 40<#t=. ":y do. |
|||
d=. ":#t |
|||
(20{.t),'..',(_20{.t),' (',d,' digits)' |
|||
else. |
|||
t |
|||
end. |
|||
}}@></syntaxhighlight> |
|||
The task and stretch could be: |
|||
<syntaxhighlight lang=J> taskfmt (, 4 p:1%1-+/@:%)^:(15)i.0 |
|||
2 |
|||
3 |
|||
7 |
|||
43 |
|||
1811 |
|||
654149 |
|||
27082315109 |
|||
153694141992520880899 |
|||
337110658273917297268061074384231117039 |
|||
84241975970641143191..13803869133407474043 (76 digits) |
|||
20300753813848234767..91313959045797597991 (150 digits) |
|||
20323705381471272842..21649394434192763213 (297 digits) |
|||
12748246592672078196..20708715953110886963 (592 digits) |
|||
46749025165138838243..65355869250350888941 (1180 digits) |
|||
11390125639471674628..31060548964273180103 (2358 digits) |
|||
</syntaxhighlight> |
|||
=={{header|Raku}}== |
=={{header|Raku}}== |
||
The sixteenth is very slow to emerge. Didn't bother trying for the seventeenth. OEIS only lists the first fourteen values. |
The sixteenth is very slow to emerge. Didn't bother trying for the seventeenth. OEIS only lists the first fourteen values. |