Sorting algorithms/Strand sort: Difference between revisions
Content deleted Content added
Racket version |
→{{header|Perl 6}}: minor shortening: factoring take |
||
Line 810:
gather {
while @x and @y {
take do given @x[0] cmp @y[0] {
when Increase {
when Decrease {
when Same {
}
}
|