le type liste defini par :
Je souhaite faire un tri par fusion, selection et tri rapide:
Code : Sélectionner tout - Visualiser dans une fenêtre à part type 'a liste= Vide|Cons of 'a*'a liste;;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 let rec insert elt liste = match liste with |Vide-> [elt] |Cons(a,l) -> if elt<a then elt::a::l else a::(insert_ala_pos elt l );;Error: This expression has type 'a liste but an expression was expected of type 'a listErreur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 let rec tri_fusion l1 =match l1 with |Vide -> Vide |Cons(a,l)-> insert a (tri_fusion l) and insert elt l2 = match l2 with |Vide -> Vide |Cons(a1,l) ->if elt<a1 then elt::l2 else a1:: insert elt l;;
Je souhaite trier ma liste polymorphe , Merci d'y contribuer ?Error: The variant type liste has no constructor :: #
Partager