Dos/V Magazine 2002 July 1/VMAG130101.iso/ONLINE/monthly/calc/CLPCA511.LZH/ClipCalc/EXTFUNC/pi2.cef

Text File | 2002-08-18 | 275 b | 13 lines

#!/usr/local/bin/clip
#ë~Äⁿùª(Machin é╠î÷Ä«) pi
:float \16
@p = 0; @k = 1; @t = 16.0 / 5.0
do
    @l = @p; @p += @t / @k; @t /= \-5.0 * 5.0; @k += 2
until @p != @l
@k = 1; @t = 4.0 / 239.0
do
    @l = @p; @p -= @t / @k; @t /= \-239.0 * 239.0; @k += 2
until @p != @l
@p