13 lines
334 B
Text
13 lines
334 B
Text
DIM list(6)
|
|
list() = -7, 1, 5, 2, -4, 3, 0
|
|
PRINT "Equilibrium indices are " FNequilibrium(list())
|
|
END
|
|
|
|
DEF FNequilibrium(l())
|
|
LOCAL i%, r, s, e$
|
|
s = SUM(l())
|
|
FOR i% = 0 TO DIM(l(),1)
|
|
IF r = s - r - l(i%) THEN e$ += STR$(i%) + ","
|
|
r += l(i%)
|
|
NEXT
|
|
= LEFT$(e$)
|