Equilibrium index: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,423: / Line 2,423: @@
 =={{header|Quackery}}==
-<syntaxhighlight lang="Quackery">  [ [] 0 rot
+<syntaxhighlight lang="Quackery">  [ dip [ [] [] 0 ]
     witheach
       [ + dup dip join ]
+    over [] swap
-    drop ]               is cumsum     ( [ --> [ )
-  [ [] over cumsum
-    rot reverse cumsum
     witheach
-      [ over i peek = if
+      [ dip over - join ]
-          [ i rot join
+    join -1 split drop
+    witheach
-            swap ] ]
+      [ over i^ peek = if
-    drop ]               is equilibria (   --> [ )
+          [ dip [ i^ join ] ] ]
+    drop ]                      is equilibria (   --> [ )
   ' [ -7 1 5 2 -4 3 0 ] equilibria echo</syntaxhighlight>