Set consolidation: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,306: / Line 2,306: @@
 drop say "} " ]             is echoset     ( { -->   )
-  [ [] swap
+  [ [] swap dup size 1 - times
-    [ dup size 1 - times
+      [ behead over witheach
-        [ behead over witheach
+          [ 2dup & iff
-            [ 2dup & iff
+              [ | swap i^ poke
-                [ | swap i^ poke
+                [] conclude ]
-                  [] conclude ]
+            else drop ]
-              else drop ]
+           swap dip join ]
-            swap dip join ] ]
+    join ]                       is consolidate ( [ --> [ )
-      join ]                     is consolidate ( [ --> [ )
   [ dup witheach echoset