Mercurial > repos > tabletprog
annotate samples/fib.tp @ 21:6c8ae6b47ab5
Small improvements to property support and elimination of setP and getP functions as they are no longer needed
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sun, 25 Mar 2012 21:11:10 -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 } |