Happy Pi-Day!

[Mike]

Happy Pi-Day!

Here's my take on the Spigot-Algorithm (download):

Code: Select all

1 N=60:M=INT(10*(N+1)/3):DIMD(M-1):FORT=0TOM-1:D(T)=2:NEXT:P=0:FORT=0TON:C=0
2 FORA=M-1TO1STEP-1:B=2*A+1:D=D(A)*10+C:E=INT(D/B):D(A)=D-E*B:C=A*E:NEXT
3 D=D(0)*10+C:E=INT(D/10):D(0)=D-E*10:GOSUB5:NEXT:E=0:GOSUB5:PRINT:END
4 :
5 IFT=2THENPRINT".";
6 ON2+SGN(E-9)GOTO7,8,9
7 PRINTMID$(STR$(P),3);:P=10+E:RETURN
8 P=10*P+9:RETURN
9 P=P+1:GOSUB7:P=10:RETURN

The number of digits can be changed in line 1 ('N=...') within the limits of available memory. The result for N=60:



Cheers,

Michael

[joshuadenmark]

Thanks, same to You

image.jpg (20.36 KiB) Viewed 666 times

[orion70]

Living happily in 2015 with a VIC on our desk is really squaring the circle