Сравнение двух списков в Haskell

Question

У меня есть два списка в Haskell.

Оригинальный список: [ "привет", "HELLO", "мир", "МИР"]

только верхний регистр списка: [ "HELLO", "МИР"]

Не могли бы вы помочь мне создать функцию, которая должна вернуть список, содержащий индексы пересечения двух списков.

я могу получить первый индекс, делая это:

пусть upperIndex = findIndices (== (onlyUpper !! 0)) оригинальные

Однако, это работает только для одного экземпляра, в этом Я могу получить индекс «HELLO» только в исходном списке, но я хочу получить все из них.

Для этого примера, ответ должен быть: [1,3]

Answer 1

Редактировать: Еще один вариант предложил Дэвид Янг является

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

который я p обратитесь к моему решению ниже.

---

Если я правильно понял, у вас есть два списка. Назовите их xs и ys. Вы хотите найти индекс в xs каждого элемента в ys. Вы не указываете, что хотите, если элемент в 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 и попытаемся найти его в xs с помощью elemIndex. Синтаксис секции используется вместо flip elemIndex xs или \y -> elemIndex y xs для заключения.

В результате список Maybe Int представляющих возможных индексов в xs каждого элемента в ys. Обратите внимание, что если вы не отслеживаете отсутствующие элементы, позиции индексов в результирующем списке больше не будут соответствовать положениям элементов в ys.

Вы также можете написать это, используя меньшее количество очков, как

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

YMMV, на которых один является более ясным. Оба эквивалентны. Эта версия довольно читабельная ИМО.Вы можете перейти на следующий шаг и написать

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]