IC
Size: a a a
IC
ДБ
ДБ
ДБ
let bubbleSortDesc selector (source: seq<_>) = seq {
let source = source.ToList()
while source.Count > 0 do
let (index, item) = source |> Seq.indexed |> Seq.maxBy (snd >> selector)
source.RemoveAt index
yield item
}IC
IC
ДБ
IC