mirror of
https://github.com/RetroShare/RetroShare.git
synced 2025-05-02 22:25:04 -04:00
adding pegmarkdown support library.
git-svn-id: http://svn.code.sf.net/p/retroshare/code/branches/v0.5-gxs-b1@5953 b45a01b8-16f6-495d-af2f-9b41ad6348cc
This commit is contained in:
parent
4413536926
commit
3be22536df
107 changed files with 20038 additions and 0 deletions
17
supportlibs/pegmarkdown/peg-0.1.9/examples/fibonacci.bas
Normal file
17
supportlibs/pegmarkdown/peg-0.1.9/examples/fibonacci.bas
Normal file
|
@ -0,0 +1,17 @@
|
|||
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
|
Loading…
Add table
Add a link
Reference in a new issue