Haskell - 二次公式

Question

今天我开始读一本关于Haskell的书，并告诉自己我试着用它来实现一些基本的东西，例如＆＃34;二次方程式＆＃34;。

quadHelper a b c op = (-b `op` sqrt (b * 2 - 4 * a * c)) / (2 * a)
quadFormula a b c = [quadHelper a b c (+)] ++ [quadHelper a b c (-)]  

不幸的是，我的第一个实现并没有按预期工作，[NaN, NaN]

的结果是quadFormula 5 6 1

有没有人知道我错过了什么？