无论如何我可以将“”（空格）添加到字符串值中

acronym1 s = newstring s 
where
newstring [] = []
newstring [h] = [] 
newstring (h : t) 
  | h == ' '             =  ds (myHead t : (newstring t))
  | otherwise            =  newstring t 

我目前正在做首字母缩略词，但是

• 它只在我输入“_ _ _ pen _ _ apple”结果“pa”时有效
• 当我输入“pen _ _ apple”时，它只会变成“a”
• 当我给“pen _ _ apple”时，我试图找到一种方法来帮助我在前面添加“_”。