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 = {}