Haskell中的空間函數

Question

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函數已經工作。我需要interspace的幫助。目標是我希望兩個元素在給出的兩個其他元素之間寫入一個元素。該程序是用Haskell編寫的。 interspace函數應該在兩個其他給定元素之間寫入給定元素（如果它們在列表中）。

interspace :: Eq(a) => a -> a -> a->[a] -> [a] 
interspace m n q[] = [] 
interspace m n q (x:xs)| m==x && q==(head xs) = n: x : insert m n (headxs)++interspace m n q (xs) 
    | otherwise = x : interspace m n q xs 

Answer 1

你的程序應該像對`（X1：X2：XS）

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