「Learn You a Haskell for Great Good!」第4章を読んだ

第4章は再帰について。書くことが特に無い。クイックソートだけ実装しておく。

quicksort :: (Ord a) => [a] -> [a]
quicksort [] = []
quicksort (x:xs) = quicksort smallerOrEqual ++ [x] ++ quicksort larger
  where smallerlist = [a | a <- xs, a <= x]
        largerlist = [a | a <- xs, a > x]