Anonymous user
Jensen's Device: Difference between revisions
m
→{{header|REXX}}: removed superflous blanks. -- ~~~~
mNo edit summary |
m (→{{header|REXX}}: removed superflous blanks. -- ~~~~) |
||
Line 730:
=={{header|REXX}}==
<lang rexx>/*REXX program to demonstrate Jensen's device (call sub, arg by name). */▼
▲/*REXX program to demonstrate Jensen's device (call sub, arg by name). */
numeric digits 50 /*might as well get some accuracy.*/
say sum( 'i', '1', '100', '1/i' ) /*invoke SUM (100th harmonic num.)*/
Line 738 ⟶ 737:
sum: procedure; parse arg i,start,finish,term; sum=0
interpret 'do' i'='start 'to' finish';sum=sum+'term';end'
return sum</lang>
'''output'''
▲<pre style="height:5ex;overflow:scroll">
5.1873775176396202608051176756582531579089721267080
</pre>
| |||