9 Sep
2011
9 Sep
'11
10:53 p.m.
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<len = keepFind ms1 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