Sorting algorithms/Strand sort: Difference between revisions
Content added Content deleted
(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 {
}
}
|