Question

我正在尝试查找在二叉树中放置在偶数级别的所有元素并将它们放在列表中。这就是我的尝试：

concat([],L,L).
concat([H|T], L, [L|LRez]) :- concat(T,L,LRez).

find(R, t(_, R, _), 0).
find(X, t(S, R, D),P) :- X < R, find(X, S, P1), P is P1+1.
find(X, t(S, R, D),P) :- X >= R,find(X, D, P2), P is P2+1.

level(T, LRrez):- lvl(T, T, LRez).
lvl(nil, nil, []).
lvl(T, t(S,R,D),[R|LRez] ) :- find(R,T,P), even(P), lvl(T, S, LRez1), lvl(T,D,LRez2), 
                        concat(LRez1,LRez2,Lrez).
lvl(T,t(S,R,D),LRez) :- find(R,T,P), \+even(P), lvl(T, S, LRez1), lvl(T, D,LRez2), 
                        concat(LRez1,LRez2,Lrez).

我使用find来查找树中数字的级别，我甚至在之前定义过。这不起作用。提前谢谢。

Answer 1

使用dcg！

如果DCG对您来说不熟悉，可以通过阅读Markus Triska内容翔实而简洁的DCG Primer来快速启动。

take_even(nil)      --> [].
take_even(t(L,M,R)) --> [M], skip_odd(L), skip_odd(R).

skip_odd(nil)      --> [].
skip_odd(t(L,_,R)) --> take_even(L), take_even(R).

示例查询：

?- phrase(take_even(t(nil,0,t(nil,1,t(nil,2,nil)))), Es).
Es = [0, 2].

在Prolog中找到二叉树均匀级别的元素

1 个答案: