From 7b51696740f830e26183664c9d3b26699ecd2e1c Mon Sep 17 00:00:00 2001
From: Matthew Gretton-Dann <matt@gretton-dann.org.uk>
Date: Fri, 6 Dec 2024 15:42:00 +0000
Subject: [PATCH] Flush stdout between each part.

This helps indicate where we have reached in case of problems.
---
 lib/aoc.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/aoc.ml b/lib/aoc.ml
index 1c0dbb0..406d331 100644
--- a/lib/aoc.ml
+++ b/lib/aoc.ml
@@ -12,7 +12,8 @@ let main prep parts =
     | [| _; fname |] ->
         let lines = prep fname in
         let do_part i (fmt, fn) =
-          Printf.printf "Part %d = %s\n" (i + 1) (fmt (fn lines))
+          Printf.printf "Part %d = %s\n" (i + 1) (fmt (fn lines));
+          flush stdout
         in
         List.iteri do_part parts;
         exit 0