name = 'depthBT/2' slug = 'poišči globino binarnega drevesa' description = '''\
depthBT(T, D): D je globina binarnega drevesa T.
depthBT(T, D)
D
T
?- depthBT(b(b(b(nil,4,nil),2,b(nil,6,nil)),1,nil), D). D = 3.