Mercurial > repos > tabletprog
diff samples/fib.tp @ 10:02b20292f187
Added fib sample
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Wed, 21 Mar 2012 21:25:10 -0700 |
parents | |
children | 9dd370530f69 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/samples/fib.tp Wed Mar 21 21:25:10 2012 -0700 @@ -0,0 +1,31 @@ +#{ + +console <- foreign: #{ + log <- foreign: :val {} +} + +true <- #{ + if:else <- :self trueblock :elseblock { + trueblock: + } +} + +false <- #{ + if:else <- :self trueblock :elseblock { + elseblock: + } +} + +fib <- :n { + if: n < 2 { + 1 + } else: { + (fib: n-1) + (fib: n-2) + } +} + +main <- { + console log: (fib: 30) +} + +}