Blum integer: Difference between revisions

Content added Content deleted
(→‎{{header|J}}: stretch)
(→‎{{header|J}}: fix off-by-one error)
Line 304: Line 304:
while. -.done do.
while. -.done do.
L0=. L
L0=. L
P=. (#~ 1 p: ])<.3 4 p. b+1+i.1e3
P=. (#~ 1 p: ])<.3 4 p. b+i.1e3
R1=. p (</ #&, */) P
R1=. p (</ #&, */) P
R2=. (</~ #&, */~) P
R2=. (</~ #&, */~) P
Line 331: Line 331:
597 633 649 669 681 713 717 721 737 749
597 633 649 669 681 713 717 721 737 749
{: blumseq 26828
{: blumseq 26828
524621</syntaxhighlight>
524273</syntaxhighlight>


Stretch:
<div style="display: none">Stretch:


<syntaxhighlight lang=J> B=: blumseq 4e5
<syntaxhighlight lang=J> B=: blumseq 4e5
Line 350: Line 350:
3 25.018
3 25.018
7 24.9955
7 24.9955
9 24.9855</syntaxhighlight>
9 24.9855</syntaxhighlight></div>


=={{header|Julia}}==
=={{header|Julia}}==