You can narrow down the problem by commenting out the part of the file that's giving you problems, and trying out the other functions in ghci. In your case, the main function is causing a parsing error. If you comment it out, you can verify that quicksort works correctly. Then look at your main function and see where it's broken. Try this out, and compare with what you wrote:<div>
<br></div><div><div><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 = do</div><div> putStr "Ingrese la lista\n"</div><div> line <- getLine</div><div> let xs = read line :: [Int]</div><div> print (quicksort xs)</div><div><br></div><div>-Peter</div><br><div class="gmail_quote">
On Mon, Nov 7, 2011 at 3:41 PM, yrazes <span dir="ltr"><<a href="mailto:yrazes@gmail.com">yrazes@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
Sorry, but I got this error while I compile it.<div><b><br></b></div><div><div><b>[yulys@yulys haskell]$ ghc -o quick quick.hs</b></div><div><b>[1 of 1] Compiling Main ( quick.hs, quick.o )</b></div><div><b><br>
</b></div><div><b>quick.hs:7:11: parse error on input `<-'</b></div><div><b>[yulys@yulys haskell]$ </b></div><div class="im"><div><br></div><div><br></div><div><br></div><div><br></div><br><div class="gmail_quote">
On Mon, Nov 7, 2011 at 4:23 PM, KC <span dir="ltr"><<a href="mailto:kc1956@gmail.com" target="_blank">kc1956@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">What is your question?<br>
<div><div></div><div><br>
<br>
<br>
On Mon, Nov 7, 2011 at 9:45 AM, yrazes <<a href="mailto:yrazes@gmail.com" target="_blank">yrazes@gmail.com</a>> wrote:<br>
> module Main (main) where<br>
> quicksort [] = []<br>
> quicksort (s:xs) = quicksort [x|x <- xs,x < s] ++ [s] ++ quicksort [x|x <-<br>
> xs,x >= s]<br>
> main = putStr "Ingrese la lista\n"<br>
> [xs] <- getLine<br>
</div></div>> _______________________________________________<br>
> Haskell-Cafe mailing list<br>
> <a href="mailto:Haskell-Cafe@haskell.org" target="_blank">Haskell-Cafe@haskell.org</a><br>
> <a href="http://www.haskell.org/mailman/listinfo/haskell-cafe" target="_blank">http://www.haskell.org/mailman/listinfo/haskell-cafe</a><br>
><br>
><br>
<br>
<br>
<br>
--<br>
<font color="#888888">--<br>
Regards,<br>
KC<br>
</font></blockquote></div><br></div></div>
<br>_______________________________________________<br>
Haskell-Cafe mailing list<br>
<a href="mailto:Haskell-Cafe@haskell.org">Haskell-Cafe@haskell.org</a><br>
<a href="http://www.haskell.org/mailman/listinfo/haskell-cafe" target="_blank">http://www.haskell.org/mailman/listinfo/haskell-cafe</a><br>
<br></blockquote></div><br></div></div>