RosettaCodeData/Task/Equilibrium-index/AutoHotkey/equilibrium-index-1.ahk
2023-07-01 13:44:08 -04:00

14 lines
293 B
AutoHotkey

Equilibrium_index(list, BaseIndex=0){
StringSplit, A, list, `,
Loop % A0 {
i := A_Index , Pre := Post := 0
loop, % A0
if (A_Index < i)
Pre += A%A_Index%
else if (A_Index > i)
Post += A%A_Index%
if (Pre = Post)
Res .= (Res?", ":"") i - (BaseIndex?0:1)
}
return Res
}