Haskell中的空间函数

Question

fos_user.password.blank

insert :: Eq(a) => a -> a -> [a] -> [a] insert m n [] = [] insert m n (x1:x1:xs) | m==x = n : x : insert m n xs | otherwise = x : insert m n xs 功能已经有效。我需要insert的帮助。目标是我想要两个在给定的另外两个元素之间写一个元素。该程序是用Haskell编写的。 interspace函数应该在两个其他给定元素之间写入给定元素（如果它们在列表中）。

interspace

Answer 1

您的程序应该是

interspace m n q [] = []
interspace m n q (x1:x2:xs) | .... = ....
interspace m n q (x:xs) = x : interspace m n q xs