Чи є якась функція haskell для об'єднання списку з роздільником?

Чи є функція об'єднання елементів списку з роздільником? Наприклад:

> foobar " " ["is","there","such","a","function","?"]
["is there such a function ?"]

Дякуємо за будь-яку відповідь!

Так, є :

Prelude> import Data.List
Prelude Data.List> intercalate " " ["is","there","such","a","function","?"]
"is there such a function ?"

intersperse трохи більш загальне:

Prelude> import Data.List
Prelude Data.List> concat (intersperse " " ["is","there","such","a","function","?"])
"is there such a function ?"

Також для конкретного випадку, коли ви хочете з'єднатись із символом пробілу, є unwords:

Prelude> unwords ["is","there","such","a","function","?"]
"is there such a function ?"

unlinesпрацює аналогічно, лише те, що рядки вбудовуються за допомогою символу newline та що символ newline також додається до кінця. (Це робить корисним для серіалізації текстових файлів, які повинні відповідати стандартному контуру POSIX із заднім рядком)

Не важко написати однокласник за допомогою foldr

join sep xs = foldr (\a b-> a ++ if b=="" then b else sep ++ b) "" xs
join " " ["is","there","such","a","function","?"]

joinBy sep cont = drop (length sep) $ concat $ map (\w -> sep ++ w) cont

Деякі інші ідеї впровадження intersperse та intercalate, якщо хтось зацікавлений:

myIntersperse :: a -> [a] -> [a]
myIntersperse _ [] = []
myIntersperse e xs = init $ xs >>= (:[e])

myIntercalate :: [a] -> [[a]] -> [a]
myIntercalate e xs = concat $ myIntersperse e xs

xs >>= fеквівалентно concat (map f xs).

Якщо ви хочете написати власні версії intercalateта intersperse:

intercalate :: [a] -> [[a]] -> [a]
intercalate s [] = []
intercalate s [x] = x
intercalate s (x:xs) = x ++ s ++ (intercalate s xs)

intersperse :: a -> [a] -> [a]
intersperse s [] = []
intersperse s [x] = [x]
intersperse s (x:xs) = x : s : (intersperse s xs)