Set consolidation: Difference between revisions
m
→{{header|Quackery}}: simplified code
(→{{header|Quackery}}: corrected output) |
m (→{{header|Quackery}}: simplified code) |
||
Line 2,298:
=={{header|Quackery}}==
<syntaxhighlight lang="Quackery"> [ 0 swap witheach
[ say "{" 0 swap
Line 2,307:
[ [] swap
[ dup size 1 - times
[ behead over witheach
[ 2dup & iff
[ | swap i^ poke
[] conclude ]
else drop ]
swap dip join ] ]
join ] is consolidate ( [ --> [ )
Line 2,338 ⟶ 2,336:
$ "DB" ->set join
$ "FGH" ->set join
task</syntaxhighlight>
| |||