bubblesort.hs

bubblesort :: (Ord a) => [a] -> [a]
bubblesort [] = []
bubblesort (x1:x2:xs) =
    let sorted = if x2 < x1 
        then x2 : bubblesort (x1:xs)
        else x1 : bubblesort (x2:xs)
    in (bubblesort $ init sorted) ++ [last sorted]
bubblesort xs = xs

main = do
    let foo = bubblesort [5,2,4,8,1,3,7]
    print foo