[HaskelЪ] Как разбить строку?

Prelude Data.List> groupBy (\x y -> not $ (y `elem` "%&+") /= (x `elem` "%&+")) "qw%q2&&d43"
["qw","%","q2","&&","d43"]

> Есть строка "qw%q2&&d43+cv43" нужно получить ["qw", "%", "q2", "&&", "d43", "+", "cv43"].

И по какому принципу ты собираешься ее разбивать? Я вот закономерности вообще не вижу.

> И по какому принципу ты собираешься ее разбивать? Я вот закономерности вообще не вижу.

кажется, по лексемам.

топикстартеру смотреть функцию lex

А вобще если там всякие разные разделители, может быть уже пора брать parsec.

> И по какому принципу ты собираешься ее разбивать? Я вот закономерности вообще не вижу.

Есть набор разделителей % && + и д.р. выходной список - это список самих разделителей и фрагментов исходной стоки, которые между ними находятся, в порядке их следования в исходной строке.

> топикстартеру смотреть функцию lex

Посоветуете хорошую обширную статью по lex. http://haskell.org/ghc/docs/latest/html/libraries/base/Text-Read-Lex.html ни чего не прояснил.

А мой код что, не прокатил? :-) lex читает хаскельные лексемы, не уверен что подойдет для таких извратных разделителей

> А мой код что, не прокатил? :-)

Чёньть покрасивее. :)

> Чёньть покрасивее. :)

Красивее некуда :-) Из всего что я знаю это самый элегантный split

> Из всего что я знаю это самый элегантный split

Мда... Я ж таким все начальство распугаю! :)

А, что там про parsec?

Не такой красивый как выше, но тоже вариант:

split :: String -> String -> [String]
split _ [] = []
split d s = w : w' : split d s''
    where
        (w, s') = break (`elem` d) s
        (w', s'') = break (`notElem` d) s'