Mercurial > repos > tabletprog
annotate samples/fib.tp @ 38:e7be612fd3ae
Very basic array support
| author | Mike Pavone <pavone@retrodev.com> |
|---|---|
| date | Tue, 10 Jul 2012 23:09:44 -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 } |