17 May 2001 19:36:44 GMT, Marcin 'Qrczak' Kowalczyk <[EMAIL PROTECTED]> pisze:
> PS. What I would perhaps put into standard library:
And also:
split :: (a -> Bool) -> [a] -> [[a]]
split p c = let
(xs, ys) = break p c
in xs : case ys of
[] -> []
_:zs -> split p zs
softSplit :: (a -> Bool) -> [a] -> [[a]]
-- softSplit p c = filter (not . null) (split p c)
softSplit p c = case dropWhile p c of
[] -> []
x:xs -> let
(ys, zs) = break p xs
in (x:ys) : softSplit p zs
It follows that words = softSplit isSpace.
Any better name?
--
__("< Marcin Kowalczyk * [EMAIL PROTECTED] http://qrczak.ids.net.pl/
\__/
^^ SYGNATURA ZAST�PCZA
QRCZAK
_______________________________________________
Haskell mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/haskell
