Jensen's Device: Difference between revisions
Content added Content deleted
Catskill549 (talk | contribs) (added AWK) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
| Line 260: | Line 260: | ||
</lang> |
</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}}== |
=={{header|AWK}}== |
||
<lang AWK> |
<lang AWK> |
||