16 lines
344 B
Text
16 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
|