jergason · November 23, 2014 15:28
diff --git a/quicksort.hs b/quicksort.hs
 -- see http://learnyouahaskell.com/recursion#quick-sort
 quicksort' :: (Ord a) => [a] -> [a]
 quicksort' [] = []
 quicksort' (x:xs) =
    let biggerSorted = quicksort' [a | a <- xs, a > x]
        smallerSorted = quicksort' [a | a <- xs, a <= x]
    in smallerSorted ++ [x] ++ biggerSorted
	-- see http://learnyouahaskell.com/recursion#quick-sort
	quicksort' :: (Ord a) => [a] -> [a]
	quicksort' [] = []
	quicksort' (x:xs) =
	let biggerSorted = quicksort' [a \| a <- xs, a > x]
	smallerSorted = quicksort' [a \| a <- xs, a <= x]
	in smallerSorted ++ [x] ++ biggerSorted