Mercurial > repos > tabletprog
annotate samples/fib.tp @ 19:132c7756860e
Use populateSymbols to generate symbol tables during compilation rather than populating them as we go. This change allows us to refer to symbols defined later in the input stream and also gives the symbol table logic a single home that can be used both by the compiler and editor.
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Sun, 25 Mar 2012 16:11:19 -0700 |
| parents | 02b20292f187 |
| children | 9dd370530f69 |
| rev | line source |
|---|---|
| 10 | 1 #{ |
| 2 | |
| 3 console <- foreign: #{ | |
| 4 log <- foreign: :val {} | |
| 5 } | |
| 6 | |
| 7 true <- #{ | |
| 8 if:else <- :self trueblock :elseblock { | |
| 9 trueblock: | |
| 10 } | |
| 11 } | |
| 12 | |
| 13 false <- #{ | |
| 14 if:else <- :self trueblock :elseblock { | |
| 15 elseblock: | |
| 16 } | |
| 17 } | |
| 18 | |
| 19 fib <- :n { | |
| 20 if: n < 2 { | |
| 21 1 | |
| 22 } else: { | |
| 23 (fib: n-1) + (fib: n-2) | |
| 24 } | |
| 25 } | |
| 26 | |
| 27 main <- { | |
| 28 console log: (fib: 30) | |
| 29 } | |
| 30 | |
| 31 } |