Числа Фибоначчи в F#

Пример для версий fsharp 2.0.0

Используется рекурсивное определение чисел Фибоначчи “в лоб”.

let rec fibonacci n =
    match n with
    | 1 | 2 -> 1
    | _ -> fibonacci (n-1) + fibonacci (n-2)

let rec printFib n  =
    match n with 
    | 1 -> printf "%d, " (fibonacci (n))
    | _ -> printFib (n-1)
           printf "%d, " (fibonacci (n))
           
printFib(16)
printfn "..."

Числа Фибоначчи в F#

Комментарии