Sorting algorithms/Quicksort: Difference between revisions
→{{header|Erlang}}
m (Redundant cat link) |
|||
Line 251:
writefln(quickSort(a2));
}
=={{header|Erlang}}==
like haskell
qsort([]) -> [];
qsort([X|Xs]) ->
qsort([ Y || Y <- Xs, Y < X]) ++ [X] ++ qsort([ Y || Y <- Xs, Y >= X]).
=={{header|Forth}}==
| |||