🚀 go-pugleaf

Witam,

nie szukałem za bardzo w Prelude i modułach, ale potrzebuję funkcji
określającej, czy w liście nie ma powtórzeń. Do głowy przyszło mi takie
cudo poniżej, lecz na hugsie dla [1..10000] (specjalnie złośliwy
przypadek, aby wywalić naiwnego quicksorta) działa już trochę za długo:

{-
 - Daje medianę trzech elementów
 -}
mediana :: Ord a => a -> a -> a -> a
mediana a b c = if a <= b then
                    if b <= c then b
                    else if a <= c then c else a
                else
                    if a <= c then a
                    else if b <= c then c else b

{-
 - Sprawdza elementy.
 -}
rozna_lista :: Ord a => [ a ] -> Bool
rozna_lista []          = True
rozna_lista [ a ]       = True
rozna_lista [ a , b ]   = a /= b
rozna_lista l           = let m = mediana
					( head  l )
					( head ( drop ( ( length l ) `div` 2 ) l ) )
					( head ( reverse l ) ) in
                            length ( [ a | a <- l , a == m ] ) == 1 &&
                            rozna_lista [ a | a <- l , a < m ] &&
                            rozna_lista [ a | a <- l , a > m ]

Sorki za przekroczenie 72 znaków - tak jakoś mi się pisało ;)

Tak więc - macie może jakiś pomysł na coś szybszego? Mógłbym posortować w
O(nlogn) jakimś merdżsortem, ale nie jestem pewien, czy tędy droga...

Wszelkie uwagi (krytyczne!) na temat stylu i podejścia miło widziane - dopiero
się zapoznaję z tym Haskellem :P

Pozdrawiam,
-- 
Marcin Gajda ________________________
Dieu me pardonerra - c'est son metier