algorytm.org

Implementacja w Haskell

Baza Wiedzy
wersja offline serwisu przeznaczona na urządzenia z systemem Android
Darowizny
darowiznaWspomóż rozwój serwisu
Nagłówki RSS
Artykuły
Implementacje
Komentarze
Forum
Bookmarki






Sonda
Implementacji w jakim języku programowania poszukujesz?

Sortowanie bąbelkowe (bubblesort) - Implementacja w Haskell
Ocena użytkownikóww: *****  / 0
SłabyŚwietny
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)
Dodaj komentarz