From 7ecbf70590bdc92d96661e48c6f82ba8899e6c36 Mon Sep 17 00:00:00 2001 From: Arkitu Date: Tue, 6 Jan 2026 18:08:14 +0100 Subject: [PATCH] save --- td6/exo2.ml | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 td6/exo2.ml diff --git a/td6/exo2.ml b/td6/exo2.ml new file mode 100644 index 0000000..e891e00 --- /dev/null +++ b/td6/exo2.ml @@ -0,0 +1,7 @@ +let radix l = + let r = ref 0 in + let running = ref true in + while !running do + running := false; + List.fold_left + done