--reverse QSort

module Main where

    rQSort [] = []
    rQSort (x:xs) = rQSort larger ++ [x] ++ rQSort smaller
                    where larger = [a | a <- xs, a > x]
                          smaller = [a | a <- xs, a <= x]
