F#对斐波那契数列求和

如题,1+1+2+3+5+8+13+…?

let sumfib n =
    let rec fib x =
        match x with
        | 1 -> 1
        | 2 -> 1
        | x -> fib(x-2)+fib(x-1)   
    let rec addfib x =
        match x with
        | 1 -> 1
        | x -> fib (x)+ addfib (x-1)   
    addfib n

cool!

文章来自: 本站原创
引用通告地址: http://www.51pad.cn /Trackback-FSharp-20100811-257.html
Tags: DongPad