path: root/testsuite/tests/ghci.debugger/scripts/T1620/T1620.hs

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

main = print $ qsort [4, 1, 7, 10, 3]