Difference between revisions of "E.pl"
From Organic Design wiki
(fix up code blocks) |
m |
||
Line 8: | Line 8: | ||
$bot = $bot * $n; | $bot = $bot * $n; | ||
$e = $e + $top / $bot; | $e = $e + $top / $bot; | ||
− | + | } | |
return $e; | return $e; | ||
− | + | } | |
</source> | </source> | ||
[[Category:PERL]] | [[Category:PERL]] |
Latest revision as of 13:43, 17 January 2016
# Returns e^x from e( x, iterations )
sub e {
$x = shift;
$e = $top = $bot = 1;
for $n ( 1 .. shift ) {
$top = $top * $x;
$bot = $bot * $n;
$e = $e + $top / $bot;
}
return $e;
}