Форум программистов, компьютерный форум, киберфорум
Lisp
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Lisp Линия от заданной координаты (орто) до ближайшего пересечения Уже есть чертеж, осталось нарисовать последние 4 линии, которые я не могу понять как сделать: Если с красными линиями понятно как начать, т.е. вычислить координаты начала, но не понятно как найти точку пересечения с окружностью. С синими линиями вообще не могу понять от чего оттолкнуться.. привожу свой листинг кода: (defun c:my_point () ; Сохраняем системные переменные ... https://www.cyberforum.ru/ lisp/ thread1671810.html Удаление из списка каждого каждого второго элемента Lisp
Добрый день, можете пожалуйста написать и прокомментировать построчно код, решающий следующую задачу: Описать функцию, которая удаляет из списка каждый второй элемент (на верхнем уровне).
Lisp Определить функцию, которая имеет значение T, если n-й элемент списка L есть атом. https://www.cyberforum.ru/ lisp/ thread1671203.html
Для каждого из следующих условий определить функцию одного аргумента L , которая имеет значение T , если условие удовлетворяется, и NIL в противном случае: • n - ый элемент L есть атом;
Lisp Почему так работает "_line" ? https://www.cyberforum.ru/ lisp/ thread1670643.html
Доброго всем времени суток! (defun c:my_point () (setq p1 (getpoint "\nââåäèòå áàçîâóþ òî÷êó:")) ; (setq p2 (polar p1 pi 100)) ; Çàäàåì êîîðäèíàòû òî÷êè p2 (setq p3 (polar p2 (/ (- pi) 2) 100)) ; (command "_line" p1 p2 "") ; ðèñóåì ëèíèþ 1 (setq line1 (entlast)) ; Çàïèñûâàåì èìÿ îáúåêòà (command "_line" p2 p3 "") ; ðèñóåì ëèíèþ 2 (setq line2 (entlast)) ;...
Подсчет атомов во всем списке Lisp
Добрый вечер, помогите пожалуйста решить задачу, кому не будет в тягость. Определить функцию, которая считает количество атомов во всем списке (с учетом подсписков).
Lisp Как вызвать функцию? https://www.cyberforum.ru/ lisp/ thread1669901.html
Подскажите пожалуйста, как вызвать функцию F для поиска минимального остовного дерева? https://www.cyberforum.ru/post6334776.html Ввожу: (F (1 a b)) выводит ошибку EVFUN: Не найдена функция 1 ==> ERRSTATE Добавлено через 8 минут
Lisp Прокомментировать код Добрый вечер, можете пожалуйста прокомментировать сей чудесный код (автор - Catstail) более подробно? ;; Проверить ребро (defun chk-vert (v s) (let ((a1 (car v)) (a2 (cadr v))) (not (forsome s (lambda (w) (and (member a1 w) (member a2 w))))))) ;; Добавление очередного ребра в "лес" https://www.cyberforum.ru/ lisp/ thread1669768.html Запишите последовательность вызовов CAR и CDR, выделяющие из приведенных списков символ "а" Lisp
Запишите последовательность вызовов CAR и CDR, выделяющие из приведенных списков символ "а" (1(2((3 4(5(6 a))))))
Lisp Подскажите, как преобразовать строку в список Возник еще один вопрос: На вход функции поступает Список. Каким образом можно преобразовать строку вида: "((x (y L) L) (z L) L))" в список вида '((x (y L) L) (z L) L)) ? Данная строка или множество подобных строк будут считываться из входного файла. Функции (concatenate 'list str) и (coerce "abc" 'list) не дают искомого, возвращают список с элементами вида #\x Заранее благодарен. https://www.cyberforum.ru/ lisp/ thread1669240.html Lisp Разбор лямбда-функции, описывающей часть логической схемы Здравствуйте, друзья! Очень прошу помочь в следующей задаче (\lambda-исчисление): - имеются константы следующего вида: - xL ;логическое НЕ - xLy ;логическое ИЛИ - x(yL)L ;логическое И - имеется булева функция: f (x,y,z) = x & y & z, т.е. два последовательных конъюнктора (первый с входами X, Y и второй с входами ВЫХОД ПЕРВОГО, Z (т.е. включены каскадом)). Эта же... https://www.cyberforum.ru/ lisp/ thread1669106.html
Определите значение выражения Lisp
Определите значение выражения ‘(+ 2 (* 3 5)) И есть ли какие нибудь уроки по LispWork? И какие еще бывают компиляторы на Lisp?
Lisp Алгоритм Прима Алгоритм Прима отличается от алгоритма Краскала тем, что на каждом шаге добавляется не ребро, a вершина (такая, чтобы длина добавляемого ребра при этом была минимальной). Вот неоптимальная реализация: ;; Дать список "свободных" вершин (defun get-free-v (graph tree) (let ((full-v (apply 'append (mapcar 'butlast graph)))) (setof (remove-if (lambda (x) (member x tree)) full-v)))) https://www.cyberforum.ru/ lisp/ thread1666392.html
4705 / 4400 / 380
Регистрация: 12.05.2012
Сообщений: 3,100
27.02.2016, 19:34 0

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

27.02.2016, 19:34. Показов 2152. Ответов 11
Метки (Все метки)

Ответ

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)


