tree_height

one of the documented procedures in this installation of the ACS
Usage:
tree_height   tree
What it does:
returns the height of a tree
Defined in: /web/philip/tcl/ad-trees.tcl

Source code:


    if { [empty_string_p $tree] } { return 0 }
    expr 1+[fold tree_max 0 [map tree_height [tail $tree]]]


philg@mit.edu