home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacHaskell 2.2 / progs / demo / quicksort.hs < prev    next >
Encoding:
Text File  |  1994-09-27  |  315 b   |  13 lines  |  [TEXT/YHS2]
  1. -- Quick sort for Haskell.
  2.  
  3. module Main where
  4.  
  5. qs :: [Int] -> [Int]
  6. qs []     = []
  7. qs (a:as) = qs [x | x <- as, x <= a] ++ [a] ++ qs [x | x <- as, x > a]
  8.  
  9. main = putStr "Enter a list of integers separated by \",\"\n" >>
  10.        getLine >>= \ input ->
  11.        putText (qs (read ("[" ++ input ++ "]"))) >> putStr "\n"
  12.  
  13.