.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

Проблема заключается в определении соответствия образцов только знает о списке Standard .Net. Если ваш Link только кортеж это будет работать

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

EDIT:

Теперь мы знаем, как Link работы это следует сделать трюк

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

! требуется потому, что вы используете lists ref в вашем определении, которое не особенно функционально.