É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]ce code ne marche pas pk?
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);;
Partager