13 lines
257 B
Plaintext
13 lines
257 B
Plaintext
1 'Fibonacci with bignums
|
|
2 a(0)=0:b(0)=1:c(0)=0
|
|
3 n=n+1:printn;": ";
|
|
4 fori=0toj:put48+b(j-i)
|
|
5 nexti:print:fori=0toj
|
|
6 c=a(i)+b(i)+c:a(i)=b(i)
|
|
7 b(i)=c:ifc<10 c=0:goto9
|
|
8 b(i)=c-10:c=1
|
|
9 nexti:ifc=0 goto12
|
|
10 j=j+1
|
|
11 a(j)=0:b(j)=c:c(j)=0
|
|
12 print:goto 3
|