<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;&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;&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>