Haskell试图在[String]中改变字符串

Question

movex [] a s = []    
movex (x:xs) a s
| elem a x = moveNow x a s
| otherwise = x : (movex xs a s)
where
  moveNow x a s
    | s == 'l' = moveNow2 x a
    where
        moveNow2 [] _ = []
        moveNow2 (x:y:xs) a
          | x == ' ' && y == a = a : x : moveNow2 (y:xs) a
          | otherwise = x : moveNow2 (y:xs) a

< - 这就是我现在所得到的

我正在尝试创建一个遍历[string]的函数，找到正确的字符串，然后将其变异。

给定输入

func ["abc", "dfg"] f l -- move f in this list 1 space left --

预期产出

["abc", "fdg"]

现在我被困在movex函数，给我错误

Couldn't match expected type `Char' with actual type `[Char]'
In the first argument of `(:)', namely `x'
In the expression: x : (movex xs a s)

Answer 1

直接解决错误就是更换线路

| elem a x = moveNow x a s

同

| elem a x = moveNow x a s : movex xs a s

或者，可能

| elem a x = moveNow x a s : xs

取决于您在第一场比赛后想要做的事情：继续寻找某个角色，或保持其他角色不变。

你的moveNow函数有返回类型String或[Char] ，而movex有[String]或[[Char]] ，这就是编译器抱怨的原因。

为避免此类问题（或更容易修复），请考虑编写显式类型签名，如下所示：

movex :: [String]->String->String->[String]