bonjour,
j'essaie de traduire en caml un algorithme qui sert à donner les sous parties d'une partie suivant un ordre bien determiner ,voila mon code qui donne la partie suivante :
let partie_suivante liste n =
match liste with
x::queue when (x=n) -> match queue with
[] -> []
|
r::queue_1 -> (r+1)::queue_1
|
x::que when (x < n ) -> (x+1)::liste;;
sauf que je vois pas pourquoi la fonction ne marche pas lorsque je donne : liste = [2;1] et n = 3
voici l'algo :
si la partie commence par x < n on ajoute x + 1 en tete,
– si la partie commence par n suivi de x, on enleve n et on remplace x par x+1 .
merci pour votre aide
Partager