epicours/Algo/Séminaire/Remediation.md

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;;