代码之家 › 专栏 › 技术社区 › Danor

n元树的深度OCaml

depth ocaml functional-programming tree

Danor · 技术社区 · 7 年前

我必须只使用函数范式计算OCaml中n元树的深度,而不使用外部自制函数。结构如下:

type nTree = 
  Id of int
  | Leaf of string
  | Tree of string * string * nTree list

下面是我的结果:

  let rec height t = match t with
     | Id _ -> 0
     | Leaf _ -> 0
     | Tree(_,_,n) -> if n = [] then 1
                      else let e::r = n in max 
                      (List.fold_left (fun acc x -> acc + height x) 1 [e])
                      (List.fold_left (fun acc x -> acc + height x) 1 r)

这很管用,但我觉得很难看 e::r 位由于与 [] 图案有没有办法让这个警告变得免费和“漂亮”?

谢谢!

1 回复 | 直到 4 年前

Bergi 7 年前

这个 e::r 位由于与 [] 图案

你只需要使用模式匹配而不是 if :

match n with
  | [] -> 1
  | e::r -> â¦

但实际上根本没有必要区分这些。你应该这样做

  let rec height = function
     | Id _ -> 0
     | Leaf _ -> 0
     | Tree(_,_,n) -> 1 + List.fold_left max 0 (List.map height n)

推荐文章

root · 计数算法

2 年前

Ash · 递归列表拆分和索引

3 年前

Someone · 如何实际删除节点?

3 年前

bb ef · 如何使用递归从列表中删除某些内容?python

7 年前

Linkmaster · 在用于BST的类中是否可能有类成员变量BST?

7 年前

Adam Morad · 方案更改树值

7 年前

A Akshat · 如何为函数中的结构分配动态内存插槽,该结构可以从程序中的任何位置访问

7 年前

johnny 5 · 角度将ViewChild绑定到类中的属性

7 年前

user2467011 · 为什么给定的二叉树是用空节点构造的?

7 年前

Yuki.kuroshita · 从二叉树中删除节点及其所有子节点,而不使用树数据结构

7 年前