17 lines
369 B
Text
17 lines
369 B
Text
x = FNaccumulator(1)
|
|
dummy = FN(x)(5)
|
|
dummy = FNaccumulator(3)
|
|
PRINT FN(x)(2.3)
|
|
END
|
|
|
|
DEF FNaccumulator(sum)
|
|
LOCAL I%, P%, Q%
|
|
DIM P% 53 : Q% = !^FNdummy()
|
|
FOR I% = 0 TO 49 : P%?I% = Q%?I% : NEXT
|
|
P%!I% = P% : sum = FN(P%+I%)(sum)
|
|
= P%+I%
|
|
|
|
DEF FNdummy(n)
|
|
PRIVATE sum
|
|
sum += n
|
|
= sum
|