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-2.ml
+++ b/Task/Anonymous-recursion/Standard-ML/anonymous-recursion-2.ml
@ -0,0 +1,11 @@
+fun fib n =
+    let
+        fun fib 0 = 0
+          | fib 1 = 1
+          | fib n = fib (n-1) + fib (n-2)
+    in
+        if n < 0 then
+            raise Fail "Negative"
+        else
+            fib n
+    end