0 people like it.

fibbonaci 

 1: 
 2: 
 3: 
 4: 
 5: 
 6: 
 7: 
 8: 
 9: 
10: 
11: 

let fib n =
    match n with
    | 1 -> 1
    | 2 -> 1
    | _ when n <= 1 -> 0
    | _ ->
        let rec iter a b i =
            if i=n then a+b
            else iter b (a+b) (i+1)
        in  
        iter 1 1 3
val fib : n:int -> int

Full name: Script.fib
val n : int
val iter : (int -> int -> int -> int)
val a : int
val b : int
val i : int
Raw view Test code New version

More information

Link:http://fssnip.net/ad
Posted:14 years ago
Author:
Tags:

This web site is created using F# and Suave web server. It is hosted on Azure and the source code is on GitHub. Contributions are welcome!

The first version of fssnip.net has been created by @tomaspetricek back in 2010. This web site is a new, open-source and contribution-friendly version.