Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 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