Fix main, added extra functionality, added extra tests in main. TODO: add real unit tests

2024-10-05 18:40:45 +02:00
parent c1e513d3dc
commit 92fa995807
5 changed files with 230 additions and 34 deletions
--- a/lib/utility.ml
+++ b/lib/utility.ml
@ -0,0 +1,6 @@
+let rec pow a = function
+  | 0 -> 1
+  | 1 -> a
+  | n ->
+    let b = pow a (n / 2) in
+    b * b * (if n mod 2 = 0 then 1 else a)