Haskell：需要幫助設計此功能

Question

我想設計一個函數，當給定一個字符串函數插入a和b的字符串。

例如：

鑑於串"Hello"

該函數將返回"aHbealblaob"。

Answer 1

去圖

Prelude> 'a' : (concat $ zipWith (\x y -> x:[y]) "Hello" $ cycle "ba") 
"aHbealblaob" 

或沒有任何細節，這將也這樣做。

f :: String -> String 
f "Hello" = "aHbealblaob" 
f _  = "not specified" 

其實，有一個很好的相互遞歸解決方案類似於奇數/偶數。

wrap [] = [] 
wrap (x:xs) = 'a':x:'b':skip xs 
skip [] = [] 
skip (x:xs) = x: wrap xs 

wrap "Hello" 
"aHbealblaob"