Data commit

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

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

Task/Anonymous-recursion/Standard-ML/anonymous-recursion-3.ml

@@ -0,0 +1,6 @@
+fun fib 0 = 0
+  | fib 1 = 1
+  | fib n = fib (n-1) + fib (n-2)
+
+val fib = fn n => if n < 0 then raise Fail "Negative"
+                  else fib n