|
From: yrazes <yr...@gm...> - 2011-11-07 17:45:07
|
module Main (main) where
quicksort [] = []
quicksort (s:xs) = quicksort [x|x <- xs,x < s] ++ [s] ++ quicksort [x|x <-
xs,x >= s]
main = putStr "Ingrese la lista\n"
[xs] <- getLine
|