Anonymous user
Jensen's Device: Difference between revisions
m
move REXX to proper (alphabetical place).
m (→{{header|REXX}}: added the REXX language.) |
m (move REXX to proper (alphabetical place).) |
||
Line 590:
</lang>
=={{header|REXX}}==▼
<lang rexx>▼
/*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.)*/▼
exit▼
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>▼
=={{header|Ruby}}==
Line 607 ⟶ 622:
end
p sum2(1, 100) {|i| 1.0/i} # => 5.18737751763962</lang>
▲=={{header|REXX}}==
▲<lang rexx>
▲/*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.)*/
▲exit
▲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>
=={{header|Scala}}==
| |||