<div style="font-family:Verdana;font-size:14px;color:#000;"><div>thank you&nbsp;</div>
<div style="font:Verdana normal 14px;color:#000;padding:8px 0px;"><div>&nbsp;</div><div>&nbsp;</div><div style="FONT-SIZE: 12px;FONT-FAMILY: Arial Narrow;padding:2px 0 2px 0;">------------------&nbsp;Original&nbsp;------------------</div><div style="FONT-SIZE: 12px;background:#efefef;padding:8px;"><div><b>From:</b> "Luca Ciciriello"<luca_ciciriello@hotmail.com>; </div><div><b>Date:</b> 2011年9月9日(星期五) 晚上11:12</div><div><b>To:</b> "anyzhen"<jiangzhen3s@qq.com>; </div><div><b >Cc:</b> "Beginners"<beginners@haskell.org>; </div><div><b>Subject:</b> Re: [Haskell-beginners] a parse error....i can't fix it</div></div><div>&nbsp;</div>Formatted in this way should be compile:<div><br></div><div><div><div>linerFind :: [Int] -&gt; Int -&gt; MaxSA -&gt; MaxSA &nbsp; &nbsp; &nbsp;--MaxSA is &nbsp;MaximumSubarray</div><div>linerFind xs len &nbsp;ms1@(MaxSA l h m) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; -- (MaxSA leftPosition rightPosition maxsum)</div><div>&nbsp; | h&lt;len = keepFind ms1 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </div><div>&nbsp; | otherwise = ms1</div><div>&nbsp; where keepFind ms'@(MaxSA l' h' m') = let ms2@(MaxSA l2 h2 m2)= find' xs l' (h'+1)</div><div>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; in if m &lt; m2 </div><div>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; then linerFind xs len ms2</div><div>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;else keepFind ms2</div></div></div><div><br></div><div>Bye</div><div><br></div><div>Luca.</div><div><br><div><div>On Sep 9, 2011, at 4:53 PM, anyzhen wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div><div><div>sorry and please forget the name and what it is meaning for.</div><div>just look at in syntax aspect</div><div><br></div><div>the error : "<font class="Apple-style-span" color="#ff0000">parse error on input `|'</font></div><div><font class="Apple-style-span" color="#ff0000">Failed, modules loaded: none.</font>"</div></div><div><br></div><div><font class="Apple-style-span" color="#0000ff">linerFind </font>:: <font class="Apple-style-span" color="#008000">[Int] -&gt; Int -&gt; MaxSA -&gt; MaxSA </font>&nbsp; --MaxSA is &nbsp;MaximumSubarray</div><div><font class="Apple-style-span" color="#0000ff">linerFind </font>xs len &nbsp;ms1@(MaxSA l h m) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; -- (MaxSA leftPosition rightPosition maxsum)</div><div>&nbsp; | h&lt;len = keepFind ms1 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </div><div>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <font class="Apple-style-span" color="#ff00ff">where </font>keepFind ms'@(MaxSA l' h' m')=</div><div>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <font class="Apple-style-span" color="#ff00ff">let </font>ms2@(MaxSA l2 h2 m2)= find' xs l' (h'+1) in</div><div>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <font class="Apple-style-span" color="#ff00ff">if </font>m &lt; m2 <font class="Apple-style-span" color="#ff00ff">then </font>linerFind xs len ms2</div><div>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <font class="Apple-style-span" color="#ff00ff">else </font>keepFind ms2 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </div><div>&nbsp; |otherwise = ms1 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<font class="Apple-style-span" color="#ff0000">--compiler say error is in &nbsp;this line</font></div></div><div><br></div><div><div><br></div></div>_______________________________________________<br>Beginners mailing list<br><a href="mailto:Beginners@haskell.org" target="_blank">Beginners@haskell.org</a><br><a href="http://www.haskell.org/mailman/listinfo/beginners" target="_blank">http://www.h<wbr>askell.org/m<wbr>ailman/listi<wbr>nfo/beginner<wbr>s</a><br></blockquote></div><br></div>
  <!-- --><style></style></div></div>