.net - .Net 链表大小

Question

如何使用 F# 中的函数找到链表的大小（元素数量）？

我想找到如下链表的大小：

type rNumber = Integer of int;;
type lists = Nil | Link of (rNumber * (lists ref));;

let list1 = Link(3, ref (Link(2), ref Nil);
let list2 = Link(6, ref (Link(4), ref Nil);
let list3 = Link(9, ref (Link(6), ref Nil);

Answer 1

问题是模式匹配只知道标准 .Net 列表。如果您Link只是一个元组，这将起作用

let rec length a = 
    match a with
    |Link(_,ref Nil) 0 -> 1
    |Link(_,t) -> 1+(length t)

编辑：

现在我们知道Link这应该是如何工作的

let rec length a = 
    match a with
    |Nil -> 0
    |Link(_,t) -> 1+(length (!t))

!是必需的，因为您lists ref在定义中使用它不是特别实用。