equilibrium-indices ( seq -- indices )


Vocabulary
rosetta-code.equilibrium-index

Inputs
seqan object


Outputs
indicesan object


Definition
USING: kernel math.statistics math.vectors sequences ;

IN: rosetta-code.equilibrium-index

: equilibrium-indices ( seq -- indices )
[ cum-sum0 ] [ <reversed> cum-sum0 <reversed> ] bi v=
t swap indices ;