小编use*_*781的帖子

我必须写一个简单的程序告诉我,有多少解有二次方程.我写:

howManySolutions :: Float -> Float -> Float -> Int

howManySolutions a b c = if (b^2-(4*a*c)) > 0 then 2 else 
                         if (b^2-(4*a*c)) == 0 then 1
                         else -1

但在WinHugs中我收到语法错误:

  unexpected ´;' possibly due to bad layout

我可以在GHCi中打开我的程序,但它不会让我使用负数...我做错了什么？