Set consolidation: Difference between revisions

m
→‎{{header|Quackery}}: simplified code
(Added Quackery.)
m (→‎{{header|Quackery}}: simplified code)
Line 2,298:
=={{header|Quackery}}==
 
<syntaxhighlight lang="Quackery"> [ 0 swap witheach [ bit | ] ] is ->set ( $ --> { )
[ 0 swap witheach [ bit | ] ] is ->set ( $ --> { )
 
[ say "{" 0 swap
Line 2,305 ⟶ 2,306:
[ over emit ]
1 >> dip 1+ again ]
2drop say "} " ] is echoset ( { --> )
 
[ dup size 2 < if done
[ dup size 1 - times
[ truebehead temp putover
behead over
witheach
[ 2dup & iff
[ | swap i^ poke
false[] tempconclude replace]
conclude ]
else drop ]
temp take if join ] ] ] is consolidate ( [ --> [ )
 
[ dup witheach echoset
say "--> "
consolidate witheach echoset
cr ] is task ( [ --> )
 
$ "AB" ->set
1,467

edits