22 lines
461 B
Text
22 lines
461 B
Text
a = fib(" fibonacci ", "1,1")
|
|
a = fib("tribonacci ", "1,1,2")
|
|
a = fib("tetranacci ", "1,1,2,4")
|
|
a = fib(" pentanacc ", "1,1,2,4,8")
|
|
a = fib(" hexanacci ", "1,1,2,4,8,16")
|
|
a = fib(" lucas ", "2,1")
|
|
|
|
function fib(f$, s$)
|
|
dim f(20)
|
|
while word$(s$,b+1,",") <> ""
|
|
b = b + 1
|
|
f(b) = val(word$(s$,b,","))
|
|
wend
|
|
PRINT f$; "=>";
|
|
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
|