# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1342164307 25200
# Node ID 55572bb1562329ac1ec7625295ef1cf19a97cf27
# Parent  2a9c6eed0c705942f390021c57e520476924560f
Added iterative fib example

diff -r 2a9c6eed0c70 -r 55572bb15623 samples/iterfib.tp
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/samples/iterfib.tp	Fri Jul 13 00:25:07 2012 -0700
@@ -0,0 +1,31 @@
+#{
+true <- #{
+  if:else <- :self trueblock :elseblock {
+    trueblock:
+  }
+}
+
+false <- #{
+  if:else <- :self trueblock :elseblock {
+    elseblock:
+  }
+}
+
+fib <- :n {
+  last <- 0
+  cur <- 1
+  counter <- 0
+  while: { counter < n } do: {
+  	counter <- counter + 1
+  	tmp <- last
+  	last <- cur
+  	cur <- last + tmp
+  }
+  cur
+}
+
+main <- {
+  print: (string: (fib: 30)) . "\n"
+}
+
+}