Добавление и удаление списка из списка списков в AutoLisp

@Code_idiot · Регистрация: 24.11.2017

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

Здравствуйте! У меня такая задача: нужно создать список хранящий в себе списки, типа

Lisp

1	(setq mother_list (list (list 50 20 30) (list 10 10 10) (list 20 20 20)))

Из этого списка необходимо будет удалить список, к примеру

Lisp

1	(setq check_list (list 10 10 10))

И добавить его в другой имеющийся список списков

Lisp

1	(setq ad_list (list (list 0 0 0) (list 14 20 25)))

по условию, которое требует проверки атомов в check_list (тут я разобрался)

я находил решения, но они касались добавления и удаления атомов списках, а вот как быть с списками в списках?

@Catstail · 11.06.2021, 16:44

Сообщение от Code_idiot

а вот как быть с списками в списках?

- как и с атомами. В чем разница?

@Code_idiot · 11.06.2021, 16:49 **[ТС]**

Catstail, я попробовал найденные в интернете ответы вот таким кодом

Lisp

(defun add-el (ad_list check_list)
    (cond ((null ad_list) (list check_list))
          (t (cons (car ad_list) (add-el (cdr ad_list) check_list))))) end_defun
 
(defun delete (check_list mother_list)
    (cond ((null mother_list) nil)
          ((equal check_list (car mother_list))(cdr mother_list))
          (t (cons (car mother_list)(delete check_list (cdr mother_list)))))) end_defun
 
(setq mother_list (list (list 50 20 30) (list 10 10 10) (list 20 20 20)))
(setq check_list (list 10 10 10))
(setq ad_list (list (list 0 0 0) (list 14 20 25)))
 
(delete check_list mother_list)
(add-el ad_list check_list)

и не получил никакого результата (проверял в автокаде 2016 в VisualLisp с помощью контрольных значений), из-за чего и появился вопрос

@Catstail · 11.06.2021, 19:21

Напиши, что нужно сделать и приведи пример: было - стало

@vlisp · 15.06.2021, 01:19

Lisp

(setq mother_list (list (list 50 20 30) (list 10 10 10) (list 20 20 20)))
 
(setq check_list (list 10 10 10))
 
(setq ad_list (list (list 0 0 0) (list 14 20 25)))
 
(append ad_list (vl-remove check_list mother_list))

@Zonich · 21.04.2023, 09:48

Если неизвестно изначальное число списков, подойдет cons.
Append будет добавлять элементы в самый первый список, не обращая внимания на его вложенность.
Если добавлять лист в лист через (list new_list old_list) получится вложенный по числу операций список.

Так что в большинстве случаев, cons в помощь.

Новые блоги и статьи
Алгоритмы и исполнители hw_wired 28.01.2025 Введение в алгоритмы В современном мире информационных технологий алгоритмы играют основополагающую роль в решении различных задач и автоматизации процессов. Алгоритм представляет собой точную. . .	Хранение информации hw_wired 28.01.2025 Введение: Роль систем хранения информации в современном мире В современную эпоху цифровых технологий эффективное хранение информации становится одним из ключевых факторов успешного развития любой. . .	Обработка числовой информации hw_wired 28.01.2025 Введение в обработку числовой информации В современном мире обработка числовой информации стала неотъемлемой частью как профессиональной деятельности, так и повседневной жизни. Электронные таблицы. . .	Мультимедиа hw_wired 28.01.2025 Введение в мультимедийные технологии В современном мире мультимедийные технологии стали неотъемлемой частью нашей жизни, проникнув во все сферы человеческой деятельности. Термин "мультимедиа". . .	Обработка текстовой информации hw_wired 28.01.2025 Введение в обработку текстовой информации В современном мире обработка текстовой информации играет фундаментальную роль в различных сферах человеческой деятельности. Текстовые редакторы стали. . .	Обработка графической информации hw_wired 28.01.2025 Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .
Python в Алгоритмике: Решение задач hw_wired 28.01.2025 Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .	Компьютер как универсальное устройство для работы с информацией hw_wired 28.01.2025 Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .	Информация и информационные процессы hw_wired 28.01.2025 Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .	Алгоритмика hw_wired 28.01.2025 Введение: Основы алгоритмики и её роль в информатике В современном мире программирование и алгоритмическое мышление стали неотъемлемой частью образования и профессиональной деятельности. . . .	Информационное моделирование hw_wired 28.01.2025 Введение в информационное моделирование В современном мире информационное моделирование стало неотъемлемой частью научной, образовательной и профессиональной деятельности. Это мощный инструмент. . .	Объекты и их имена hw_wired 28.01.2025 Введение: Основы объектного подхода и их роль в информатике В современном мире информационных технологий объектный подход стал фундаментальным принципом организации и обработки информации. Этот. . .

@Catstail Модератор 37457 / 20828 / 4281 Регистрация: 12.02.2012 Сообщений: 34,247 Записей в блоге: 14
	11.06.2021, 16:44	2
	Сообщение от Code_idiot а вот как быть с списками в списках? - как и с атомами. В чем разница? 0

@Catstail Модератор 37457 / 20828 / 4281 Регистрация: 12.02.2012 Сообщений: 34,247 Записей в блоге: 14
	11.06.2021, 19:21	4
	Напиши, что нужно сделать и приведи пример: было - стало 0

@Zonich 0 / 0 / 0 Регистрация: 16.09.2022 Сообщений: 1
	21.04.2023, 09:48	6
	Если неизвестно изначальное число списков, подойдет cons. Append будет добавлять элементы в самый первый список, не обращая внимания на его вложенность. Если добавлять лист в лист через (list new_list old_list) получится вложенный по числу операций список. Так что в большинстве случаев, cons в помощь. 0