name = 'memberBT/2' slug = 'poišči element v binarnem drevesu' description = '''\
memberBT(X, T)
: X
je element binarnega drevesa T
. Vozlišče v binarnem drevesu je predstavljeno s strukturo b(L, E, R)
, kjer sta L
in R
levo in desno poddrevo, E
pa je vrednost v tem vozlišču. Prazno drevo predstavlja atom nil
.
?- memberBT(X, b(b(nil,2,nil),1,b(nil,3,nil))). X = 1 ; X = 2 ; X = 3.''' hint = {}