quicksort' :: (Ord a) => [a] -> [a]
quicksort' [] = []
quicksort' (x:xs) =
let bigger = quicksort' (filter (>x) xs)
smaller = quicksort' (filter (<=x) xs)
in bigger ++ [x] ++ smaller
I had these three words to say when I saw the above: OH. MY. GOD.
fibs = 0 : 1 : zipWith (+) fibs (tail fibs) -- or fibs = 0 : scanl (+) 1 fibs
How elegant is that.
Created Date: February 16, 2012 09:36:57
Last Modified: February 19, 2012 17:20:33