<div>module Main (main) where</div><div><br></div><div>quicksort [] = []</div><div>quicksort (s:xs) = quicksort [x|x <- xs,x < s] ++ [s] ++ quicksort [x|x <- xs,x >= s] </div><div><span class="Apple-tab-span" style="white-space:pre">        </span></div>
<div>main = putStr "Ingrese la lista\n"</div><div> [xs] <- getLine</div>