q_sort :: [Integer] -> [Integer]
q_sort [] = []
q_sort (x:xs) = ( q_sort (filter (< x) xs ) ) ++ ( [x] ++ ( filter(==x) xs) ) ++ ( q_sort( filter(>x) xs ) )