level 8
先来代码
function limit_pi(a,x,g)
g=4*10**g
variable c=3,d=0,e=1,b=g,q=1
a=a*4
while c<a
b=b-(g-mod(g,c))/c
c=c+2
b=b+(g-mod(g,c))/c
c=c+2
loop
while q<x
d=d+b*e
e=e*(x-q)/q
q=q+1
b=b-(g-mod(g,c))/c
c=c+2
d=d+b*e
e=e*(x-q)/q
q=q+1
b=b+(g-mod(g,c))/c
c=c+2
loop
if mod(x,2)
d=d+b
endif
b=2**(x-1)
return (d-mod(d,b))/b
endf
2016年04月04日 01点04分





