Set consolidation: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,298: / Line 2,298: @@
 =={{header|Quackery}}==
-<syntaxhighlight lang="Quackery">  [ 0 swap witheach  [ bit | ] ]     is ->set       ( $ --> { )
+<syntaxhighlight lang="Quackery">
+  [ 0 swap witheach  [ bit | ] ] is ->set       ( $ --> { )
   [ say "{" 0 swap
@@ Line 2,305: / Line 2,306: @@
         [ over emit ]
 >> dip 1+ again ]
-drop say "} " ]                 is echoset     ( { -->   )
+drop say "} " ]             is echoset     ( { -->   )
   [ dup size 2 < if done
     [ dup size 1 - times
-        [ true temp put
+        [ behead over
-          behead over
           witheach
             [ 2dup & iff
                 [ | swap i^ poke
-                  false temp replace
+                  [] conclude ]
-                  conclude ]
               else drop ]
-        temp take if join ] ] ]      is consolidate ( [ --> [ )
+            join ] ] ]           is consolidate ( [ --> [ )
   [ dup witheach echoset
     say "--> "
     consolidate witheach echoset
-    cr ]                             is task        ( [ -->   )
+    cr ]                         is task        ( [ -->   )
   $ "AB" ->set