Sort algorithm in Haskell

现在每天抽一个小时看看Haskell作为调节。有个哥们将考试推到明年六月了。据说今天考的都是超高频题（样本数量为3，太少……）。我那不坚定的决心在动摇。用福克纳的话：“他们在苦熬”。这叫装逼。

用Haskell写了两个排序算法，快速排序和合并排序。都很短，没几行程序，虽然效率肯定是不敢恭维的，但能用来满足我们那自欺欺人的美感，言简意赅不是很高的境界么？不管是写文章还是写程序都差不多。但同时要清楚，要可读性。说了这么多还是看看成果吧：

module Sort where

 -- Quick Sort Algorithm
quicksort [] = []
quicksort (x:xs) =
    quicksort [y | y <- xs,y <= x]
    ++ [x] ++
    quicksort [y | y <- xs,y > x]

-- Merge two ordered sequences
merge' [] [] = []
merge' lst [] = lst
merge' [] lst = lst
merge' (x1:xs1) (x2:xs2) =
    if x1 < x2
        then x1:(merge' xs1 (x2:xs2))
    else x2:(merge' (x1:xs1) xs2)

-- Merge Sort Algorithm
mergesort [] = []
mergesort (x:[]) = [x]
mergesort lst =
    let parts = splitAt (div (length lst) 2) lst
    in merge' (mergesort (fst parts))
              (mergesort (snd parts))

其实只利用了递归和Haskell强大的列表处理功能。这也不是Haskell的专利，我相信Python或Ruby或Lisp也完全能做到。

出名的Ajax网站：【上一篇】
在Powerdesigner中,根据已有字段的Name值替换Code相同的Name的值：【下一篇】