Equilibrium index: Difference between revisions
Added Arturo implementation
MaiconSoft (talk | contribs) m (Added Delphi reference to Pascal code) |
Drkameleon (talk | contribs) (Added Arturo implementation) |
||
Line 493:
{{Out}}
<pre>{{3, 6}, {}, {1}, {0, 1, 2, 3, 4, 5, 6}, {0}, {}}</pre>
=={{header|Arturo}}==
<lang rebol>eqIndex: function [row][
suml: 0
delayed: 0
sumr: sum row
result: new []
loop.with:'i row 'r [
suml: suml + delayed
sumr: sumr - r
delayed: r
if suml = sumr -> 'result ++ i
]
return result
]
data: @[
@[neg 7, 1, 5, 2, neg 4, 3, 0]
@[2 4 6]
@[2 9 2]
@[1 neg 1 1 neg 1 1 neg 1 1]
]
loop data 'd ->
print [pad.right join.with:", " to [:string] d 25 "=> equilibrium index:" eqIndex d]</lang>
{{out}}
<pre>-7, 1, 5, 2, -4, 3, 0 => equilibrium index: [3 6]
2, 4, 6 => equilibrium index: []
2, 9, 2 => equilibrium index: [1]
1, -1, 1, -1, 1, -1, 1 => equilibrium index: [0 1 2 3 4 5 6]</pre>
=={{header|AutoHotkey}}==
| |||