Сортировка простым выбором

Сортировка простым выбором

let sortBySimpleSelection () =
    let a  = [|9;8;7;6;5;4;3;2;1;0|]
    for i = 0 to a.Length - 2 do
        let mutable k = i
        let mutable x = a.[k]
        for j = i + 1 to a.Length - 1 do
            if a.[j] < x then k <- j; x <- a.[k] else ()
        a.[k] <- a.[i]
        a.[i] <- x
    printfn "%A" a

do sortBySimpleSelection ()

Комментарии