Voilà comment on écrirait cela en OCaml légèrement plus idiomatique :
let rec nbcoul l coul =
match l with
| [] -> 0
| h::t when h.couleur = coul -> 1 + nbcoul t coul
| _::t ->...
Type: Messages; Utilisateur: Ptival
Voilà comment on écrirait cela en OCaml légèrement plus idiomatique :
let rec nbcoul l coul =
match l with
| [] -> 0
| h::t when h.couleur = coul -> 1 + nbcoul t coul
| _::t ->...
Il va nous falloir les définitions.
Si :
type carte = MkCarte of (couleur * figure)
alors :
let MkCarte(c_couleur, _) = c in (* ... *)
ou :
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.