krishnabhargav · July 3, 2014 01:43
diff --git a/quicksort.hs b/quicksort.hs
 quicksort :: (Ord a) => [a] -> [a]
 quicksort [] = []
 quicksort (x:xs) = 
   let small = quicksort [ a | a <- xs, a <=x]
       large = quicksort [ a | a <- xs, a > x]
   in small ++ [x] ++ large
	quicksort :: (Ord a) => [a] -> [a]
	quicksort [] = []
	quicksort (x:xs) =
	let small = quicksort [ a \| a <- xs, a <=x]
	large = quicksort [ a \| a <- xs, a > x]
	in small ++ [x] ++ large