Bonjour
j'ai un petit souci on me demande de definir une fonction
etend_liste : 'a -> 'a list list -> 'a list list = <fun>
qui prend en entrée un element e et une liste de listes l et qui rajoute e en tete de chacune des listes de l.
par exemple :
1 2
| #etend_listes 5 [[1;2];[6]];;
-: int list list = [[5;1;2];[5;6]] |
Donc voila, mon souci et je n'arrive pas a le résoudre pour l'instant j'ai fait ceci merci de m'aider
1 2 3
| let etend_listes e = function
[]-> [e],[e]
|(a::l)->let (l1,l2)=etend_listes e l in e::(a::l1),e::(a::l2);; |
Partager