Реализовать функцию поиска в списке кортежей

@Ксения257 · Регистрация: 06.05.2014

Студворк — интернет-сервис помощи студентам

Написать функцию Lookup My :: Eq a=> a->b->[(a,b)]->b, которая берёт значение xa типа а, значение xb типа b, и список кортежей. Функция должна найти кортеж, в котором первый элемент равен xa, и вернуть второй элемент этого кортежа. Если такого кортежа не нашлось, функция должна вернуть xb.

@Catstail · 06.05.2014, 16:49

Прежде всего замечу, что "Lookup My" недопустимое имя функции. Правильно lookupMy (без пробела и со строчной буквы).

Haskell
1
2
3
4
5
6
7
8
9
lookupMy :: Eq a => a -> b-> [(a,b)] -> b
lookupMy _ xb [] = xb
lookupMy xa xb (c:cs) | (fst c)==xa = snd c
                      | otherwise = lookupMy xa xb cs
                      
Main> lookupMy 3 4 [(1,2),(3,7),(6,9)]
7
Main> lookupMy 3 4 [(1,2),(2,7),(6,9)]
4

Добавлено через 7 минут
Другой вариант (без рекурсии):

Haskell
1
2
3
lookupMy' :: Eq a => a -> b-> [(a,b)] -> b
lookupMy' xa xb c = if (length r > 0) then snd $ head r else xb
                    where r= filter (\ x -> (fst x) == xa) c

@Ксения257 · 06.05.2014, 17:55 **[ТС]**

Огромное спасибо!!!!

@Mysterious Light · 06.05.2014, 18:49

короче:

Haskell
1
lookupMy xa = foldr (\(a,b) r -> if a == xa then b else r)

@Catstail · 06.05.2014, 20:39

Mysterious Light, да, красиво!

@Ксения257 · 07.05.2014, 08:20 **[ТС]**

Большое спасибо за помощь!!!!!!!

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@Ксения257 0 / 0 / 0 Регистрация: 06.05.2014 Сообщений: 19

	Реализовать функцию поиска в списке кортежей 06.05.2014, 15:49. Показов 2774. Ответов 5 Метки нет (Все метки) Написать функцию Lookup My :: Eq a=> a->b->[(a,b)]->b, которая берёт значение xa типа а, значение xb типа b, и список кортежей. Функция должна найти кортеж, в котором первый элемент равен xa, и вернуть второй элемент этого кортежа. Если такого кортежа не нашлось, функция должна вернуть xb. 0

@Ксения257 0 / 0 / 0 Регистрация: 06.05.2014 Сообщений: 19
	06.05.2014, 17:55 [ТС]
	Огромное спасибо!!!! 0

@Catstail Супер-модератор 38203 / 21135 / 4310 Регистрация: 12.02.2012 Сообщений: 34,741 Записей в блоге: 14
	06.05.2014, 20:39
	Mysterious Light, да, красиво! 0

@Ксения257 0 / 0 / 0 Регистрация: 06.05.2014 Сообщений: 19
	07.05.2014, 08:20 [ТС]
	Большое спасибо за помощь!!!!!!! 0

Реализовать функцию поиска в списке кортежей

Решение