Factorial Func

[Joke758 1]

Global $e = 1
Global $n = 0
While not @error
    $e = $e + 1/factorial($n)
    $n = $n + 1
WEnd
Msgbox ( 0, "hey", $e )

Func factorial($number)
    Local $n = 1
    
    For $i = 1 to $number
        $n = $n*$i
    Next
    
    If $n = 0 Then
        SetError ( 1 )
        Return -1
    Else
        Return $n
    EndIf
EndFunc

the example calculate the number e approximately.

Edited December 4, 2006 by Joke758