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”'一个丛林 - ＆gt;单位，按照从左到右的原则显示灌木丛的长度！

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))