14 lines
311 B
Text
14 lines
311 B
Text
[ dip [ [] [] 0 ]
|
|
witheach
|
|
[ + dup dip join ]
|
|
over [] swap
|
|
witheach
|
|
[ dip over - join ]
|
|
join
|
|
-1 split drop
|
|
witheach
|
|
[ over i^ peek = if
|
|
[ dip [ i^ join ] ] ]
|
|
drop ] is equilibria ( [ --> [ )
|
|
|
|
' [ -7 1 5 2 -4 3 0 ] equilibria echo
|