Data update
This commit is contained in:
parent
29a5eea0d4
commit
5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions
|
|
@ -0,0 +1,34 @@
|
|||
100 sub fib(a())
|
||||
110 erase f
|
||||
120 dim f(24)
|
||||
130 b = 0
|
||||
140 for x = 1 to ubound(a)
|
||||
150 b = b+1
|
||||
160 f(x) = a(x)
|
||||
170 next x
|
||||
180 for i = b to 12+b
|
||||
190 print using "#### ";f(i-b+1);
|
||||
200 for j = (i-b+1) to i
|
||||
210 f(i+1) = f(i+1)+f(j)
|
||||
220 next j
|
||||
230 next i
|
||||
240 print
|
||||
250 end sub
|
||||
260 cls
|
||||
270 print " fibonacci =>";
|
||||
280 dim a(2)
|
||||
290 a(1) = 1 : a(2) = 1
|
||||
300 fib(a())
|
||||
310 print " tribonacci =>";
|
||||
320 dim a(3)
|
||||
330 a(1) = 1 : a(2) = 1 : a(3) = 2
|
||||
340 fib(a())
|
||||
350 print " tetranacci =>";
|
||||
360 dim c(4)
|
||||
370 c(1) = 1 : c(2) = 1 : c(3) = 2 : c(4) = 4
|
||||
380 fib(c())
|
||||
390 print " lucas =>";
|
||||
400 dim d(2)
|
||||
410 d(1) = 2 : d(2) = 1
|
||||
420 fib(d())
|
||||
430 end
|
||||
Loading…
Add table
Add a link
Reference in a new issue