Mercurial > repos > tabletprog

diff samples/fibnof.tp @ 39:a997e42b9051

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add foreach method to array and add fib sample that can work in C environment and array example
author Mike Pavone <pavone@retrodev.com>
date Tue, 10 Jul 2012 23:18:14 -0700
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/samples/fibnof.tp	Tue Jul 10 23:18:14 2012 -0700
@@ -0,0 +1,27 @@
+#{
+
+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 <- {
+  fib: 30
+}
+
+}