Discussion :

[Jahel]

Écrire une fonction stutterfree: ’a list -> ’a list qui prend une liste et qui
renvoie une liste sans répétition i.e. si deux éléments successifs sont égaux un seul de ces éléments
est présent dans la nouvelle

Code :

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

liste. ex stutterfree [1;1;4;2;2;6;6;6;2] = [1;4;2;6;2]

Code :

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

1
2
3
4
let rec stutterfree a= match a with
	|[]-> []
	|i::[]-> []
	|i::t-> if i== t then i:: else i::(stutterfree t);;

ce code ne marche pas pk?

[Jahel]

enfin résolu

Code :

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

1
2
3
4
let rec stutterfree a= match a with
	|[]-> []
	|i::[]-> i :: []
	|i::t::z ->if i == t then (stutterfree (t::z)) else i::(stutterfree (t::z));;

[TchoubiTchoub]

([i] est équivalent à i :: [])

Une autre version :

Code :

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

1
2
3
4
5
 
let rec stutterfree a = match a with
  | [] -> []
  | i :: t :: z when i = t -> stutterfree (t :: z)
  | i :: tl -> i :: stutterfree tl

Attention, n'utilisez jamais l'opérateur ==, il y a des cas dans lesquels vous penserez que deux éléments sont égaux mais == teste l'égalité physique (égalité de pointeurs, notamment) et pas l'égalité structurelle. Utilisez donc = pour le test d'égalité et <> pour le test de différence (pas !=).

Et une version récursive terminale :

Code :

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

1
2
3
4
5
6
7
 
let rec stutterfree a = 
  let rec aux acc = function (* function est équivalent à let rec aux acc a = match a with *)
    | [] -> List.rev acc
    | i :: t :: z when i = t -> aux acc (t::z)
    | i :: tl -> aux (i :: acc) tl
  in aux [] a

[Jahel]

([i] est équivalent à i :: [])

Une autre version :

Code :

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

1
2
3
4
5
 
let rec stutterfree a = match a with
  | [] -> []
  | i :: t :: z when i = t -> stutterfree (t :: z)
  | i :: tl -> i :: stutterfree tl

Attention, n'utilisez jamais l'opérateur ==, il y a des cas dans lesquels vous penserez que deux éléments sont égaux mais == teste l'égalité physique (égalité de pointeurs, notamment) et pas l'égalité structurelle. Utilisez donc = pour le test d'égalité et <> pour le test de différence (pas !=).

Et une version récursive terminale :

Code :

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

1
2
3
4
5
6
7
 
let rec stutterfree a = 
  let rec aux acc = function (* function est équivalent à let rec aux acc a = match a with *)
    | [] -> List.rev acc
    | i :: t :: z when i = t -> aux acc (t::z)
    | i :: tl -> aux (i :: acc) tl
  in aux [] a

Merci TchoubiTchoub ce gentil