Jensen's Device: Difference between revisions
Added Arturo implementation
Catskill549 (talk | contribs) (added AWK) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 260:
</lang>
=={{header|Arturo}}==
<lang rebol>harmonicSum: function [variable, lo, hi, term][
result: new 0.0
loop lo..hi 'n ->
'result + do ~"|variable|: |n| |term|"
result
]
print ["harmonicSum 1->100:" harmonicSum 'i 1 100 {1.0 / i}]</lang>
{{out}}
<pre>harmonicSum 1->100: 5.187377517639621</pre>
=={{header|AWK}}==
<lang AWK>
| |||