มีฟังก์ชั่น 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ทำงานในทำนองเดียวกันเฉพาะสายอักขระที่ถูก imploded โดยใช้อักขระขึ้นบรรทัดใหม่และอักขระขึ้นบรรทัดใหม่จะถูกเพิ่มไปยังจุดสิ้นสุด (สิ่งนี้ทำให้มีประโยชน์สำหรับซีเรียลไฟล์ข้อความซึ่งจะต้องต่อท้ายมาตรฐาน 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 >>= fconcat (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)