Biocaml 0.4-dev : Biocaml_interval_tree.cardinal

let rec cardinal = function
| Empty -> 0
| Node n -> cardinal n.left + 1 + cardinal n.right

AltStyle によって変換されたページ (->オリジナル) /