Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/Anonymous-recursion/Standard-ML/anonymous-recursion-1.ml
+++ b/Task/Anonymous-recursion/Standard-ML/anonymous-recursion-1.ml
@ -0,0 +1,9 @@
+fun fix f x = f (fix f) x
+
+fun fib n =
+    if n < 0 then raise Fail "Negative"
+    else
+        fix (fn fib =>
+                (fn 0 => 0
+                | 1 => 1
+                | n => fib (n-1) + fib (n-2))) n