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

Text File | 2002-08-18 | 353 b | 19 lines

#!/usr/local/bin/clip
#âtâBâ{âiâbâ`Éöù± Fibonacci sequence
#\!- <n>
:int

@a = 1; @b = 1; @c = 0; @x = 1; @y = 0; @0--
while @0 > 0
    if @0 & 1
        @X = @x; @Y = @y
        @x = @a * @X + @b * @Y; @y = @b * @X + @c * @Y
    endif
    @0 /= 2
    @A = @a; @B = @b; @C = @c
    @a = @A * @A + @B * @B
    @b = @B * (@A + @C)
    @c = @B * @B + @C * @C
endwhile
@x