元素的位置

Question

该函数应该给我搜索元素的位置。

e。 : 索引 'b' "dfbhjbd" -> [3,6]

到目前为止：

索引 b (x:xs) = 长度 ( takeWhile ( /= b) xs )

但是 takeWhile 会在找到匹配的元素后立即停止。所以以下元素将被忽略。

我试过这样的：

index b (x:xs) = length ( tak b  xs )
 where 
  tak b [] = []
  tak b xs 
        | b /= x == x:tak b xs
        | otherwise = [], tak b xs

除了由于解析错误而无法运行代码之外，它不会显示正确的结果。 有什么建议吗？

Answer 1

您已经看到takeWhile 的问题 - 我可以理解您为什么尝试这个（毕竟您想使用length）但也许您应该尝试找到一个您不必使用的解决方案length 首先。

一个好的方法可能是在遍历输入列表时跟踪 indizes，然后寻找等于 `b

的元素

---

如果你想使用递归，那么你可以一路走下去：

index :: (Eq a, Num t) => a -> [a] -> [t]
index b xs = index' 1 xs
  where
    index' _ [] = []
    index' i (x:xs)
      | b == x = i : index' (i+1) xs
      | otherwise = index' (i+1) xs

例子

λ> index 'b' "dfbhjbd"
[3,6]

如你所见，我在这里使用了一个内部函数来处理 indizes 和递归

---

另一种方法是使用zip 获取成对的索引和元素，然后使用filter 和map 获取结果：

这对应于你之前尝试过的

index :: (Eq a, Num t, Enum t) => a -> [a] -> [t]
index b xs =
  map fst . filter ((== b) . snd) $ zip [1..] xs