langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Anonymous-recursion/OCaml/anonymous-recursion-2.ocaml
+++ b/Task/Anonymous-recursion/OCaml/anonymous-recursion-2.ocaml
@ -0,0 +1,7 @@
+let rec fix f x = f (fix f) x
+
+let fib n =
+  if n < 0 then
+    None
+  else
+    Some (fix (fun f -> fun n -> if n <= 1 then 1 else f (n-1) + f (n-2)) n)