• [^] # Re: Exemple judicieux ?

    Posté par . En réponse à la dépêche Apprendre la programmation fonctionnelle avec le MOOC OCaml. Évalué à 1. Dernière modification le 17 septembre 2016 à 01:03.

    Moi j'aurais écrit votre version list comme ceci... Enfin peu importe je crois que je n'apporterai plus rien à cette discussion qui tourne en queue de boudin.

    let rec je_ne_suis_pas_fold f g = function
    | Nil -> raise (Invalid_argument "pas de graine...")
    | Cons (x, Nil) -> (f x)
    | Cons (hd, tl) -> g (f hd) (je_ne_suis_pas_fold f g tl)