Prolog

Fermé
cesar - Modifié par cesar le 18/12/2011 à 05:16
Bonjour,
je dois traduire, cette fonction en prolog, et je n arrive absolument pas

Fonctionfunction lookup (tag, node, trail)
if tag = node then [tag : trail]) -- si c'est une feuille atomique
elsif tag = tag(node) then concatenate (flatten (left(node)),
flatten (right(node)),
[tag : trail])
elsif result := lookup (tag, left(node), [tag(node) : trail]) then result
else lookup (tag, right(node), [tag(node) : trail])

Probleme
lookup (Tag, Tree, Tags) :- lookup2 (Tag, Tree, [], Tags).

lookup2 (Tag, Tree, Trail, Tags) :-


merci