Хабр Курсы для всех
РЕКЛАМА
Большая витрина: от крупнейших школ до частных авторов. Сравнивайте по цене, длительности, формату и выбирайте самый подходящий курс!
h_T=1, h_(i+1)<h_i
<sub> </sub>для нижнего индекса.

let rec quicksort = function
| [] -> []
| h::t -> quicksort ([ for x in t do if x<=h then yield x])
@ [h] @ quicksort ([ for x in t do if x>h then yield x]);;
Ещё раз про сортировку