testsuite/tests/ghci.debugger/scripts/T2215.hs


1
2
3
4
5
6
7
8
9
10
11

import System.Environment

qsort :: [Int] -> [Int]
qsort [] = []
qsort (a:as) = qsort left ++ [a] ++ qsort right
  where (left,right) = (filter (<=a) as, filter (>a) as)

main :: IO()
main = do
  args <- getArgs
  print $ qsort $ map read $ args