vault backup: 2023-09-21 10:04:37

Algo/Séminaire/Remediation.md

@@ -0,0 +1,37 @@
+```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
+```