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

OCaml二叉树镜像

mirror binary-tree ocaml

Sean · 技术社区 · 8 年前

我正在为一个班学习OCaml,并被分配了一个计算二叉树镜像的任务。我很困,甚至不知道如何开始。。。

type btree = Empty | Node of int * btree * btree
;;

let mirror : btree -> btree
  = fun t -> (* Code *)

样本输入:

let tree1 = Node(1, Node(2, Node(3, Empty, Empty), Empty), Node(4, Empty, Empty))
;;

mirror tree1 = Node(1, Node(4, Empty, Empty), Node(2, Empty, Node(3, Empty, Empty)))
;;

1 回复 | 直到 8 年前

Jin 8 年前

使用 match 特色

火柴 根据其类型定义的值结构。在您的示例中 btree 类型是使用 Empty 的构造函数或元组构造函数 Node of int * btree * btree . 你应该得到这样的结果:

...
match t with
| Node (num, lt, rt) -> (* do something to switch the subtrees, and mirror the subtrees themselves *)
| Empty -> (* do nothing *)
...

自从 mirror btree -> btree ,每个匹配案例都必须返回类型为的有效值 B树 .

请参阅: http://ocaml.org/learn/tutorials/data_types_and_matching.html#Pattern-matching-on-datatypes

推荐文章

Ash · 递归列表拆分和索引

3 年前

Tuna ArÄ±yÃ¼rek · “结构对象*对象”和“对象*对象”之间的区别

3 年前

Zevvysan · 为什么我的打印函数之一要删除节点?

7 年前

codingBoy · 使用python进行二叉树修剪[postorder方法不起作用]

7 年前

user9573040 · 递归二叉树高度

7 年前

Dipesh Desai · 在二叉树haskell中搜索值

7 年前

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

7 年前

MMelvin0581 · 为什么在我的LinkedBinaryTree实现中只添加根目录

7 年前

Shuklaswag · 为什么我们要通过堆而不是二进制搜索树进行排序?

7 年前

ibrahim · “main”已停止工作-C++[开发人员++]

7 年前