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-3.ml
+++ b/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