.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并不是特别有效。