Set consolidation: Difference between revisions

m
→‎{{header|Quackery}}: simplified code
m (→‎{{header|Quackery}}: simplified code)
m (→‎{{header|Quackery}}: simplified code)
Line 2,306:
2drop say "} " ] is echoset ( { --> )
 
[ [] swap dup size 1 - times
[ dup size[ 1behead -over timeswitheach
[ behead2dup over& witheachiff
[ 2dup| swap &i^ iffpoke
[] |conclude swap i^ poke]
else [] concludedrop ]
swap dip else dropjoin ]
join ] swap dip join ] ] is consolidate ( [ --> [ )
join ] is consolidate ( [ --> [ )
 
[ dup witheach echoset
1,467

edits