Anonymous user
Sorting algorithms/Quicksort: Difference between revisions
→{{header|Fsharp}}
No edit summary |
|||
Line 503:
qsort([X|Xs]) ->
qsort([ Y || Y <- Xs, Y < X]) ++ [X] ++ qsort([ Y || Y <- Xs, Y >= X]).</lang>
=={{header|F_sharp|F#}}==
<lang fsharp>
let rec qsort = function
[] -> []
| x::xs ->
qsort [for a in xs do if a < x then yield a]@x::
qsort [for a in xs do if a >= x then yield a]
</lang>
=={{header|Factor}}==
| |||