Преобразовать список во множество

@Ferrari F1 · Регистрация: 27.01.2015

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

Добрый вечер, можете пожалуйста решить такое задание?

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

@vlisp · 27.02.2016, 18:07

Сообщение от Ferrari F1

можете пожалуйста решить такое задание?

А что мешает найти его самому через поиск?

@4_d4 · 27.02.2016, 18:55

Я бы так написал. Получается новый список без повторяющихся элементов.

Lisp
1
2
3
4
5
(defun преобразовать_список (список)
        (let ((новый_список nil))
            (dolist (элемент список)
                 (setf новый_список (pushnew элемент новый_список)))
         новый_список))

Но я лисп 3 недели назад изучать начал, так что не обессудь.

@_sg · 27.02.2016, 19:34

Lisp
1
2
3
4
5
6
(defun -remove-duplicates (w &aux (a (car w)) (d (cdr w)))
  (when w (if (member a d) (-remove-duplicates d)
              (cons a (-remove-duplicates d)))))
 
> (-remove-duplicates '(a a 1 1))
(A 1)

@Catstail · 27.02.2016, 20:04

Lisp
1
2
3
4
5
6
7
8
9
10
(defun make-set (lst &optional (r nil))
  (cond ((null lst) r)
        ((member (car lst) r) (make-set (cdr lst) r))
        (t (make-set (cdr lst) (cons (car lst) r)))))
 
==> make-set
 
(make-set '(a b c c c a a b))
 
==> (c b a)

@helter · 27.02.2016, 20:08

Сообщение от 4_d4

(setf новый_список (pushnew элемент новый_список))

setf лишний. Макрос pushnew сам выполняет присваивание — для этого он, собственно, говоря, и нужен. При этом он возвращает значение — список, полученный после присвоения, и вы его второй раз присваиваете.

Есть и функция adjoin, которая для данного списка и объекта добавляет объект в список, если его там нет. Как пишет CLHS, (pushnew item place), грубо говоря, эквивалентно (setf place (adjoin item place)). То есть pushnew относится к adjoin как push относится к cons.

@Vaderkos · 27.02.2016, 20:43

Помоему есть встроенное решение

Lisp
1
2
(PRINT (REMOVE-DUPLICATES '(1 2 3 4 32 4 3 3 3 3 ф ф ф ф в в в в)))
* (1 2 32 4 3 Ф В)

Добавлено через 2 минуты
Туповато віглядит

почитайте о коллекциях http://lisper.ru/pcl/collections

Lisp
1
2
3
4
(DEFUN REMOVE-DUPLCATES-AGAIN (LST)
       (REMOVE-DUPLICATES LST))
 
(PRINT (REMOVE-DUPLCATES-AGAIN '(1 1 1 1 1 2 2 2 3 3 3 )))

@helter · 27.02.2016, 20:45

Lisp
1
(setf (symbol-function 'remove-duplicates-again) (symbol-functions 'remove-duplicates))

@Catstail · 27.02.2016, 21:17

Vaderkos, в который раз вопрошаю: чему учат - писать программы или вызывать библиотечные?

@Vaderkos · 27.02.2016, 21:33

Catstail, Именно поэтому сейчас копаюсь в соурсцах sbcl в поисках этой функции

@Catstail · 27.02.2016, 21:41

Vaderkos, так ее нетрудно и самому реализовать...

@Vaderkos · 27.02.2016, 22:46

Catstail, Согласен, просто интересн как там было сделано)

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .

@Catstail Супер-модератор 38167 / 21102 / 4307 Регистрация: 12.02.2012 Сообщений: 34,690 Записей в блоге: 14
	27.02.2016, 21:17
	Vaderkos, в который раз вопрошаю: чему учат - писать программы или вызывать библиотечные? 0

@Vaderkos 84 / 83 / 8 Регистрация: 31.03.2015 Сообщений: 447
	27.02.2016, 21:33
	Catstail, Именно поэтому сейчас копаюсь в соурсцах sbcl в поисках этой функции 0

@Catstail Супер-модератор 38167 / 21102 / 4307 Регистрация: 12.02.2012 Сообщений: 34,690 Записей в блоге: 14
	27.02.2016, 21:41
	Vaderkos, так ее нетрудно и самому реализовать... 0

@Vaderkos 84 / 83 / 8 Регистрация: 31.03.2015 Сообщений: 447
	27.02.2016, 22:46
	Catstail, Согласен, просто интересн как там было сделано) 0