vault backup: 2023-11-13 13:50:53

Algo/B1/Séminaire/Remediation.md

@@ -0,0 +1,27 @@
+```Ocaml
+let rec search n d =
+
+if n = 0 then
+
+false
+
+else if n mod 10 = d then
+
+true
+
+else search (n/10) d
+
+  
+
+let rec chiffre_maximal n =
+  if n < 10 && n > 0 then
+    n
+  else
+    let dernier_chiffre = n mod 10 in
+    let reste = n / 10 in
+    let max_reste = chiffre_maximal reste in
+    if dernier_chiffre > max_reste then
+      dernier_chiffre
+    else
+      max_reste;;
+```