Code tidy up for 2024 day 21.

2024-12-21 16:18:45 +00:00
parent 50420e84c4
commit 7debbf7acb
3 changed files with 68 additions and 96 deletions
--- a/lib/aoc.ml
+++ b/lib/aoc.ml
@@ -99,3 +99,5 @@ let memoize memo f value =
      let x = f value in
      Hashtbl.add memo value x;
      x
+
+let rec apply_n n fn arg = if n <= 0 then arg else apply_n (n - 1) fn (fn arg)