АВ
let client = lazy (MongoClient connString)
Size: a a a
АВ
let client = lazy (MongoClient connString)
МП
List.where (fun x -> x < pivot) l
МП
DB
DB
МП
МП
VS
DB
VS
VS
МП
МП
l |> List.where ^ fun x -> x < pivot
МП
|>
VS
МП
I
I
МП
МП
let rec quicksort l =
match l with
| [] | [_] -> l
| pivot::_ ->
let cmp op l = l |> List.where ^ fun x -> op x pivot
(cmp (<) >> quicksort <| l) @
cmp (=) l @
(cmp (>) >> quicksort <| l)