Equilibrium index: Difference between revisions

<syntaxhighlight lang="Quackery"> [ ' [] 0 ] swaprot

[ over+ -1dup peek +dip join ]

behead drop ] is cumsum ( [ --> [ )

[ [] swap dupover cumsum

swaprot reverse cumsum

reverse witheach

[ dipover beheadi peek = if

[ dip [ i^ rot join ] ] ]

drop ] swap ] is equilibria ( --> [ )]

' [ -7 1 5 2 -4 3 0 ] equilibria echo</syntaxhighlight>