11 lines
242 B
Text
11 lines
242 B
Text
function sumr(integer lo, hi, rid)
|
|
atom res = 0
|
|
for i=lo to hi do
|
|
res += call_func(rid,{i})
|
|
end for
|
|
return res
|
|
end function
|
|
|
|
function reciprocal(atom i) return 1/i end function
|
|
|
|
?sumr(1, 100, routine_id("reciprocal"))
|