所以到目前为止我只使用Haskell进行简单的教程,下面的代码给我一个“解析错误”......我知道这与我的语法有关但我不知道是什么
--ternarySearch
7 ternarySearch :: (Float -> Float) -> Float -> Float -> Float -> Float
8 ternarySearch f a b tau = do
9 if (abs(b-a) < tau)
10 then return ((a+b)/2)
11 c = (a + (b-a)/3)
12 d = (b - (b-a)/3)
13 if f(c) < f(d)
14 then return (ternarySearch f c b tau)
15 else return (ternarySearch f a d tau)
我得到的错误是:
ternary.hs:11:25: parse error on input `c'
有什么想法吗?
答案 0 :(得分:6)
你做错了很多:
Monad
。return
:我认为你正在混淆强制性的语言return
与Haskell的混淆。使用警卫尝试做的更好的版本:
ternarySearch :: (Float -> Float) -> Float -> Float -> Float -> Float
ternarySearch f a b tau
| abs (b-a) < tau = (a+b) / 2
| f c < f d = ternarySearch f c b tau
| otherwise = ternarySearch f a d tau
where
c = a + (b-a)/3
d = b - (b-a)/3
话虽如此,我建议你阅读一些book以便更好地理解。