hermit-0.5.0.0: examples/qsort/QSort.hs

{-# LANGUAGE CPP #-}
module Main where

import HList

#if __GLASGOW_HASKELL__ < 708
import Data.Function (fix)
#endif

import Data.List

data Tree a = Node (Tree a) (Tree a) | Leaf a

qsort :: Ord a => [a] -> [a]
qsort []     = []
qsort (a:as) = qsort bs ++ [a] ++ qsort cs
               where
                  (bs , cs) = partition (< a) as

main :: IO ()
main = print (qsort [8,3,5,7,2,9,4,6,3,2])