On Wed, Sep 14, 2011 at 05:03, Kazu Yamamoto wrote:

> I would like to have an efficient implementation of the chop function.
>

[...]


> Are there any more efficient implementations of chop? Any suggestions?
>

  chop xs = go xs id ""
    where
      go ""     _               = id
      go (c:cs) ss | isSpace c  = go cs (ss . (:) c)
      go (c:cs) ss | otherwise  = ss . (:) c . go cs id

I haven't looked at the performance, but I would like to know how well it
fares.

Regards,
Sean
_______________________________________________
Haskell-Cafe mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/haskell-cafe

Reply via email to