BinRoot · December 15, 2012 23:40
diff --git a/quicksort.hs b/quicksort.hs
 quicksort :: Ord a => [a] -> [a]
 quicksort []     = []
 quicksort (p:xs) = (quicksort lesser) ++ [p] ++ (quicksort greater)
    where
        lesser  = filter (< p) xs
        greater = filter (>= p) xs
	quicksort :: Ord a => [a] -> [a]
	quicksort [] = []
	quicksort (p:xs) = (quicksort lesser) ++ [p] ++ (quicksort greater)
	where
	lesser = filter (< p) xs
	greater = filter (>= p) xs
No results found