4 people like it.

Factorial

Factorial versus tail recursion

1: 
2: 
3: 
4: 
5: 
6: 

let factorial x = 
    let rec util(value, acc) = 
        match value with
        |0 | 1 -> acc
        | _    -> util(value - 1, acc * value)
    util(x,1)
val factorial : x:int -> int

Full name: Script.factorial
val x : int
val util : (int * int -> int)
val value : int
val acc : int
Raw view Test code New version

More information

Link:http://fssnip.net/fk
Posted:12 years ago
Author:Laco
Tags: tail recursion , factorial

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.