Wed, 8 Sep 1999 18:36:14 +0900, Frank A. Christoph <[EMAIL PROTECTED]> pisze:
> concatSep :: [a] -> [[a]] -> [a]
>
> with semantics
>
> concatSep _ [] = []
> concatSep _ [xs] = [xs]
> concatSep sep (xs:xss) = xs ++ sep ++ concatSep sep xss
It is already defined: concat . List.intersperse
--
__("< Marcin Kowalczyk * [EMAIL PROTECTED] http://kki.net.pl/qrczak/
\__/ GCS/M d- s+:-- a22 C+++>+++$ UL++>++++$ P+++ L++>++++$ E-
^^ W++ N+++ o? K? w(---) O? M- V? PS-- PE++ Y? PGP->+ t
QRCZAK 5? X- R tv-- b+>++ DI D- G+ e>++++ h! r--%>++ y-
