Реализовать объединение списков-множеств

@ASPIRIN93 · Регистрация: 08.05.2014

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

Здравствуйте дорогие форумчане!
Помогите пожалуйста с задачей:

Написать функцию union :: Eq a => [a] -> [a] -> [a] , объединяющую два списка, как если бы это были множества.

@Catstail · 08.05.2014, 10:43

Haskell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
-- функциональное решение
 
unionSet :: Eq a => [a] -> [a] -> [a]
unionSet s1 s2 = s1 ++ (filter (\ x -> not (x `elem` s1)) s2)
 
-- рекурсивное решение
 
unionSet' :: Eq a => [a] -> [a] -> [a]
unionSet' s [] = s
unionSet' s (c:cs) | (c `elem` s) = unionSet' s cs
                   | otherwise = (unionSet' s cs) ++ [c]
 
 
Main> unionSet [1,2,3,4] [3,4,5,6]
[1,2,3,4,5,6]
Main> unionSet' [1,2,3,4] [3,4,5,6]
[1,2,3,4,6,5]
Main> unionSet "asdf" "fgh"
"asdfgh"

Добавлено через 8 минут
А вот функция, которая делает множество из списка:

Haskell
1
2
3
4
5
6
7
8
setOf :: Eq a => [a] -> [a]
setOf [] = []
setOf (c:cs) = c : (setOf (filter (\ q -> q /= c) cs))
 
Main> setOf [1,2,3,1,2,3,3,3,2]
[1,2,3]
Main> setOf "fghfffggf"
"fgh"

@Mysterious Light · 08.05.2014, 18:00

Не по теме:

Haskell
1
2
3
4
5
6
7
8
9
10
11
12
13
14
-- ghci
Prelude> let s = (foldr (\x r -> x : filter (/= x) r) []) :: Eq a => [a] -> [a]
Prelude> :t s
s :: [()] -> [()]
 
Prelude> :t \x r -> x : filter (/= x) r
\x r -> x : filter (/= x) r :: (Eq a) => a -> [a] -> [a]
 
Prelude> :t foldr (\x r -> x : filter (/= x) r) []
foldr (\x r -> x : filter (/= x) r) [] :: (Eq a) => [a] -> [a]
 
Prelude> let setOf = foldr (\x r -> x : filter (/= x) r) []
Prelude> :t setOf
setOf :: [()] -> [()]

ghci же...
O_o

Приведение списка к множеству без рекурсии (мне нравится, как ты в последнее время несколько вариантов указываешь, и не лень же писать!)

Haskell
1
2
Prelude> foldr (\x r -> x : filter (/= x) r) [] "fghfghfghfgh"
"fgh"

@ASPIRIN93 · 08.05.2014, 21:01 **[ТС]**

Спасибо большое за помощь!
Всех с наступающим праздником Великой Победы!))

@Johny153 · 13.05.2014, 21:53

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

@Catstail · 13.05.2014, 22:03

Могу, но по правилам Форума один вопрос= одна тема. Создайте отдельную тему!

@Johny153 · 14.05.2014, 01:35

Catstail, хорошо, благодарю)

Новые блоги и статьи Все статьи Все блоги /
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .

@ASPIRIN93 0 / 0 / 0 Регистрация: 08.05.2014 Сообщений: 6

	Реализовать объединение списков-множеств 08.05.2014, 08:19. Показов 2667. Ответов 6 Метки нет (Все метки) Здравствуйте дорогие форумчане! Помогите пожалуйста с задачей: Написать функцию union :: Eq a => [a] -> [a] -> [a] , объединяющую два списка, как если бы это были множества. 0

@ASPIRIN93 0 / 0 / 0 Регистрация: 08.05.2014 Сообщений: 6
	08.05.2014, 21:01 [ТС]
	Спасибо большое за помощь! Всех с наступающим праздником Великой Победы!)) 0

@Johny153 0 / 0 / 0 Регистрация: 07.05.2014 Сообщений: 8
	13.05.2014, 21:53
	А можете ли помочь с похожей задачей? Написать функцию, вычитающую из первого списка второй, как если бы это были множества. 0

@Catstail Супер-модератор 38173 / 21108 / 4307 Регистрация: 12.02.2012 Сообщений: 34,709 Записей в блоге: 14
	13.05.2014, 22:03
	Могу, но по правилам Форума один вопрос= одна тема. Создайте отдельную тему! 1

@Johny153 0 / 0 / 0 Регистрация: 07.05.2014 Сообщений: 8
	14.05.2014, 01:35
	Catstail, хорошо, благодарю) 0