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