Haskell中兩個列表的比較

Question

Haskell中有兩個列表。

原版：[ 「你好」， 「你好」， 「世界」， 「世界」]

只有大寫列表：[ 「HELLO」， 「世界」]

你能幫我創建一個函數，它應該返回一個包含兩個列表相交索引的列表。

我可以這樣做，得到的第一個指標：

讓upperIndex = findIndices（==（onlyUpper !! 0））原

然而，這隻能用於一個實例，在這個我只能在原始列表中獲得「HELLO」的索引，但我想要獲得所有這些索引。

對於這個例子，答案應該是：使用的[1,3]

Answer 1

編輯：由David楊建議另一個版本是

findIndicesIn xs ys = findIndices (`elem` ys) xs 

其中I p請參閱下面的解決方案。

---

如果我理解正確，你有兩個列表。打電話給他們xs和ys。您想在ys的每個元素中找到xs的索引。如果ys中的元素不包含在xs中，您不會提及要執行的操作，因此我將爲您選擇合理的值。那就是：

findIndicesIn :: Eq a => [a] -> [a] -> [Maybe Int] 
findIndicesIn xs ys = map (`elemIndex` xs) ys 

elemIndex :: Eq a => a -> [a] -> Maybe Int在列表中查找（與(==)比較）給定元素的索引。如果該元素不存在，則返回Nothing。要查找所有索引，我們映射ys中的每個元素，並嘗試使用elemIndex在xs中找到它。爲簡潔起見，使用段語法代替flip elemIndex xs或\y -> elemIndex y xs。

結果是Maybe Int表示ys中的每個元素的xs的可能索引的列表。請注意，如果您不跟蹤丟失的元素，則結果列表中的索引位置將不再對應於ys中元素的位置。

您也可以作爲

findIndicesIn :: Eq a => [a] -> [a] -> [Maybe Int] 
findIndicesIn xs = map (`elemIndex` xs) 

因人而異上哪一個更明確的寫使用更少點。兩者都是相同的。這個版本是相當可讀的IMO。你可以更進一步，並寫

findIndicesIn = map . flip elemIndex 

但個人而言，我覺得這可讀性較差。 YMMV再次。

Answer 2

let upperIndex original onlyUpper = helper original 0 where helper [] _ = []; helper (x:xs) i = if elem x onlyUpper then i:(helper xs (i+1)) else helper xs (i+1) 

實施例：

Prelude> upperIndex ["hello", "HELLO", "world", "WORLD"] ["HELLO", "WORLD"] 
[1,3]