if_fib: tests [if] and [let rec]

tobast · Feb 16, 2018 · 2f1fd4e · 2f1fd4e
1 parent 330e0da
commit 2f1fd4e
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/if_fib.exp b/if_fib.exp
@@ -0,0 +1 @@
+55
diff --git a/if_fib.lambda b/if_fib.lambda
@@ -0,0 +1,10 @@
+let rec fib = fun n ->
+  ifzero n then
+    0
+  else ifzero (n-1) then
+    1
+  else
+    fib (n-1) + fib (n-2)
+in
+
+print (fib 10)