Ocena użytkownikóww: ***** / 0
Nadesłany przez Adam Chrapkowski, 19 grudnia 2013 21:30
Kod przedstawiony poniżej przedstawia główną część rozwiązania problemu.
Pobierz pełne rozwiązanie.bubblesort.hs:
-- Sortowanie bąbelkowe
-- Adam Chrapkowski
-- www.algorytm.org
--
-- Compliant with Haskel 98 standard
bubble :: (Ord o) => [o] -> [o]
bubble k = iterate swap k !! length k
where
swap :: (Ord o) => [o] -> [o]
swap(a:[]) = [a]
swap [] = [ ]
swap (a:b:c)
| a < b = a : swap (b : c)
| otherwise = b : swap (a : c)
