vendor/bundle/ruby/2.4.0/gems/rouge-1.11.1/lib/rouge/demos/haskell - incubator-retired-amaterasu-site - Git at Google

 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