Wszystko Wszystkie Archiwum japer japer 18.05.2015, 21:36:55 via iOS 6 + let rec qsort = function [] -> [] | hd :: tl -> let l, r = List.partition (fun x -> x < hd) tl in qsort l @ [hd] @ qsort r#justocamlthings #ocaml
japer japer 18.05.2015, 21:36:55 via iOS 6 + 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
#justocamlthings #ocaml