Une fonction Ma_position: (’a -> 'b ) -> 'b-> ’a list -> ’a list qui renvoie la liste des elements la position donnée( 'b) . Le premier argument est une fonction qui indique comment calculer la position d’un élement.
La question est : comment et sur quoi matcher de la fun : Ma_position(’a -> 'b ) -> 'b-> ’a list -> ’a list ;;
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 (* 'b est defini comme un type à qui les constructeur sont *) let calculPosition = let i =Random.int(6) in if(i=0) then A else if( i=1) then B else if(i=2) then C else D ;; val 'calculPosition 'a-> 'b
Partager