langs a-z

Task/Factorial/OCaml/factorial-1.ocaml

@@ -0,0 +1,3 @@
+let rec factorial n =
+  if n <= 0 then 1
+  else n * factorial (n-1)

Task/Factorial/OCaml/factorial-2.ocaml

@@ -0,0 +1,5 @@
+let factorial n =
+  let rec loop i accum =
+    if i > n then accum
+    else loop (i + 1) (accum * i)
+  in loop 1 1

Task/Factorial/OCaml/factorial-3.ocaml

@@ -0,0 +1,6 @@
+let factorial n =
+  let result = ref 1 in
+  for i = 1 to n do
+    result := !result * i
+  done;
+  !result