2 people like it.

Fibonacci

fibonacci by Seq.Unfold

1: 

let fibonacci = Seq.unfold(fun (x,y) -> Some(x, (x + y, x))) (0,1)
val fibonacci : seq<int>

Full name: Script.fibonacci
module Seq

from Microsoft.FSharp.Collections
val unfold : generator:('State -> ('T * 'State) option) -> state:'State -> seq<'T>

Full name: Microsoft.FSharp.Collections.Seq.unfold
val x : int
val y : int
union case Option.Some: Value: 'T -> Option<'T>
Raw view Test code New version

More information

Link:http://fssnip.net/fl
Posted:12 years ago
Author:Laco
Tags: fibonacci , unfold

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.