むしゃくしゃしてやった、デバッグはしていない void bubble_sort(int xs[], int length) { for(int i = 0; i < length - 1; i++) { for(int j = i + 1; j < length; j++) { if(xs[i] > xs[j]) { int t = xs[i]; xs[i] = xs[j]; xs[j] = t; } } } }

Haskellでソートを書く ソートと言ってもIO絡まないのですぐできたsort import Data.List main = do contents <- getContents putStr $ unlines $ sort $ lines contents reverse import Data.List main = do contents <- getContents putStr $ unlines $ re…