RosettaCodeData/Task/Jensens-Device/Nim/jensens-device.nim
2016-12-05 23:44:36 +01:00

9 lines
180 B
Nim

var i: int
proc harmonicSum(i: var int, lo, hi, term): float =
i = lo
while i <= hi:
result += term()
inc i
echo harmonicSum(i, 1, 100, proc: float = 1.0 / float(i))