From bd0da8cd176710c22b8ac3a31778d72b590f4710 Mon Sep 17 00:00:00 2001
From: Lucas <lucas.morel@epita.fr>
Date: Wed, 10 Sep 2025 14:07:12 +0200
Subject: [PATCH] ajout fichier ml

---
 algo/ocaml/exo.ml | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 algo/ocaml/exo.ml

diff --git a/algo/ocaml/exo.ml b/algo/ocaml/exo.ml
new file mode 100644
index 0000000..b2f5963
--- /dev/null
+++ b/algo/ocaml/exo.ml
@@ -0,0 +1,20 @@
+(* 2.2 *)
+let power30 x = 
+   let square x = x*x in
+   let power5 x = 
+      square(square x) * x in
+         power5 (power5 x) * power5 x;;
+
+(*2.3*)
+let mirror x = 
+   let u = x mod 10 and d= x/10 in
+      u*10+d;;
+
+let abba x = x*100+mirror;;
+
+let stammer x = abba(mirror x)*10000 + abba x;;
+
+(*2.6*)
+let sec_of_time h m s = h*3600+m*60+s;;
+let time_to_sec s = (s/3600, s mod 3600/60, s mod 3600 mod 60);;
+let add_time ha ma sa hb mb sb = time_of_sec(sec_of_time ha ma sa + sec_of_time hb mb sb);;