F#实现的单链表（函数式的思想）

// 在 http://fsharp.net 上了解有关 F# 的更多信息

// 请参阅“F# 教程”项目以获取更多帮助。



type list = 

    | Nil 

    | Cons of int * list



let x = Cons(1, Cons(2, Cons(3, Cons(4, Nil))))



//let rec printlist l= 

//    match l with

//    | Nil -> ()

//    | Cons(a, l') -> printfn "%d" a; printlist l'



//打印程序，可通过提供不同的函数f，实现不同的打印方式

let rec printlist l f=

    match l with

    | Nil -> ()

    | Cons(a, l') ->

    ((if f a then printfn "%d" a else ()); printlist l' f)



[<EntryPoint>]

let main argv = 

    printlist x (fun x-> true)

    printlist x (fun x -> x>2)

    System.Console.ReadLine()

    0 // 返回整数退出代码