AaronFlower · October 31, 2017 03:18
diff --git a/quick-sort.hs b/quick-sort.hs
 quicksort :: (Ord a) => [a] -> [a]  
 quicksort [] = []  
 quicksort (x:xs) =   
    let smallerSorted = quicksort [a | a <- xs, a <= x]  
        biggerSorted = quicksort [a | a <- xs, a > x]  
    in  smallerSorted ++ [x] ++ biggerSorted
	quicksort :: (Ord a) => [a] -> [a]
	quicksort [] = []
	quicksort (x:xs) =
	let smallerSorted = quicksort [a \| a <- xs, a <= x]
	biggerSorted = quicksort [a \| a <- xs, a > x]
	in smallerSorted ++ [x] ++ biggerSorted