11 lines
221 B
Text
11 lines
221 B
Text
PRINT FNsum(j, 1, 100, FNreciprocal)
|
|
END
|
|
|
|
DEF FNsum(RETURN i, lo, hi, RETURN func)
|
|
LOCAL temp
|
|
FOR i = lo TO hi
|
|
temp += FN(^func)
|
|
NEXT
|
|
= temp
|
|
|
|
DEF FNreciprocal = 1/i
|