tree - Ocaml - 根据从左到深的原则打印灌木（如树）中树枝的长度

Question

我有一个 Ocaml 示例，我正在处理它。我需要按照从左到深的原则显示某种树中所有分支的长度。所以如果我们有这棵树：

     4

  2     6

1  3  5  7

我想显示树中所有分支的长度。你有什么想法吗？

我们有灌木类型，定义如下：

# type 'a bush = 
   Null
   | One of 'a * 'a bush
   | Two of 'a bush * 'a * 'a bush;;

写一个函数 "brancheslength" 'a bush -> unit，按照从左到深的原则显示灌木分支的长度！

Answer 1

根据您对分支长度的定义，您可以通过这种方式递归地遍历您的树：

let rec branches_length bush depth = match bush with
| Null -> [depth]
| One (a, b) -> (branches_length b (depth + 1))
| Two (a, b, c) -> (branches_length a (depth + 1))@(branches_length c (depth + 1))