namespace Sanchime.Algrithm.Sort
[<AutoOpen>]
module Quick =
let rec qsort sorted = function
| [] -> []
| [x] -> [x]
| x::xs ->
let smaller,larger = xs |> List.partition (fun i -> sorted i x)
(qsort sorted smaller) @ [x] @ qsort sorted larger