Bonjour j'ai un petit souci avec un exercice tout d'abord, on m'a demandé de faire une fonction explose qui fait cela [5;4;3;3] donne [[5];[4];[3];[3]]

j'ai donc ecrit cela :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
let rec explose = function
  []->[]
  |(a::l)->[a]::explose l;;
ensuite on me demande de faire une fonction etend qui fait cela par exemple etend 5 [[1;2];[3]] donne cela [[5;1;2];[5;3]] et la je n'y arrive vraiment pas merci de m'aider