bubble sort

bubble-sort.hs

import Data.List

bubble :: Ord a => [a] -> [a]
bubble [] = []
bubble [x] = [x]
bubble (x:x':xs) = case compare x x' of
                   GT -> x' : bubble (x:xs)
                   _ -> x : bubble (x':xs)

bubblesort :: Ord a => [a] -> [a]
bubblesort [] = []
bubblesort list = case bubble list of
                  bubbled | bubbled == list -> bubbled
                          | otherwise -> bubblesort bubbled