Discussion :

[clement1010]

Bonjour,

J'ai un problème relativement simple qui consiste a renvoyer le plus petit entier positif 'e' non contenu dans la liste 'l'.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
let rec minIntNotInListe l e = match l with
|[] -> e
|t::q -> if (e < t) then ( e )
else if (e = t) then (minIntNotInListe (t :: q) (e + 1) )
else if (e > t) then (minIntNotInListe q e);;

Je me retrouve avec l'erreur suivante : "This expression has type unit but is here used with type int"

Si quelqu'un pouvais me dire ce qui ne va pas, et aussi si il est possible d'écrire cette fonction sans avoir a donner en paramètre 'e' ?

Clément.

[prgasp77]

Salut, pourquoi ne pas trier ta liste avant de faire ta recherche ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
let smallest_not_included_integer l =
   let rec aux acc = function
   | [] -> acc
   | head::tail when acc < head -> acc
   | head::tail when acc = head -> aux (succ acc) tail
   | head::tail                 -> aux acc tail
   in
   aux 0 (List.fast_sort compare l)

Cdlt,

[clement1010]

Merci beaucoup pour ta réponse nocturne

Topic résolu.