Sorting algorithms/Quicksort: Difference between revisions

=={{header|Lucid}}==

qsort(a) = if eof(first a) then a else follow(qsort(b0),qsort(b1)) fi

where

p = first a < a;

b0 = a whenever p;

b1 = a whenever not p;

follow(x,y) = if xdone then y upon xdone else x fi

where

xdone = iseod x fby xdone or iseod x;

end;

end