Set consolidation: Difference between revisions
Content deleted Content added
Added Quackery. |
m →{{header|Quackery}}: simplified code |
||
Line 2,298:
=={{header|Quackery}}==
<syntaxhighlight lang="Quackery">
[ 0 swap witheach [ bit | ] ] is ->set ( $ --> { )
[ say "{" 0 swap
Line 2,305 ⟶ 2,306:
[ over emit ]
1 >> dip 1+ again ]
2drop say "} " ]
[ dup size 2 < if done
[ dup size 1 - times
[
witheach
[ 2dup & iff
[ | swap i^ poke
else drop ]
[ dup witheach echoset
say "--> "
consolidate witheach echoset
cr ]
$ "AB" ->set
|