Bonsoir à tous,
J'ai un petit problème concernant une liste de liste, en fait je parcours un quadtree (arbre ayant 4 feuilles de couleur blanche ou noire ou alors ce sont d'autre quadtree) et j'essaie de récupérer l'arbre dans une liste respectivement 1er noeud 2 eme noeud 4eme noeud et 3 eme noeud, cependant cela ne marche pas et je ne vois pas pourquoi voici mon code :
Avec ce code caml me dit que (aux d l) @ (aux c l) est de type 'a list et qu'il attend un 'a et qu'un 'a est présent au sein de 'a list, mais je ne comprends pas pourquoi il refuse de me donner un 'a list list, une aide me serait vraiment importante svp !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 let list_mat arb = let rec aux arb l = match arb with | Noeud(a,b,c,d) -> ((aux d l) @ (aux c l))::((aux a l) @ (aux b l)) | Feuille Blanc -> [0] | Feuille Noir -> [1] in aux arb [] ;; list_mat mat;;
Bonne soirée
Partager