mirror of
https://github.com/RetroShare/RetroShare.git
synced 2024-12-30 18:06:18 -05:00
3be22536df
git-svn-id: http://svn.code.sf.net/p/retroshare/code/branches/v0.5-gxs-b1@5953 b45a01b8-16f6-495d-af2f-9b41ad6348cc
18 lines
249 B
QBasic
18 lines
249 B
QBasic
100 let n=32
|
|
110 gosub 200
|
|
120 print "fibonacci(",n,") = ", m
|
|
130 end
|
|
|
|
200 let c=n
|
|
210 let b=1
|
|
220 if c<2 then goto 400
|
|
230 let c=c-1
|
|
240 let a=1
|
|
300 let c=c-1
|
|
310 let d=a+b
|
|
320 let a=b
|
|
330 let b=d+1
|
|
340 if c<>0 then goto 300
|
|
400 let m=b
|
|
410 return
|