tree_width

one of the documented procedures in this installation of the ACS

Usage:

tree_width tree

What it does:

returns the width of a tree

Defined in: /web/philip/tcl/ad-trees.tcl

Source code:


    if { [empty_string_p $tree] } { return 0 }
    tree_max 1 [sum [map tree_width [tail $tree]]]