Equilibrium index: Difference between revisions

Content added Content deleted
(→‎{{header|jq}}: shave off one line)
Line 1,528: Line 1,528:
. as $in
. as $in
| add as $add
| add as $add
| foreach range(0;length) as $i (
| if 0 == $add - .[0] then 0 else empty end,
[0, 0, $add]; # [before, pivot, after]
foreach range(1;length) as $i (
[0, .[0], $add - .[0]]; # [before, pivot, after]
$in[$i] as $x | [.[0]+.[1], $x, .[2] - $x];
$in[$i] as $x | [.[0]+.[1], $x, .[2] - $x];
if .[0] == .[2] then $i else empty end) ;
if .[0] == .[2] then $i else empty end) ;