vault backup: 2023-10-02 15:03:09

This commit is contained in:
2023-10-02 15:03:09 +02:00
parent 8d5cfa14dc
commit 9319ab68cd
4 changed files with 55 additions and 25 deletions

View File

@ -14,24 +14,14 @@ 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
      max_reste;;
```