Une question technique:
J'utilise un arbre de chez Data.Tree:
data Item = I | X
deriving (Eq, Show, Ord)
type Jeu = [Item]
data MyTree = Tree Jeu
Je souhaite élaguer cet arbre à l'aide d'une fonction prune:
prune :: Jeu -> Bool
Je souhaite faire ce parcours à l'aide d'une fonction de la bibliothèque
genre fmap...