Jensen's Device: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
(Updated to work with Nim 1.4: added missing parameter types. Changed result value.) |
||
Line 1,013: | Line 1,013: | ||
<lang nim>var i: int |
<lang nim>var i: int |
||
proc harmonicSum(i: var int |
proc harmonicSum(i: var int; lo, hi: int; term: proc: float): float = |
||
i = lo |
i = lo |
||
while i <= hi: |
while i <= hi: |
||
Line 1,021: | Line 1,021: | ||
echo harmonicSum(i, 1, 100, proc: float = 1.0 / float(i))</lang> |
echo harmonicSum(i, 1, 100, proc: float = 1.0 / float(i))</lang> |
||
Output: |
Output: |
||
<pre>5. |
<pre>5.5.187377517639621</pre> |
||
=={{header|Objeck}}== |
=={{header|Objeck}}== |