Question

Note this is not the same as using the words function.

I would like to convert from this:

"The quick brown fox jumped over the lazy dogs."

into this:

["The"," quick"," brown"," fox"," jumped"," over"," the"," lazy"," dogs."]

Note how the breaks are on the first space after each word.

The best I could come up with is this:

parts "" = []
parts s  = if null a then (c ++ e):parts f else a:parts b
    where
    (a, b) = break isSpace s
    (c, d) = span isSpace s
    (e, f) = break isSpace d

It just looks a little inelegant. Can anyone think of a better way to express this?

Answer 1

edit — Sorry I didn’t read the question. Hopefully this new answer does what you want.

> List.groupBy (\x y -> y /= ' ') "The quick brown fox jumped over the lazy dogs."
["The"," quick"," brown"," fox"," jumped"," over"," the"," lazy"," dogs."]

The library function groupBy takes a predicate function that tells you whether you add the next element, y to the previous list, which starts with x, or start a new list.

In this case, we don’t care what the current list started with, we only want to start a new list (i.e. make the predicate evaluate to false) when the next element, y, is a space.

edit

n.m. points out that the handling of multiple spaces is not correct. In which case you can switch to Data.List.HT, which has the semantics you’d want.

> import Data.List.HT as HT
> HT.groupBy (\x y -> y /= ' ' || x == ' ') "a  b c d"
["a","  b"," c"," d"]

the different semantics that makes this work is that the x is the last element in the previous list (that you might add y to, or create a new list).