mirror of
https://github.com/curioustorvald/tsvm.git
synced 2026-03-07 19:51:51 +09:00
5 lines
120 B
QBasic
5 lines
120 B
QBasic
10 DEFUN FIB(N)=IF N==0 THEN 0 ELSE IF N==1 THEN 1 ELSE FIB(N-1)+FIB(N-2)
|
|
20 FOR K=1 TO 12
|
|
30 PRINT FIB(K);" ";
|
|
40 NEXT
|