a ha ... thanks Daniel ------------------ 原始邮件 ------------------ 发件人: "Daniel Fischer"; 发送时间: 2011年9月9日(星期五) 晚上11:06 收件人: "beginners"; 抄送: "anyzhen"; 主题: Re: [Haskell-beginners] a parse error....i can't fix it On Friday 09 September 2011, 16:53:06, anyzhen wrote:
sorry and please forget the name and what it is meaning for. just look at in syntax aspect
the error : "parse error on input `|' Failed, modules loaded: none."
linerFind :: [Int] -> Int -> MaxSA -> MaxSA --MaxSA is MaximumSubarray linerFind xs len ms1@(MaxSA l h m) -- (MaxSA leftPosition rightPosition maxsum)
| h
where keepFind ms'@(MaxSA l' h' m')= let ms2@(MaxSA l2 h2 m2)= find' xs l' (h'+1) in if m < m2 then linerFind xs len ms2 else keepFind ms2
|otherwise = ms1 --compiler say |error is in this line
You must have the where clause after the guards, linerFind ... | h < len = keepFind ms1 | otherwise = ms1 where ...