mgechev · July 12, 2013 18:17
diff --git a/quicksort.hs b/quicksort.hs
 quickSort :: Ord a => [a] -> [a]
 quickSort []     = []
 quickSort (x:xs) = quickSort left ++ [x] ++ quickSort right
                   where
                        left  = [ y | y <- xs, y < x  ]
                        right = [ y | y <- xs, y >= x ]
	quickSort :: Ord a => [a] -> [a]
	quickSort [] = []
	quickSort (x:xs) = quickSort left ++ [x] ++ quickSort right
	where
	left = [ y \| y <- xs, y < x ]
	right = [ y \| y <- xs, y >= x ]
No results found