qsort [] = [] qsort (x:xs) = qsort (filter (< x) xs) ++ [x] ++ qsort (filter (>= x) xs)
http://www.haskell.org/haskellwiki/Introduction#Quicksort_in_Haskell
追記:
http://togetter.com/li/445854
のような議論を見るたびにこのスライドを思い出して心が痛むのですが、口頭では遅いからびっくりするだけだけど、とか言ったと思います。