Nombre de pièces

let rec nb_pieces pieces montant =
  match pieces with
  | [] -> if montant = 0 then 0 else failwith "rendu impossible"
  | p :: reste ->
      if p <= montant then 1 + nb_pieces pieces (montant - p)
      else nb_pieces reste montant

Même structure que rendu, mais on compte au lieu d'accumuler. nb_pieces [50;20;10;5;2;1] 67 $=4$.