Задача по бинарным деревьям

@Mishanya2714 · Регистрация: 29.11.2013

Author24 — интернет-сервис помощи студентам

Надо собрать в список имена всех узлов дерева, лежащих на заданной глубине.
Вот программа, но она почему то не работает, не могу ошибку найти.

Prolog

pred1(Tree,Deep,[]):-
    atomic(Tree),
    not(Deep=1).
 
pred1(Tree,1,Node):-
    Tree=..[Node|_].
 
pred1(Tree,Deep,List):-
    Tree=..[Name,Left|Q],
    Rtree=..[Name|Q],
    Deep1 is Deep - 1,
    pred1(Left,Deep1,List);
    pred1(Rtree,Deep,List).
 
pred(Tree,Deep,List):-
    findall(X,
        pred1(Tree,Deep,Q),
        List).

@Грымзик · 21.12.2013, 19:18

Так можно

Prolog

pred(Tree,1,[X]):-!, Tree=..[X|_].
pred(Tree,H,Ans):-Tree=..[_|Sons],H1 is H-1,
    pred_list(Sons,H1,Ans).
 
pred_list([],_,[]).
pred_list([Head|Tail],H,Ans):-pred_list(Tail,H,AnsTail),
    pred(Head,H,AnsHead),append(AnsHead, AnsTail,Ans).

Это для любых, необязательно бинарных.

@Mishanya2714 · 23.12.2013, 02:15 **[ТС]**

Грымзик, спасибо, работает)

@Mishanya2714 0 / 0 / 0 Регистрация: 29.11.2013 Сообщений: 3
	23.12.2013, 02:15 [ТС]	3
	Грымзик, спасибо, работает) 0

Опции темы