Sorting algorithms/Pancake sort: Difference between revisions
Added Quackery
(Updated to work with version 1.4 of Nim.) |
(Added Quackery) |
||
Line 2,944:
Pancake Sorted List: '1 2 3 4 5 6 7 8 9'</pre>
=={{header|Quackery}}==
<lang Quackery>[ split reverse join ] is flip ( [ n --> [ )
[ 0 swap behead swap
witheach
[ 2dup > iff
[ nip nip
i^ 1+ swap ]
else drop ]
drop ] is smallest ( [ --> n )
[ dup size times
[ dup i^ split nip
smallest i^ + flip
i^ flip ] ] is pancakesort ( [ --> [ )</lang>
'''Testing in Quackery shell:'''
<pre>/O> [] 23 times [ 10 random join ]
... say "Before: " dup echo cr
... say " After: " pancakesort echo cr
...
Before: [ 1 2 1 5 5 9 7 1 2 3 9 1 9 2 5 0 5 2 6 0 8 3 2 ]
After: [ 0 0 1 1 1 1 2 2 2 2 2 3 3 5 5 5 5 6 7 8 9 9 9 ]
Stack empty.</pre>
=={{header|Racket}}==
| |||