This got a bit mangled, here's the fixed version:
> > wordsBy :: (a -> Bool) -> [a] -> [[a]] > > wordsBy p s = case dropWhile p s of > > [] -> [] > > s':rest -> (s':w) : wordsBy p s'' > > where (w, s'') = break p rest _______________________________________________ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe
