<<Vilcretas`

GrafoString["Bienvenido"]

arbol = ArbolBinarioBusqueda["no esperes nunca va a ser el momento adecuado"]

Postfijo[arbol,"no"]

?ArbolBinarioBusqueda

arbol2 = ArbolBinarioBusqueda["no esperes nunca va a ser el momento adecuado", direction->True]

Prefijo[arbol, "no"]

?AlDijkstra

?Altura

arbol=Arbol[{{1,8},{2,3},{2,17},{4,5},{4,20},{5,6},{6,11},{7,10},{7,13},{7,14},{8,9},{8,18},{8,19},{11,19},{12,19},{13,17},{14,16},{15,16},{15,19}}]
Hojas[arbol]
Altura[arbol,16]

?Arbol

KArbolCompletoNivel[4,5]