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