Mercurial > repos > tabletprog

comparison samples/fib.tp @ 10:02b20292f187

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added fib sample
author Mike Pavone <pavone@retrodev.com>
date Wed, 21 Mar 2012 21:25:10 -0700
parents
children 9dd370530f69
comparison
equal deleted inserted replaced
9:37d7f60a8ea1 10:02b20292f187
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 }