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