initial commit

tinker/exponential.ml

@@ -0,0 +1,20 @@
+let fact n =
+  let rec fact' acc i =
+    if i = 0. then acc
+    else fact' (i *. acc) (i -. 1.)
+  in
+  fact' 1. n;;
+
+let pow a b =
+  let rec pow' acc i =
+    if i = 0. then acc
+    else pow' (acc *. a) (i -. 1.)
+  in
+  pow' 1. b;;
+
+let expo n x =
+  let rec expo' acc i =
+    if i = 0. then acc
+    else expo' (acc +. pow x i /. fact i) (i -. 1.)
+  in
+  expo' 1. n;;

tinker/tinker.ml

@@ -0,0 +1,18 @@
+let pow b e =
+  let rec pow' acc i =
+    if i = 0 then acc
+    else pow' (acc * b) (i - 1)
+  in
+  pow' 1 e;;
+
+let rec root n k g =
+  let next = (1. /. k) *. ((k -. 1.) *. g +. n /. float_of_int (pow g (k - 1))) in
+  if abs(next - g) < 0.00000000001 then next
+  else root n k next;;
+
+let float_pow b e =
+  let rec float_pow' acc i =
+    if i <= 0. then acc
+    else float_pow' (acc *. b) (i -. 1.)
+  in
+  float_pow' 1. e;;