14 lines
216 B
Text
14 lines
216 B
Text
func[] equind a[] .
|
|
for v in a[]
|
|
sumr += v
|
|
.
|
|
for i to len a[]
|
|
sumr -= a[i]
|
|
if suml = sumr
|
|
r[] &= i
|
|
.
|
|
suml += a[i]
|
|
.
|
|
return r[]
|
|
.
|
|
print equind [ -7 1 5 2 -4 3 0 ]
|