On Wed, Sep 14, 2011 at 05:03, Kazu Yamamoto wrote:<br><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">I would like to have an efficient implementation of the chop function.<br>
</blockquote><div><br></div><div>[...]</div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">Are there any more efficient implementations of chop? Any suggestions?<br>
</blockquote><div><br></div><div> chop xs = go xs id ""</div><div> where</div><div> go "" _ = id</div><div> go (c:cs) ss | isSpace c = go cs (ss . (:) c)</div><div> go (c:cs) ss | otherwise = ss . (:) c . go cs id</div>
<div> </div><div>I haven't looked at the performance, but I would like to know how well it fares.</div><div><br></div><div>Regards,</div><div>Sean</div></div>