Вернуться к обсуждению:
Преобразовать список во множество Lisp
2
Заказать работу у эксперта
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
27.02.2016, 19:34
Готовые ответы и решения:

Функция работы со списками: преобразовать список во множество
Всем доброго времени суток! Очень прошу подсказать реализацию на языке LISP следующего задания: ...

Определить функцию "Множество", преобразующую список в множество
Определить функцию МНОЖЕСТВО, преобразующую список в множество в ЛИСП,помогите пожалуйста?

Дан список (a b) (b c) (c d) .). Преобразовать его в ассоциативной список
Дан список ((a b) (b c) (c d) ...). Преобразовать его в ассоциативной список. В качестве ключей...

Вложение словаря в множество - почему нельзя? Альтернативы: список словарей или множество кортежей(списков)
Первое. И словарь, и множество хранят данные на основе хэш-таблиц, как я понял. Не могу понять...

11
27.02.2016, 19:34
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
27.02.2016, 19:34
Помогаю со студенческими работами здесь

Преобразовать множество
Доброе время суток! Делаю пример по алгебре множеств. Не могу преобразовать данное выражение....

Список: Преобразовать список так, чтобы сначала шли нечетные элементы, а потом четные
Преобразовать список таким образом, чтобы в первой его половине располагались элементы, стоявшие на...

Преобразовать формулу во множество дизъюнктов
Ребята, требуется преобразовать формулу во множество дизъюнктов. Заранее огромное спасибо за...

Преобразовать список в список позиций чётных элементов.
ребят помогите написать задачу в прологе... Задание: Создайте предикат, преобразующий исходный...

0
Новые блоги и статьи
Распознавание изображений (компьютерное зрение) на C++
InfoMaster 20.01.2025
Введение в компьютерное зрение и основы работы с изображениями Компьютерное зрение представляет собой одну из наиболее динамично развивающихся областей информационных технологий, позволяющую. . .
Какой язык программировани­я лучший для разработки нейронных сетей
InfoMaster 20.01.2025
В современном мире технологий искусственные нейронные сети становятся неотъемлемой частью множества инновационных решений, от распознавания речи до автоматического управления транспортными. . .
Как подключить JavaScript файл в другом JavaScript файле
InfoMaster 20.01.2025
В современной веб-разработке организация кодовой базы играет ключевую роль в создании масштабируемых и поддерживаемых приложений. Модульность и правильное структурирование кода стали неотъемлемыми. . .
Как откатить изменения в исходниках, не внесенные в Git
InfoMaster 20.01.2025
При работе с системой контроля версий Git разработчики часто сталкиваются с необходимостью отменить внесенные изменения в исходном коде. Особенно актуальной становится ситуация, когда изменения еще. . .
В чем разница между px, in, mm, pt, dip, dp, sp
InfoMaster 20.01.2025
В мире цифрового дизайна и разработки интерфейсов правильный выбор единиц измерения играет ключевую роль в создании качественного пользовательского опыта. История развития систем измерений для. . .
Как изменить адрес удалённого репозитория (origin) в Git
InfoMaster 20.01.2025
В терминологии Git термин origin является стандартным именем для основного удаленного репозитория, с которым взаимодействует локальная копия проекта. Когда разработчик клонирует репозиторий с. . .
Как переместить последние коммиты в новую ветку (branch) в Git
InfoMaster 20.01.2025
При работе над проектом часто возникают ситуации, когда необходимо изолировать определенные изменения от основной линии разработки. Это может быть связано с экспериментальными функциями, исправлением. . .
Как вернуть результат из асинхронной функции в JavaScript
InfoMaster 20.01.2025
Асинхронное программирование представляет собой фундаментальную концепцию в JavaScript, которая позволяет выполнять длительные операции без блокировки основного потока выполнения программы. В. . .
Какой локальный веб-сервер выбрать
InfoMaster 19.01.2025
В современной веб-разработке локальные веб-серверы играют ключевую роль, предоставляя разработчикам надежную среду для создания, тестирования и отладки веб-приложений без необходимости использования. . .
Почему планшеты и iPad уже не так популярны, как раньше
InfoMaster 19.01.2025
Эра революционных инноваций История планшетов началась задолго до того, как эти устройства стали привычными спутниками нашей повседневной жизни. В начале 1990-х годов появились первые прототипы,. . .
Как самому прошить BIOS ноутбука
InfoMaster 19.01.2025
BIOS (Basic Input/ Output System) представляет собой важнейший компонент любого компьютера или ноутбука, который обеспечивает базовое взаимодействие между аппаратным и программным обеспечением. . .
Какой Linux выбрать для домашнего компьютера
InfoMaster 19.01.2025
Современные реалии выбора операционной системы В современном мире выбор операционной системы для домашнего компьютера становится все более важным решением, которое может существенно повлиять на. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru