From 976048a85403fbb0751c34fa42703a3c47f6e918 Mon Sep 17 00:00:00 2001
From: DJ O'Leary <dijitol@proton.me>
Date: Sat, 27 Jun 2026 00:11:43 +0200
Subject: refactor!: change repo directory structure for ocaml

---
 ocaml/lib/year2025/day01/part02/dial.ml | 68 +++++++++++++++++++++++++++++++++
 1 file changed, 68 insertions(+)
 create mode 100644 ocaml/lib/year2025/day01/part02/dial.ml

(limited to 'ocaml/lib/year2025/day01/part02/dial.ml')

diff --git a/ocaml/lib/year2025/day01/part02/dial.ml b/ocaml/lib/year2025/day01/part02/dial.ml
new file mode 100644
index 0000000..e061d6d
--- /dev/null
+++ b/ocaml/lib/year2025/day01/part02/dial.ml
@@ -0,0 +1,68 @@
+module Dial : sig
+  (** [t] is a dial between 0 and 99 inclusive *)
+  type t
+
+  (** [direction] is a direction the dial can be turned *)
+  type direction = Left of int | Right of int
+
+  val start : t
+  (** [start] is the initial state of the dial *)
+
+  val dial_out_of_range : string
+  (** [dial_out_of_range] is the error message when the dial is out of range *)
+
+  val prev : t -> t
+
+  val next : t -> t
+
+  val is_zero : t -> bool
+
+  val to_string : t -> string
+  (** [to_string t] is the string representation of [t] *)
+
+  val to_int : t -> int
+  (** [to_int t] is the integer representation of [t] *)
+
+  val pp_direction : direction -> string
+end = struct
+  (** [t] is an int between 0 and 99 inclusive *)
+  type t = int
+
+  type direction = Left of int | Right of int
+
+  let start = 50
+
+  let dial_out_of_range = "dial out of range"
+
+  (** [next n] is the new state of the dial after turning [Right].
+      Raises: [dial_out_of_range] if [n] is greater than 99. *)
+  let next = function
+    | n when n < 99 ->
+        n + 1
+    | 99 ->
+        0
+    | _ ->
+        failwith dial_out_of_range
+
+  (** [prev n] is the new state of the dial after turning [Left].
+      Raises: [dial_out_of_range] if [n] is less than 0. *)
+  let prev = function
+    | n when n > 0 ->
+        n - 1
+    | 0 ->
+        99
+    | _ ->
+        failwith dial_out_of_range
+
+  let is_zero = function 0 -> true | _ -> false
+
+  let to_string = string_of_int
+
+  let to_int t = t
+
+  let pp_direction = function
+    | Left n ->
+        "Left " ^ string_of_int n
+    | Right n ->
+        "Right " ^ string_of_int n
+end
-- 
cgit v1.2.3