Sorting algorithms/Strand sort: Difference between revisions
m
→{{header|Quackery}}: tweaked code
(Added Quackery.) |
m (→{{header|Quackery}}: tweaked code) |
||
Line 1,631:
=={{header|Quackery}}==
<syntaxhighlight lang="Quackery"> [ []
1 split witheach
[ over -1 peek▼
over > iff▼
[ swap dip join ]▼
[ dup [] != while
over [] != while
Line 1,646 ⟶ 1,653:
[ [] swap
▲ [ over -1 peek
▲ over > iff
▲ [ swap dip join ]
▲ else join ] ] is unbraid ( [ --> [ [ )
▲ [ [] swap
rot merge swap
dup [] = until ]
| |||