[Haskell-cafe] efficient chop

[Sean Leather]

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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://www.haskell.org/pipermail/haskell-cafe/attachments/20110914/3987c925/attachment.htm>