選択ソートのアルゴリズム

Doのループで選択ソートのアルゴリズムを実装する．

Wolfram Language code: list = RandomSample[Range[10], 10]

Wolfram Language code: Do[If[list[[i]] > list[[j]], list[[{i, j}]] = list[[{j, i}]]], {i, Length[list]}, {j, i + 1, Length[list]}];list