Difference between revisions of "Alt e.pl"
From Organic Design wiki
m |
|||
Line 8: | Line 8: | ||
$top = $top * $n + $y; | $top = $top * $n + $y; | ||
$bot = $bot * $n; | $bot = $bot * $n; | ||
− | + | } | |
return $top / $bot; | return $top / $bot; | ||
− | + | } | |
</perl> | </perl> | ||
+ | [[Category:PERL]] |
Revision as of 13:20, 8 December 2011
<perl>
- Returns e^x from e( x, iterations )
sub e { $x = $y = shift; $top = $bot = 1; for $n ( 1 .. shift ) { $y = $y + $x; $top = $top * $n + $y; $bot = $bot * $n; } return $top / $bot; } </perl>