Haskell добавляет два списка, используя foldr

Question

Я знаю, что в Haskell есть функция intercalate, которая объединяет два списка.

intercalate ", " ["Hello", "world"]

выдаст: "Hello, world"

Я пытаюсь объединить два списка, используя foldr.

Но так как я новичок в Haskell, я не уверен, как это сделать.

Я полагаю, что функция должна выглядеть примерно так:

inters n xs = foldr (\x acc -> x ++ str ++ acc) "" xs

Это даетрезультат: "Hello, world, ", где запятая и пробел также добавляются в конце.

Как мне сделать так, чтобы функция добавляла только промежуточные элементы списка, а не в конце?

Любая помощь будет принята с благодарностью.

Answer 1

Есть функции foldl1 и foldr1, которые вы можете использовать:

foldl1 (\s1 s2 -> s1 ++ ", " ++ s2) ["alpha", "beta", "gamma"]
foldr1 (\s1 s2 -> s1 ++ ", " ++ s2) ["alpha", "beta", "gamma"]