Sorting algorithms/Counting sort: Difference between revisions
→{{header|Quackery}}: simplified
(Added Quackery.) |
(→{{header|Quackery}}: simplified) |
||
Line 2,619:
=={{header|Quackery}}==
<lang Quackery> [ 2dup peek 1+
unrot poke ] is [1+] ( [ n --> [ )▼
▲ unrot poke ] is [1+] ( [ n --> [ )
[ 1+ dip tuck -
Line 2,631 ⟶ 2,630:
negate swap
[] swap witheach
[ dip [ over i^ + ]
of join ]
nip ] is csort ( [ n n --> [ )
[] 15 times
Line 2,645 ⟶ 2,643:
{{out}}
<pre>Before: [
After: [ 10 10
=={{header|R}}==
|