name = 'tolistBT/2' slug = 'vrni seznam elementov binarnega drevesa' description = '''\

tolistBT(T, L): seznam L vsebuje vse elemente binarnega drevesa T v infiksnem vrstnem redu.

?- tolistBT(b(b(nil,2,nil),1,b(nil,3,nil)), L).
  L = [2,1,3].
''' hint = {}