let rec qsort = function [] -> [] | hd :: tl -> let l, r = List.partition (fun x -> x < hd) tl in qsort l @ [hd] @ qsort r#justocamlthings #ocaml
let rec qsort = function [] -> [] | hd :: tl -> let l, r = List.partition (fun x -> x < hd) tl in qsort l @ [hd] @ qsort r