Jensen's Device: Difference between revisions
→RPL entry
(Added Euler) |
|||
Line 1,533:
<pre>
5.18737751763962
</pre>
=={{header|RPL}}==
{{works with|Halcyon Calc|4.2.7}}
≪ → idx lo hi term
≪ lo idx STO 0
DO
term EVAL +
1 idx STO+
UNTIL idx EVAL hi > END
idx PURGE
≫
≫
‘SUM’ STO
'K' 1 100 '1/K' SUM
'N' 0 100 '1/FACT(N)' SUM
{{out}}
<pre>
2: 5.18737751764
1: 2.71828182846
</pre>
| |||