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>

  1. 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>