21 lines
357 B
Text
21 lines
357 B
Text
a = fib("1,1")
|
|
a = fib("1,1,2")
|
|
a = fib("1,1,2,4")
|
|
a = fib("1,1,2,4,8")
|
|
a = fib("1,1,2,4,8,16")
|
|
|
|
function fib(f$)
|
|
dim f(20)
|
|
while word$(f$,b+1,",") <> ""
|
|
b = b + 1
|
|
f(b) = val(word$(f$,b,","))
|
|
wend
|
|
PRINT "Fibonacci:";b;"=>";
|
|
for i = b to 13 + b
|
|
print f(i-b+1);",";
|
|
for j = (i - b) + 1 to i
|
|
f(i+1) = f(i+1) + f(j)
|
|
next j
|
|
next i
|
|
print
|
|
end function
|