gigatron/rom/BASIC/Fibonacci.gtb
2025-01-28 19:17:01 +03:00

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