18 lines
355 B
AppleScript
18 lines
355 B
AppleScript
set i to 0
|
|
|
|
on jsum(i, lo, hi, term)
|
|
set {temp, i's contents} to {0, lo}
|
|
repeat while i's contents ≤ hi
|
|
set {temp, i's contents} to {temp + (term's f(i)), (i's contents) + 1}
|
|
end repeat
|
|
return temp
|
|
end jsum
|
|
|
|
script term_func
|
|
on f(i)
|
|
return 1 / i
|
|
end f
|
|
end script
|
|
|
|
return jsum(a reference to i, 1, 100, term_func)
|