함수형 버블소트 짧은 버젼은 없냐??

[허허(59.5)]

내 머리로는 아무리 생각을 쥐어짜도

안되는거 같다.

[codesafer(codesafer)]

bsort :: Ord a => [a] -> [a] bsort s = case _bsort s of t | t == s -> t | otherwise -> bsort t where _bsort (x:x2:xs) | x > x2 = x2:(_bsort (x:xs)) | otherwise = x:(_bsort (x2:xs)) _bsort s = s

[codesafer(codesafer)]

https://rosettacode.org/wiki/Sorting_algorithms/Bubble_sort#Haskell