Create bubbleSort.hs

Author: thuva4

algorithms/Haskell/BubbleSort/bubbleSort.hs

@@ -0,0 +1,7 @@
+bubbleSort :: Ord a => [a] -> [a]
+bubbleSort list = go list []
+ where
+ go [] sorted = sorted
+ go (x:xs) (y:ys)
+ | x > y = (x:ys) : go xs sorted
+ | otherwise = (y:xs) : go (x:ys) sorted