15 lines
344 B
Text
15 lines
344 B
Text
DIM a(4)
|
|
a() = 1, 2, 3, 4, 5
|
|
PRINT FNreduce(a(), "+")
|
|
PRINT FNreduce(a(), "-")
|
|
PRINT FNreduce(a(), "*")
|
|
END
|
|
|
|
DEF FNreduce(arr(), op$)
|
|
REM!Keep tmp, arr()
|
|
LOCAL I%, tmp
|
|
tmp = arr(0)
|
|
FOR I% = 1 TO DIM(arr(), 1)
|
|
tmp = EVAL("tmp " + op$ + " arr(I%)")
|
|
NEXT
|
|
= tmp
|