Форум программистов и сисадминов Киберфорум

Темы раздела Lisp

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

Расширения для Script-fu GIMP
Всем привет, я закончил публикацию статей на хабре по созданию языка функциональной геометрии для GIMP написанного на Script-fu. О самом языке я узнал читая и смотря лекции SICP, подумал на чём его...

Является ли "+" - функцией?
Здравствуйте! Вопрос, возможно, глупый. Хотелось бы уточнить - "+" (равно как и "-") - это функция или оператор? И есть ли разница между оператором и функцией? Таким образом, (+ 5 3) - вызов...

Lisp Beer Meetup, Питер 2023
Судьба занесла меня в Питер на этих новогодних праздниках. Значит грех не собраться за кружечкой и не поговорить про Lisp. Время: 6 Января, пятница – 19:00 Место: "Мама Рома" на Малой Конюшенной....

Добавление условий в текст программы
есть задача, найти наибольшее по модулю число в списке с подписками. (defun max_abs (li_st);declaration the function with arguments "li_st" "This function finds the largest modulo value in the...

Функция clisp удаляющая из списка те атомы, которые совпадают хотя бы с одним из предшествующих
Здравствуйте, покажите, пожалуйста, как выглядит функция, удаляющая из списка те атомы, которые совпадают хотя бы с одним из предшествующих( включая подсписки)

Максимальный элемент в списке
Здравствуйте, это опять я :) так вот решил попробовать создать функцию которая бы проверяла какое значение больше в списке, решил начать с малого списка чтоб понять структуру, ну к примеру список из...

Где скачать Lisp?
Кто-нибудь знает,где скачать интерпретатор Lisp? Поисковик не выдает ничего стоящего... Заранее спасибо.

Удалить элемент из списка
Добрый день, который день бьюсь не получается. Задание: Удалить элемент из списка. CL-USER> (defun rm2(x s) ...

Посоветуйте IDE и компилятор
Здравствуйте. Смотрел в "важных темах". К сожалению, не пришел к однозначным выводам. Возможно ли использовать Eclipse? Пояснения: Погуглил plugin на Eclipce. Нашел это:...

Как работают lambda выражения?
Можете объяснить как работает функция lambda? у меня вот такая часть задачи: (lambda (car(L) cdr(L)) (cond (----------))) Или подскажите как правильно составить такую конструкцию?

Как проверить, что элемент списка число или не число?
очень часто я стала сталкиваться с задачами, где нужно узнать - элемент списка является числом или нет. и поэтому я придумала свою задачу и пытаюсь её решить. Дан список. Заменить вхождения...

Удаление последнего элемента списка
есть решенная задача по удалению последнего элемента списка, просто не пойму как она работает, знаю что делаю стандартные функции, а вот в целом не знаю как работает, по трассировке ничего не...

Имея два кувшина емкостью 3 и 5 л, отмерить 1 л
нужно написать код такого вот задания. есть два кувшина 3 и 5 литров.пусть они будут х и у,нужно получить z удовлетворяющее условию z<max{x,y}

логическая задача про мам
помогите решить задачу на лиспе Три молодые мамы Анна, Ирина и Ольга, гуляя в парке со своими малышами, встретили свою четвертую подругу. На вопрос, как зовут малышей, желая подшутить над...

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

Функциональное программирование на Lispe
Начал смотреть другой курс по функциональному программированию на Lisp https://www.youtube.com/watch?v=SHdEAS6frvo&list=PL6R7PZsTtFrrriKLL6-UvQbebDaSS1P33 Смотреть желательно в HD на большом...

Построить дерево игры в крестики-нолики
Построить дерево игры в крестики-нолики размером М на М Необходимо из заданной позиции построить дерево игры и указать, существует ли алгоритм, позволяющий выиграть игроку, делающему ход.

Отличие списка от множества
Киньте в меня ссылкой, пожалуйста, где об этом подробненько рассказано. Перелазил интернет и что-то не встретил, чтобы о множествах в ЛИСПе что-то рассказывали. Слышал только то, что в множествах...

Посчитать количество элементов
Функция LEN высчитывает количество элементов в списке или предупреждает что аргумент не ялваеться списком >(LEN '(1 2 3)) 3 >(LEN 'h) error h is an atom >(LEN 1) error 1 is a number Я сделал...

Логическая задачка про гирьки!
Алеша, Витя и Игорь после уроков нашли на полу в кабинете физики маленькую гирьку. Каждый из них, рассматривая находку, высказал два предположения. Алеша сказал: «Это гирька из латуни, и весит...

Решение квадратного уравнения
Буду очень благодарна и признательна если кто в этом разбирается и поможет. Необходимо на Лиспе написать программу вычисления дискриминанта квадратного уравнения. Свои наброски есть, но не...

Тема: функции высшего порядка (apply, funcall, mapcar, maplist)
(Common Lisp) Даны два списка x и y. Список y является упорядоченным по некоторому правилу. Определить функцию высшего порядка (vstavka f x y), добавляющую элементы списка x к списку y, не нарушая...

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

apply и mapcar
Объясните пожалуйста тупому человеку (т.е. мне) различие между mapcar и apply?????

Поменять местами элементы списка
Здравствуйте. Помогите пожалуйста: Написать функцию obmen (lst a b), меняющую местами элементы списка lst с номерами a и b

Сортировка списка по возрастанию
Нужно описать функцию, которая для заданного списка проверяет, является ли он отсортированным по возрастанию. Можно использовать только базовые примитивы и функции. Функция принимает только список...

Вычислить остаток целочисленного деления
Раз уж тема по рекурсии, влезу ка я со своим вопросом. как написать оную для возвращения целого остатка при целочисленном делении, используя только sub1

Среда программирования и книга
Здравствуйте! Скажите название книги и среду программирования (+ ссылку на неё) для LISP!

Экспертная система по подбору туристической путевки
Доброго время суток. Как всегда нужна помощь. Вот задание: Напишите экспертную систему, которая использует продукционные правила логического вывода. Пользователь последовательно отвечает "Да" или...

Факториал
;;;ЗАДАНИЕ 33: Построить список l, элементами которого являются значения факториала от 1 до n. (defun f4 (n) (cond ((<= n 0) 1) (T (append (* n (f4 (- n 1)))) ) )) как...

Lisp системы для новичков.
вот, долго искал, читал статьи с ошибками, ругался. кажется нашёл то, с чего можно начинать. ссылка для тех кто испытывает трудности в установке более мощных систем,...

Ввод с консоли и запись в файл
Здрасте! Помогите пожалуйста доделать задачку(Функция проверяет, являются ли элементы списка seq натуральными числами. Если элемент является натуральными числом, функция возвращает в результирующем...

Как писать графический интерфейс для Лиспа?
Здравствуйте! Для большинства программ ныне требуется графический интерфейс, поэтому хочу изучить его разработку. Какие библиотеки вы могли бы посоветовать? Основным критерием является...

Найти сумму членов арифметической прогрессии, если известны ее первый член, знаменатель и число членов прогрессии
Найти сумму членов арифметической прогрессии, если известны ее первый член, знаменатель и число членов прогрессии. 1) (3y-2y*y)/(4y*y-12y+9) 2)ln((2-x)/(3x+5))

Добавить элемент в список
Как можно добавить элемент в список на определенную позицию? Примерно (Вставляем во сторую позицию х) (defun add-on-pos (lst pos element) ...) (add-on-pos `(a b c) 2 x) : (a b x c)

Программа на Clisp
Здравствуйте, подскажите пожалуйста как написать данный вариант программы. Преподаватель вместе с нами учится этому языку и не может ничем помочь, задания он берет с openedu. Пишем мы на clisp. Вот...

Добавить заданный элемент в конец списка
Помогите пожалуйста :) "Добавить заданный элемент в конец списка"

Нахождение суммы обратных факториалов.
Помогите написать программку нахождения суммы обратных факториалов 1/0! + 1/1! + 1/2! +...+1/n! Если можно, то прокомментируйте ход действий. Спасибо!

Среда разработки под Windows
Посоветуйте хорошую бесплатную среду разработки под Windows. Смотрел Common Lisp, т.к. в инете написано, что она самая популярная, но она оказалась платной.

Степень
Помогите решить задание. Возводит седьмой элемента заданного списка из чисел в степень, равную восьмому элементу списка.

Композицией базовых функций CAR, CDR, CONS, LIST
Добрый день! прошу помочь в решении задачи: Композицией базовых функций CAR, CDR, CONS, LIST переверните список (a b (c d (e) f) g h). Перевернуть список удалось, код ниже: (cons...

Сумма элементов списка
Подскажите, пожалуйста, в чем ошибка (defun sum (list) ((null list) 0) (+ (car list)(sum (cdr list)))) (sum '(9 7 5 6 4)) выдает ошибку: Error: Illegal argument in functor position: (NULL...

Задача об инфекции стригущего лишая
Помогите разработать архитектуру программы для решения такой задачи: Промоделировать процесс распространения инфекции — стригущего лишая по участку кожи размером n x n (n — нечетное) клеток....

Учить ли Лисп?
Уважаемые форумчане, у меня чисто гуманитарный вопрос, прошу посоветовать.. В следующем году сдаю ЕГЭ, до нынешнего момента учил Си, C++, Паскаль, думаю, на уовне части С в ЕГЭ их знаю, но вопрос...

Объединить два списка в один
Здравствуйте. Стоит задача сформировать из двух списков один. Допустим, даны (a b c d e f g h) и (1 2 3 4 5 6 7 8), тогда результат должен быть ((a 1) (b 2) (c 3) (d 4) (e 5) (f 6) (g 7) (h 8)) ...

Функция ввода-вывода в Lisp печатает числа в виде трапеции
Добрый вечер, всем! Задание 4 (PR1 k m), которая печатает числа в виде трапеции (m - количество строк, k - число, с которого начинается печать. вот я делаю так:

К решенном задаче написать программку (самую простую и легкую) Пожалуйста!
Задача 1. Определение оптимального размера заказа. По данным учета затрат стоимость подачи одного заказа составляет 300 руб., годовая потребность в комплектующем изделии — 1500 шт., цена единицы...

Найти последовательность ходов коня, чтобы попасть на целевую клетку
Задача: шахматная доска, дана начальная клетка на доске(откуда) и дана целевая клетка(куда попасть). Дана фигура конь,стоит на начальной клетке. Найти последовательность ходов, чтобы попасть на...

Проверка правильности римских чисел
Всем привет! Решаю задачку. Никак не могу разобраться. Буду благодарен за помощь! Условие задачи: Для представления римских цифр используются символы: I - один, V - пять, X -десять, L -...

Сумма ряда на Лиспе
Помогите, пожалуйста, вычислить сумму ряда на ЛИСПЕ. ∑ от i=1 до n выражение под суммой 1/i!

Дана схема метрополитена, найти кратчайший путь между станциями
Всем привет! Дана схема метрополитена, найти кратчайший путь между станциями. Схема метрополитена задаётся с помощью матрицы смежности или матрицы инциденций. Каждому перегону соответствует...

Логическая задача про дома
помогите пожалуйста решить задачу на лиспе: На одной улице стоят в ряд 4 дома, в которых живут 4 человека: Иван, Борис, Михаил и Андрей. Известно, что каждый из них владеет ровно одной из...

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

Описать функцию, которая находила бы сумму всех числовых элементов списка
Здравствуйте, нужна помощь!! Нужно написать функцию которая бы находило бы сумму элементов списка с учетом наличия подсписков например список '(1 ((2 3) 4) 5 6) результатом будет 21...

Посчитать количество одинаковых элементов
Есть, например, строка ((2 3) J K(3 K) J) и результат будет мол три атома повторяются 2 раза, вообще не понимаю способ реализации, как создать какой либо счетчик или еще что? Без использования...

Задача про возраст футболиста
Здравствуйте! Помогите пожалуйста решить задачу про возраст! В футбольной команде 11 игроков. Их средний возраст равен 22 годам. Во время матча один из игроков выбыл. При этом средний возраст...

Отладка кода с использованием трассировки
Подскажите, что означает отладка кода на Lisp при помощи трассировки? Заранее спасибо!

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

Подскажите пожалуйста как присвоить значение в функции
Добрый день я только начала изучать Scheme и пока плохо в нем разбираюсь не могу присвоить значение в функции, set! и begin использовать нельзя. Преподаватель дал нам две функции первую можно менять...

полилиния AutoCAD
как начертить полилинию для n-го количества точек?

Оконные приложения для Лисп
Всем доброго времени суток! Увлекаюсь Лиспом, пишу на стареньком LisBox. Сам язык программирования просто божественный, но отсутствие как такового графического интерфейса вроде WindowForm сильно...

Поиск наибольшего отрицательного и наименьшего положительного
Доброго времени суток. Функция получает на вход список любого уровня вложенности и должна отыскать в нем минимальный положительный элемент и наибольший отрицательный. Решая эту задачу я столкнулся...

lisp reverse
задание: Написать функцию которая инвертирует список.Пример: name '(1 2 3) -> (3 2 1).Использовать только Cons Car Cdr.Я попробовал написать но немного криво работает. (defun rever (lst) ...

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

Как запустить эту программу в Lisp?
как запустить данную программу в Lisp? ; Вводим исходные данные (в соответствие с вариантом) (setq razmer 1.0) (setq objects 3) (setq krit BAYESA) (setq object1 OLKHON) (setq object2...

Распознание логические формулы в конъюнктивной нормальной форме
Всем привет, помогите пож-та, не очень силен в Lisp но очень нужно, стоит интерпретатор XLISP, пишется под чистым лиспом т.е. Common Lisp, здание заключ в следующем: Булева формула есть терм,...

Ханойские башни
Помогите кто может! нужно написать решение всем известной задачи про ханойские башни с N дисками. на каждом шаге нужно выводить 3 списка А, В и С.

Написать функцию ,которая возвращает квадратный корень из аргумента
Здравствуйте! Нужна помощь! Вот задача. Хочу решить вот эту задачку, но без помощи трудно будет. Написать функцию ,которая возвращает квадратный корень из аргумента, если аргумент...

Элемент списка по номеру
Всем привет, в общем, начали преподавать лисп, а как что делать не говорят Такое задание, есть список (a b c d e) нужно написать программу которая будет по номеру элемента, выводить его 2 '(a b c...

Как писать программы на Лиспе?
Я раньше довольно неплохо программировал на различных языках, но сейчас мне понадобилось написать пару прог на Лиспе, и хотя Лисп сильно отличается я более менее разобрался в теории, но не пойму как...

Сторонние библиотеки в Lisp
Подскажите как установить сторонние библиотеки в Lisp? Пользуюсь SBCL и CLisp на Linux, IDE Emacs и Geany. Дело в том что я не особо хорошо могу программировать и хочу сделать прогу с гуем и хочу...

XLISP логическая задача про дочерей, города и занятия
Здраствуйте! Вот такая задача! Три дочери писательницы Дорис Кей - Джуди, Айрис и Линда тоже очень талантливы. Они приобрели известность в разных видах искусств - пении, балете и кино. Все они...

Сравнение Common Lisp и Scheme
Давно присматриваюсь к языкам-диалектам LISP, пока, увы, только теоретически :pardon: Но всё же, всегда хотел услышать разумную сравнительную оценку двух главных жизнеспособных потомков - Common...

неверный тип аргумента:2D/3D точка :nil
Здравствуйте, помогите пожалуйста с прогой.. вот мое задание: Извлечение данных о примитивах чертежа. Путём доступа к графической базе данных чертежа получить информацию (имя слоя, номер цвета, тип...

Дуга в autolispe
Как задать дугу в autolispe?

Написать функцию сортировки списка методом прямого выбора
задание 1. написать функцию сортировки списка методом прямого выбора. встроенные функции MAX и MIN не использовать.Можно использовать только средства строго функционального языка...

Определить рекурсивную функцию, возвращающую последний элемент списка
Определить рекурсивную функцию, возвращающую последний элемент списка. вот что сделано (defun last (xs) (if (null (cdr xs)) xs (last (cdr xs)))) Но тут получается что...

Рекурсивный обход дерева каталогов с изменением вложенных файлов (Common Lisp)
Есть каталог. Внутри каталога есть другие каталоги и всякие файлы. В каждом из вложенных каталогов могут быть ещё вложенные и т.п.. Структура всего этого дерева каталогов неизвестна. Известно лишь...

Удалить из списка повторяющиеся элементы на верхнем уровне
Определить рекурсивную функцию (SET1 x), которая удаляет из списка х повторяющиеся элементы на верхнем уровне. Рекурсия выполняется только в направлении CDR списка.

В чем отличие рекурсивных и итерационных вычислений?
В чем отличие рекурсивных и итерационных вычислений?

Метод Крамера или метод Гаусса. Реализация
Доброго времени суток. Стоит задача написать метод Гаусса или метод Крамера для решения СЛАУ на lisp, как это сделать даже на уровне алгоритма, я не знаю.:( На вход подается матрица, нужно будет...

Создание Exe файла для Лисп
Всем здравствуйте! Имеется LispStick с Ltk, операционка Windows 7 Есть программа на лиспе под Ltk - окошечко с кнопочками :) Вопрос в следующем: как сделать из этой программы исполняемый exe файл?...

Заданы три списка. Удалить из первого списка все элементы остальных списков
Помогите пожалуйста, мне нужно сессию досрочно сдать( в роддом надо) а практика только началась, а преподаватель сказал сдать обе задачки ему...помогите решить пожалуйста!!! Заданы три списка....

Как правильно объявлять и использовать локальные переменные в лиспе
Добрый день, пожалуйста объясните как правильно объявлять и использовать локальные переменные в лиспе. Сначала попробовала самый простой вариант, вроде работает: CL-USER> (let ((x 0)) (+ x...

Как организовать ввод с клавиатуры в pc-lisp 3.0?
Здравствуйте! Я в общем-то хотел просто предоставить возможность ввода данных(списка) в консоли с клавиатуры для их запоминания и дальнейшего использования, но как-то не сложилось. Есть нерабочий...

Реализовать алгоритм Краскала
Добрый день, друзьяшки. Помогите пожалуйста, кому не будет трудным :) Препод дал такое задание: Напишите две компьютерные программы (На С++ и на lisp (или на F#)), решающие следующую задачу:...

Вычисление квадратного корня методом Ньютона (sicp)
Доброго времени суток! Читаю sicp и все больше и больше, мне кажется, что я тупой и мне надо подтянуть математику или дискретку лучше, ибо уже 2ой день не могу разобраться в программе, которая...

Подсчитать сумму всех четных и нечетных элементов списка
Это опять я) теперь нада лаба другу Разработать итерационный вариант программы в императивном стиле для решения предложенной задачи. Разработать рекурсивный вариант программы в функциональном...

Пора задать жару всяким питонщикам и шарпистам
Мне пришло в ЛС (как, наверное и всем остальным) https://www.cyberforum.ru/contests/thread2787489.html. Похоже я один из лисперов кто там отметился, присоединяйтесь, бунтари и вольнодумцы! Ударим...

Ассоциативные списки и списки свойств
Не могу разобраться в теме "Ассоциативные списки и списки свойств",а именно как работать с ключами)если кому не сложно,объясните наглядно)

Равнобедренный треугольник со вписанной в него окружностью
Программа должна рисовать равнобедренный треугольник со вписанной в него окружностью, но появляется ошибка ; ошибка: неверно сформированный список на входе .Помогите найти ошибку и ещё как сделать...

Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны
Ребята, очень прошу помогите решить две задачки по lisp. 1) Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны. 2) По координатам вершин некоторого...

Два прямоугольника, расположенные в первом квадранте
Два прямоугольника, расположенные в первом квадранте, со сторонами, параллельными осям координат, заданы координатами своих левого верхнего и правого нижнего углов. Для первого прямоугольника это...

Разработать программу для нахождения пути коня на шахматной доске, от одного поля до другого
Здравствуйте! Помогите пожалуйста написать программный код на Lispe и записку к нему. Разработать программу для нахождения пути коня на шахматной доске, начинающегося на заданном поле шахматной...

Переделать решение задачи коммивояжера
По примерам с других форумов написал ... ну как написал, сплагиатил и разобрался в коде :) решение задачи коммивояжера. ; поиск дороги минимальной длины (defun _findRoad (route roads) (let...

Чтение из файла
Имеется следующая функция для возведения в степень. (defun proba (x n) (cond ((= n 0) 1) (t (* x (proba x (- n 1))))) )

Найти число "счастливых" билетов с номерами от 000000 до 999999 включительно
Здраствуйте уважаемые форумчане, помогите пожалста решить задачу на Lisp. Заранее вам спасибо))) Найти число "счастливых" билетов с номерами от 000000 до 999999 включительно. Билет считается...

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

Ошибка " should be a lambda expression "
Привет всем. Я написал код на Common Lisp который должен выводить элементы матрицы ниже главной диагонали включительно . Вот он : (defun pr (a b v ) (prog (result) ...

Как проверить равенство?
Первого и последнего элементов списка?!?! :cry: Добавлено через 7 минут \sum_{i=1}^{n}(i+k)

Объясните как работает &optional на примере
Объясните пожалуйста как работает здесь опшионал: у него здесь при каждом рекурсивном обращении в f присваивается хвост списка? Обрабатываемый список записывается на протяжении всей программы...

скачать visual lisp
где скачать visual lisp? нужно скачивать autocad?

50 задач: Common Lisp
50 задач Code golf: https://code.golf Статистика https://code.golf/stats

Удалить 1 элемент списка (из списочной структуры)
Здравствуйте. Помогите пожалуйста исправить программу. Думаю уже 3 сутки, голова кипит %-) Основное задание: Удалить все положительные элементы из списка (списочной структуры), используя стандартные...

Еще задача из раздела "С для начинающих" - перевод из постфиксной записи в инфиксную
Дана алгебраическая формула в постфиксной записи. Получить из нее инфиксную (обычную) запись со скобками. Т.е. (a b c * +) => (b * c) + a Мое решение: (defun post2inf (lst) (let ((sv nil)...

использование let
(define x 1000) (define y 200) (let ((x 3) (y 4) ) (+ x y) ) получается 7

Построить по регулярному выражению автомат
Добрый день. Имеются задания: Регулярное выражение задается в следующей форме: если L1 и L2 - регулярные выражения, то выражения (+ L1 L2), (L1 L2), (* L1) и (+ L1) представляют соответственно...

Повторяющиеся элементы списка
Вообщем надо удалить из списка повторяющиеся элементы. На '(a b a) должен выдавать (b). На '(a b a a c) должен выдать (b c). Может у кого есть какие-нибудь идеи? Конечно понятно что это делается...

Написать функцию объединения множеств
Всем привет! Задача: Пусть s1 и s2 - "множества с повторяющимися элементами". Определите функцию (f s1 s2), которая вычисляет "объединение множеств". Так, например, вызов (f 'i, 1 2 12 13) '(5 3...

Программа, преобразующая префиксную запись в инфиксную
Здравствуйте! Помогите с написанием программы, пожалуйста. Задание: Напишите программу, которая преобразует префиксную запись арифметического выражения в инфиксную с учетом того, что знак...

Оформление листов
Давно работаю в автокаде и задумался, как автоматизировать или упростить используя лисп ряд операций. Сам язык к сожалению не знаю. Пытался сам , но пока ничего не выходит. Задумка простая из...

Математические функции в Scheme (Script-Fu)
Здравствуйте. Через Script-Fu заинтересовался языком Scheme (как понимаю, это диалект Lisp). В интернете много материалов для начинающих, но мне пока не удалось найти какое-то более полное...

Алгоритм функции по 3D рисованию детали
Доброго всем времени суток! Задача следующая: Нарисовать деталь в 3D средствами Lisp: В связи с этим вопросы: 1. Как лучше начать рисовать с помощью выдавливания или брать сразу фигуры? 2. ...

Пересечение списков
Напишите функцию (f X Y), которая возвращает список Z - "пересечение" списков X и Y, т.е. список, содержащий их общие элементы, причем кратность каждого элемента в списке Z равняется максимуму из его...

Условия IF и COND
Всегда ли IF можно заменить COND? какие особенности замены в рекурсий? (defun make-heap (&optional (length 7)) (make-array length :adjustable t :fill-pointer 0)) (defun left-index...

Сортировка списка
Всем доброго дня. Иногда занимаюсь тем, что переписываю функции, чтобы лучше понять, как работает язык. Решил переписать функцию сортировки списка чисел. Написал: (define (sort lst) (if...

Написать функцию, использующую метод Ньютона для вычисления квадратного корня
Написать функцию, использующую метод Ньютона для вычисления квадратного корня. Метод Ньютона вычисления квадратного корня из числа x начинается с выбора начального приближения y. Это приближение...

setf setq
Скажите, в чем разница между setf и setq?

Соединить три элемента в одну строку
Программа для двух элементов, напишите пожалуйста для трех с помощью рекурсии! (defun NEW (a b) (concatenate 'string a b))

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

Обобщенный алгоритм Евклида (Наибольший общий делитель)
Этот алгоритм (см. скриншот), помимо нахождения наибольшего общего делителя a и b (gcd a b), должен также возвращать x и y, удовлетворяющим условию: ax + by =...

Извлечь корень н-ной степени из числа
;Великая теорема Ферма. ;Для любого натурального числа n > 2 уравнение ; a^n + b^n = c^n ;не имеет натуральных решений a, b и c. (defun Ferma (a b n) (setq sum (+ (expt a n) (expt b...

"Функции более высокого порядка. Функциональный аргумент, функциональное значение. Способы композиции функций" - композиции и функции высокого порядка
Идут 2 вопроса подряд: "Локальные определения (форма LET). Функции более высокого порядка. Функциональный аргумент, функциональное значение. Способы композиции функций." Что имеется в виду под...

Вычислить сумму ряда
помогите решить задачи! Задача1. Для произвольных...

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

Лого (Лисп без скобок). В том числе для функционального программирования и изучения рекурсии
Собираюсь изучать рекурсию. https://portal.ort.spb.ru/lib/Documents/LogoRecursion/index.htm Кому то возможно будут интересны файлы во вложении. Логомиры 3 демо...

Lisp в GNU Emacs
здравствуйте. думаю гну емакс объект достойный внимания. у меня вопрос, можно ли на его встроеном интерпретаторе запускать сразу две или 3 программы, или создать запуск цепи: одна прога открывает...

Найти сумму чисел в списке
Всем доброго времени суток! Нужно найти сумму чисел в списке. Атомы списка состоят из чисел и любых других символов. Среда программирования mulisp. Заранее благодарен!

Цикл while в Lisp
Здравствуйте! Есть задание: Определить функцию, которая возводит второй элемент числового списка в степень, равную четвертому элементу списка. Как я хотел решить: написать отдельно функцию...

Представление дерева в виде списка
Здравствуйте. Так и не могу понять, каким образом представляются деревья в виде списков! Можно пример?

Проход по элементам списка
определить функцию ДОБАВЬ прибавляющую к элементам списка заданное число. (defun добавь (x y) (cond ((null x) `stop)(t(+ y (добавь (car x))))))) ==> добавь (добавь `(1 2 3) 5) Error in x...

LISP активный лист AutoCAD
Скажите пожалуйста, как с помощью LISP сделать неактивный лист AutoCAD активным?

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

Проверка "состава" списка XLisp
Необходимо проверить является ли список списком чисел или нет. (defun list-check (list) (cond ((null list) "Yes") ((numberp (car list)) (list-check (cdr list))) ((not (numberp (car...

НОД в лиспе, косяк в коде
не могу понять, где накосячила. прога вылетает. раньше выводила тупо делимое, а теперь вылетает... задание вроде простое - Найти наибольший общий делитель НОД (M, N). Указание: искать НОД через...

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

Common Lisp пустой список
Как сделать чтобы вместо NIL выводились () (defun task (lst) (cond ((null lst) nil) ((or (null (car lst))(listp (car lst))) (cons (car lst) (task (cdr lst)))) (t (task (cdr...

Работа со списками
Всем привет! Помогите пожалуйста решить задачи. Никак не могу со списками разобраться. Задача 1. Определите функцию, которая меняет местами первый и последний элементы списка, оставляя...

Функционалы
Здравствуйте, помогите, пожалуйста решить следующую задачу. Как-то сложно у меня идет с функционалами. Опpеделите на языке ЛИСП функционал, вставляющий перед каждым элементом списка, обладающим...

Польская обратная запись
Разработать функцию, преобразующую арифметическое выражение, заданное в форме списка, в польскую обратную запись. Например: Вход: (3 * 2 - 5). Выход: (- * 3 2 5).

Интерпретатор Лиспа
Какой интерпретатор для Лиспа поддерживает Wundows 7? Я скачал Lisp IDE, но не знаю как запустить программу. Помогите пожалуйста.

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

Mapcar в lisp
Как написать программу, которая применяет функции к элементам списка с помощью mapcar? (mapcar f1 f2 list1 list2) ; f1 - функция, применяемая к нечётным элементам ; f2 - функция,...

Организация циклов в Lisp (bee lisp demo)
разбираюсь с простыми задачами, эти пока не знаю, как решать... помогите пожалуйста. 1. Слова в предложении разделены пробелами. Упорядочить слова в соответствии с ростом их длины. 2. Определить в...

Увеличение значения глобальной переменной
Интересуют другие решения для увеличения/изменения значения глобальной переменной. Более изящное решение для процедуры addx #lang racket (define (addx n x) ; n = n+x; (set-box! n (+...

Функция удаления первого вхождения элемента в список
Напишите функцию удаления первого вхождения элемента в список (многоуровневый). Получилась только проверка элементов на идентичность как делать дальше не знаю. Код проверки: (defun eqobject...

Построить бинарное дерево по заданным данным и найти самую старую ветку
Всем привет:). Спасибо всем за помощь с предыдущим заданием :bravo:. Я познал много нового о лиспе. Что-то понял, что-то не полностью, но я стараюсь. У меня тут новое задание появилось, надеюсь...

Lisp без скобок
Почему бы не заменить скобки отступами? Всё-равно код приходится форматировать отступами, так как неотформатированный код нечитабелен. Достаточно простого, однопроходного препроцессора. Наверное,...

диалоговые окна
добрый вечер, уважаемые форумчане! вопрос касается диалоговых окон. В книге Полищука и в интернете нашел несколько примеров на данную тему(примитивная программа - вывод диалогового окна с парой...

Рекурсивное инвертирование?
Имея вот такой список: (0 1 (1 1 2) (1 1 2 3) 4 (1 2 (1 1 3) 5) 6) Как я понял, его нужно сделать вот таким: ( 6 ( 5 ( 3 1 1 ) 2 1 ) 4 ( 3 2 1 1 ) ( 2 1 1 ) 1 0 ) Я разложил все эти элементы и...

Пишу программу составления школьных расписаний на Лисп, уже на первом этапе возникли трудности
Здравствуйте, пишу в качестве выпускного проекта программу составления расписаний на Лиспе, при этом испытываю большие сложности с самого начала, в голове практически пусто. Начать решил с функции...

Процент успеваемости и средний балл в ведомости
Имеется ведомость с экзамена на группу учеников: <Фамилия>((<Предмет 1>,<Оценка>),....(<Предмет 4>,<Оценка>)). Определить по каждому предмету процент успеваемости и средний балл. Вывести на экран...

Проверить аргумент функции, является ли он символом
Как можно проверить, что аргумент функции является символом? Я сначала делал просто проверку на то, что аргумент не является числом: (if (not (numberp x))) А потом обнаружил, что в функцию можно...

Написать функцию, возвращающую список из n копий заданного атома x
В lisp'e совсем плох. Надо решить три задачки. Написать функцию: 1.Возвращающую список из n копий заданного атома x. (Например, x=4, n=5 -> (4 4 4 4 4) 2.Добавляющую заданный паpаметpом x символ...

Примеры программ и сайтов на Lisp и Scheme прошу подсказать
А какие сайты и программы с GUI написаны на этих языках?

Сумма элементов списка Lisp
Написать программу: задан список. Найти сумму первого, третьего и седьмого элементов списка, если указанные элементы - числа. В противном случае возвратить последний элемент списка.

Списки - удалить начало списка до заданного элемента X (включительно)
помогите плиз Удалить начало списка до заданного элемента X (включительно).

Для чего нужен знак #' в Common Lisp?
Кто подскажет для чего нужен знак #' в Common Lisp?

Посчитать количество подсписков на верхнем уровне списка
Ребят, может кто знает как решить, а то я уже запуталась:(: 1)Напишите рекурсивную функцию, определяющую число подсписков на верхнем уровне списка. 2)Определите предикат SETOF-P, который...

Перевести число из десятичной системы счисления в двоичную
Доброго времени суток! Помогите, пожалуйста с заданием. Задание №1. Разработать рекурсивный вариант программы в функциональном стиле для решения предложенной задачи. Задание №2. Разработать...

Слияние упорядоченных списков
Даны два упорядоченных по возрастанию числовых списка. Объединить их с сохранением упорядоченности. Пример: (1 2 5 6 11) и (-1 0 3 4 7 15) должны дать (-1 0 1 2 3 4 5 6 7 11 15)

Проверка графа на ориентированность
Написать функцию, на вход которой подается граф в виде (a (b) b (c d) c (e f g) …). Функция должна проверять, является ли граф ориентированным. Добавлено через 7 минут Вкратце идея была такова,...

Удаление из списка всех элементов с четными номерами
Недавно начал осваивать lisp , вот бьюсь над задачей,как удалить из списка все элементы с четными номерами. Как понял надо использовать функцию cond , но не совсем понимаю как она должна...

Разделить список на 2, в первый поместить четные элементы исходного списка, во второй - нечетные
Помогите пожалуйста, написать программу переносящую все нечетные элементы одномерного числового массива в один новый массив,а четные в другой

Нахождение количества атомов в списке
ДОБРЫЙ ДЕНЬ. Попробовал написать программу, но не работает. Помогите пожалуйста найти и исправить ошибку. Напишите следующие рекурсивные функции: 1) Определите функцию, вычисляющую сколько всего...

Вложенные списки
Всем привет, хочу задать такой вопрос: как соорудить процедуру, которая раскрывает вложенные списки? При вызове процедуры (my-flatten '((1) 2 (3 (4 5)) 6)) , она должна на выходе выдавать...

Преобразование списка в множество
Здравствуйте! Пытаюсь преобразовать список элементов в множество, причем список может содержать другие списки: (A B (A C (X B Y) A) D) -> (A B C X Y D). У меня почему-то последний элемент не входит в...

Необходимо расшифровать криптограммУ
Необходимо расшифровать криптограммы, поступающие с орбитальных спутников Марса. Криптограмма представлена в символьном виде, имеющем иерархическую структуру, поэтому для расшифровки использовать...

Список: Вывести на экран в обратном порядке введенный список
Помогите решить задачку пожалуйста! Создать программу, выводящую на экран в обратном порядке введенный список!

Рекурсивное решение - объединение подсписков
Имеется к примеру (list '() '(1 "a") '() '(99 "z") '()) Как в рекурсивной функции сделать сделать список, игнорируя пустые к виду '((1 "a") (99 "z")) любой вариант - лисп, ракетка, схема

Опишите неименованные функцию, которая: объединяет остальные элементы трех списков в один список.
1) Опишите неименованные функцию, которая: объединяет остальные элементы трех списков в один список. 2)Опишите неименованные функцию, которая позволит объединить главы трех списков в один список...

В чем отличие read от read-line
Подскажите чем отличается read от read-line.

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

Вызов функции, определённой через defun
Доброго времени суток. Дана задача: не используя операторов set и setq, определить функцию, добавляющую заданное параметром число x к каждому элементу числового списка L. Написал код: (defun f (x...

Сортировка вставками
1) реализовать сортировку списка вставками. 2)описать функцию y(n)= \sum_{i=1}^{n}\sum_{j=1}^{n}({i}^{j}-i) и сделать проверку чтобы при вводе например n=1 вышел верный расчёт..

Поиск элемента во множестве
Здравствуйте! Написал функцию поиска значение предиката принадлежности заданного элемента заданному множеству. Тот редкий случай когда всё сделал сам. Но я думал, что она будет работать не верно...

Количество числовых атомов в списке
Всем привет. Есть такая функция, которая считает количество числовых атомов в списке. Даю на вход '(a 2 3 b) - на выходе 2 . Как сделать, чтобы когда на вход подам '(a (2) 3 b), на выходе тоже было...

Функции CAR и CDR
Здравствуйте, необходимо решить задачку описанную ниже, сам я в этом деле почти 0. "На языке Лисп составьте композицию из функций CAR и CDR, для которой результатом применения этой композиции к...

Замена элементов списка
Помогите пожалуйста, никак не могу решить следующую задачу. Заменить каждый атом списка за знак "+", если он - символ латиницы, и на знак "-" - если символ кириллицы.

Script-Fu. Совмещение двух изображений в одно (Преобразование в слои и наложение)
Здравствуйте! Есть проблема с выполнением задания. Требуется написать скрипт, который совмещает два изображения в одно (Преобразование в слои и наложение). Собственно, я нашёл функции, которые в...

Проги на ЛИСП.
Здравствуйте. Помогите пожалйста решить некоторые задачи на ЛИСП. Знаю, что они не сложные, просто упорно не пойму как их делать. 1. Определить с помощью лямбда-выражения функцию, вычисляющую...

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

Как вызвать функцию?
Подскажите пожалуйста, как вызвать функцию F для поиска минимального остовного дерева? https://www.cyberforum.ru/post6334776.html Ввожу: (F (1 a b)) выводит ошибку EVFUN: Не найдена функция 1...

Определение собственных функций в LISP
2)Написать функцию, которая принимает список в качестве аргумента и возвращает список, у которого первый и второй элементы поменяны местами. 3)Определить функции (NULL x), (CADDR х) и (LIST xl х2...

Поиск максимального и минимального значения списка
Здравствуйте, разобрался, как найти для списка минимальное и соответственно максимальное значение, а как это можно сделать сразу за один проход списка? Видел решения такого, но делалось всегда с...

Рекурсивное преобразование списка
Здравствуйте Помогите пожалуйста с задачей: Используя приемы рекурсии в Лиспе, выполнить преобразование какого-либо одноуровневого списка вида (a b c d e f g h i j k l m n) получив список вида...

Написать функцию для вычисления полиномов Лежандра
Всем доброго времени! Ниже дано задание (пунктуация и написание сохранено). Напишите рекурсивную функцию для вычисления полиномов Лежандра (P0(x)=1, P1(x)=x, Pn+1(x)=...

Цикл DO в стандартном Lisp
Как правильно задать данную формулу?

Функции в CLISP
как работает функция subseq? какие параметры у этой функции?

Задание muLisp: "длина списка с помощью рекурсии"
Доброго времени суток. Есть вот такой код: (defun Length (L) (cond ((null L) 0) (T (+ 1 (Length (cdr L))) ))) (Length '(A (5 6) D)) Он считает длину всего списка с помощью рекурсии. Как...

Реализовать case функцию
Реализовать функцию, которая возвращает в качестве результата колечество дней аргумента названия месяца, но почему при введении правильных данных результат всегда NIL? (defun switch(value) ...

Арабские цифры в римские
Помогите пожалуйста в решении задачи: Для представления римских цифр используются символы: I - один, V - пять. X -десять, L - пятьдесят, С - сто, D - пятьсот, М - тысяча. Для изображения числа с...

Чем отличаются DEFVAR и DEFPARAMETER?
собственно, вопрос в теме.

Функция, которая проверяет, являются ли все элементы списка положительными числами
Помогите понять, в чем ошибка. Нужно-ли третье условие? Если в списке числа (положительные) то "Истина"? Задачка: а) напишите функцию, которая проверяет, являются ли все элементы списка...

GNU CLISP
Скачал отсюда https://clisp.sourceforge.io/ версию 2.49 и установил в Windows XP 32 bits Home. Изучал этот урок https://www.youtube.com/watch?v=BaJeeGtJ6mE (скриншот из него). Там надо создать в...

Как заменить let на let*
Всем привет. Подскажите пожалуйста, как правильно переписать вот это: (let ( (x (let ( (p 'a) ) p ) ) (y 'b) ) (list x y) ) в форме let* и убрать второй let ?

7. Пусть дано n прямоугольников, заданных координатами левой верхней и правой нижней вершины. Стороны прямоугольников параллельны осям координат. Опр
Пусть дано n прямоугольников, заданных координатами левой верхней и правой нижней вершины. Стороны прямоугольников параллельны осям координат. Определите пару прямоугольников с максимальной площадью...

Реализация функции нахождения в списке наибольшого подсписка
Помогите разобраться как можно реализовать такую функцию на Lisp'е. И можно ли вообще составить работающий алгоритм без необязательных аргументов? Буду рад любому совету. Заранее спасибо.

фибоначчи
Дана последовательность чисел. Определить сколько из них входят в последовательность Фибоначчи.

Расшифровать шифр Виженера-МГ
Реализовать на ЛИСПе расшифровку сообщения в среде Allegro CL Lite 3.0.1. Шифр - Виженера-МГ, ключ "ЭМУ", номер гаммирования 2 (с пропусканием пробелов и конца предложения), предикат ошибки -...

Установить XLisp
Нашла код в интернете написанный на XLisp для курсовой работы, но найти и установить этот самый XLisp никак не могу! очень прошу помочь найти программу и заставить её работать :)

Написать программу, позволяющую получить календарь любого года, месяца
Помогите написать программу: Написать программу, позволяющую получить календарь любого года, месяца в предположительных пределах 1900-2050 гг. с указанием дня недели, соответствующего данному...

Калькулятор
Функция 'CALC' ввод двух чисел и операции между ними, выход из функция словом 'konec' Например: >(calc) Vvedite vashy chisla i operaciju: 4 + 1 5 Vvedite vashy chisla i operaciju: 5 - 1 4...

Структура списка HomeLisp
Поясните пожалуйста как это делается. Я знаю что car-голова, cdr- хвост, cons-обьеденить. Но имея даже похожий код я не могу понять как оно работает. В интернете только примитивные примеры или я...

Рекурсивное возведение в дробную степень
Доброго вечера Подскажите, как можно реализовать рекурсивно(!) возведение в дробную степень, при том, что она может быть еще и отрицательной? Заранее спасибо

CommonLisp посчитать количество символов
Посчитать количество символов в строке,к примеру ( 2 s 3 f 7 f a v) =>5 Написали такую задачу http://cs624825.vk.me/v624825488/16bad/Lfts6VOVXIo.jpg преподавателю не понравилось,сказал что-то...

Написать функцию, проверяющую, является ли число степенью двойки
написать функцию, проверяющую, является ли число степенью двойки.

Запуск функции из файла
Есть такая функция (сохраняется в файл). Использую MULISP. (DEFUN AtomDup (x n) (COND ((not (atom x)) nil) ((not (numberP n)) nil) ((= n 0) nil) (t (cons x (AtomDup x (– n 1))) ...

Вызов функции print
Помогите, пожалуйста, разобраться. Предположим, у меня есть функция с 3 параметрами (defun ПРИМЕР (СПИСОК А В)......). Функция работает. Пытаюсь ее проверить при определенных значениях: ...

Перевернуть список
с помощью car cds и coms перевернуть список (a b (( c d) e f )g h ) Добавлено через 6 минут CONS простите... Добавлено через 2 минуты cdr

Логическая задача.Миссионеры и Каннибалы
Добрый день. Помогите пожалуйста написать алгоритм данной задачи: Три миссионера и три каннибала должны пересечь реку в лодке, в которой могут поместиться только двое. Миссионеры должны соблюдать...

Common Lisp - Поиск в глубину
Помогите решить задачу! Реализовать рекурсивный алгоритм поиска в глубину, выхода из лабиринта.

При обращении элементов списка удалить из него повторяющиеся элементы (с рекурсией и любым уровнем вложенности)
При обращении элементов списка удалить из него повторяющиеся элементы (с рекурсией и любым уровнем вложенности). Вот код, нужно доделать, чтобы работало с вложенными списками. (defun revLst (el...

Танцы со списками
Написать функцию что за списком создаст структуру ‘(q w e r t y) —> (q (w (e (r (t (y)))))) я без понятия как решить, гуглить пробовал, первый день в lisp)

Не понятно как работает define
sicp. задача на метод ньютона (define (sqrt-iter guess x) (if (good-enough? guess x) guess (sqrt-iter (improve guess x) x))) Сначала было трудно понять что и откуда. Что такое guess, но...

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

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

Преобразование инфиксной записи арифметического выражения в префиксную
Доброго времени суток, ребята! Помогите с решением ЛР. Нужно используя только примитивы Lisp (car, cdr, cons, append (у меня есть её реализация)) решить следующею задачу: запрограммировать...

Получить индекс элемента
Помогите пожалуйста решить Определить рекурсивную функцию. Распечатать результаты трассировки. Указать вид трассировки.Указать вид рекурсии(рекурсия по значению или по аргументу)В задании все...

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

Проверка на чётность в mulisp'e
Добрый вечер. Если кого-то нибудь не затруднит, помогите пожалуйста написать программу на mulisp'e: EvenLengyh(Lst) - Проверяет на четность количество элементов в списке Lst

Квадрат трехзначного числа оканчивается тремя цифрами, которое как раз составляют это число. Напишите программу поиска этих чисел
Квадрат трехзначного числа оканчивается тремя цифрами, которое как раз составляют это число. Напишите программу поиска этих чисел. (на Lisp)

Рекурсивня функция для сортировки списка
Доброе время суток. Пожалуйста помогите решить задачу ( Задали на защите лабораторной работы и я зависла на ней Т_Т Нужно создать функцию (или макрос) которая сортирует список. Например,...

Решето Эратосфена
Добрый день! Помогите пожалуйста написать программу. Заранее всем спасибо) Решето Эратосфена. Задан список N целых чисел начиная с 2. Процедура нахождения простых чисел заключается в...

Кроссворд
Нужно создать программу, которая решает кроссворд путем подбора слов из базы данных. База слов: КОММЕРЦИЯ,АППОЛОН,ОСЛО,БОРОНА,ВЕРА,ВОРОНА,КОНЕЦ,РИГА,ИРГА,РИТА,КОМПЬЮТЕР,ВЕНА. Найти и вывести в...

Числовой ребус: "УЗЕЛ+УЗЕЛ=ПЕТЛЯ"
Добрый день, необходимо решить числовой ребус: Пример: УЗЕЛ + УЗЕЛ = ПЕТЛЯ каждая буква = уникальное число уникальная цифра Ответ: 6425 + 6425 = 12850 p.s. Заранее спасибо!

Программа-калькулятор
Помогите, пожалуйста, разработать программу-калькулятор. Калькулятор позволяет использовать четыре арифметических действия, для выполнения расчетов можно использовать скобки, выполнять расчеты в...

Определить самодвойственность функции
Добрый вечер, напишите пожалуйста программу определения (не)самодвойственности булевой функции, заданной вектором ее значений. Написал программу на C++, можете ее оттранслировать на lisp? ...

Расстановки 8 ладей на шахматной доске, при которых ни одна ладья не угрожает другой
помогите пожалуйста.Разработать программу (на лиспе) для расстановки 8 ладей на шахматной доске, при которых ни одна ладья не угрожает другой.Представить возможные решения в наглядном виде.:cry:

Пpеобpазовать список во множество
Опpеделите на языке ЛИСП и проверьте работу функции, пpеобpазующей список в множество. Например, для списка (a b a a c c) функция должна вернуть (a b c). Если можно ,то пожалуйста с...

Реализовать алгоритм С4.5 построения дерева решений. Вход — таблица.Выход — дерево
Здравствуйте, пожалуйста помогите с данной задачей. Нужно реализовать алгоритм С4.5 построения дерева решений. Вход — таблица.Выход — дерево.

Поиск в списке
Функция 'vhodit' возвращает T если ее первый аргумент входит в список второго аргумента, в другом случае возвращает nil > poisk 'd '(c a d) T >poisk 'd '(c e a) nil Как можно проще, без...

Функция Listp
Помогите написать функцию, Предикат LISTP - принимает значение NIL, если заданное выражение является атомом, отличным от NIL, или выражением, которое может быть записано только в точечных...

Вычислить среднее арифметическое положительных чисел
Здравствуйте! Есть простая задачка, ток я в Lisp "0". Подскажите как ее можно решить. Вот сама задачка: вычислить среднее арифметическое положительных чисел, которые являются элементами заданного...

Движение робота по координатам
Робот в начальный момент времени находится в точке плоскости с координатами (x0, y0). Помимо этих координат на вход вашей функции подается список команд, выполняемых роботом последовательно. Команды...

Функция, находящая последний атом списка с подсписками
Необходимо решить задачу на Lispе... Помогите кто может... Написать функцию, которая находит последний атом списка с подсписками не понимаю эту задачу)))

Функция, определяющая позицию элемента в списке
Написать функцию, которая определяет на каком месте стоит заданный элемент в заданном списке из 6 элементов. Помогите новичку разобраться что то у меня с синтаксисом совсем беда.

вычислить сумму: S=k^2-(2k)^2+(3k)^2-...+(-1)^(n-1)*(kn)^2
вычислить сумму: S=k^2 - (2 k)^2 + (3 k)^2 - \, \ldots \, + (-1)^{n-1} (k n)^2

Увеличить каждый элемент списка на единицу
Помогите пожалуйста решить задачку по Common Lisp! Никак не догоняю..:( :scratch: Дан список ( (x x x x . . .) (x x x x . . .) ) . Увеличить каждый элемент на единицу.

Разделение списка
Помогите в решении задач: Создать функцию, которая разделит исходный список из целых чисел на два списка: список положительных чисел и список отрицательных чисел. Создать функцию,...

Определить степень связности неориентированного графа
Доброго времени суток Необходимо определить степень связности неориентированного графа. Под степенью связности графа понимается некоторое число R, такое, что между любыми двумя узлами...

Функционал, проверяющий наличие элемента, удовлетворяющего предикату
При необходимости можно использовать локальные или вспомогательные функции. Напишите функцию (exist p x), которая проверяет «Существует ли элемент списка х, удовлетворяющий предикату p?» (р –...

Логическая формула и совершенное число
Помогите пожалуйста написать программу: 1.Напишите функцию, (f F1), которая выдает логическую формулу F2, получающуюся из логической формулы F1 внесением всех операторов отрицания внутрь конъюнкций...

Перевод десятичного числа в n-ричную систему счисления
Помогите написать функцию на Lisp: перевод десятичного числа в N-ричную систему счисления, N>1. нужно решить задачу двумя способами: без использования циклов и функций присваивания и используя их.

Вычислить сумму ряда: S = 1 - 1/2 + 3 - 1/4+....+(2n - 1) -1/2n
1. Заданы три числа a, b, c. Определить сумму положительных чисел. 2. Вычислить сумму ряда: S = 1 - 1/2 + 3 - 1/4+....+(2n - 1) -1/2n

Перевод строки
Возможно ли из строки: "Lisp was originally created as a practical mathematical notation for computer programs" Получить строку: "Lisp was originally created as a practical mathematical notation...

Избавиться от вывода Nil
Здравствуйте! Имеется функция find-path, которая занимается поиском Эйлерова пути в неориентированном графе. В параметр x передается точка с которой нужно начать поиск пути, в параметр graph сам...

Сравнение элементов списка с числами
Как сравнить элементы списка с определенным числом? Вот например мне нужна функция, которая будет проверять голову списка на равенство нулю. Я писал так- (defun func (x) (cond ((<> (car x) 0)...

Разница между cond и if
В SICP сказанно что после предиката в cond может быть последовательность выражений, а в if - только одно. Я собственно не пойму, что за "последовательность выражений"?

Реализовать функцию включения объекта на заданное место в списке (нумерация элементов – от начала списка).
Реализовать функцию включения объекта на заданное место в списке (нумерация элементов – от начала списка). с применением локальных определений LAMBDA и LET.

Разница между apply и reduce?
Какая разница между apply и reduce?

Запуск файла и функции
Есть код, как запустить его и вызвать функцию в GNU CLISP 2.49. Как всё это прописать чтобы работало? и будет ли этот код работать? (defun min-max (lst &optional (min (car lst)) (max (car...

Для чего здесь используется функция labels
Задание: Определить функцию для преобразования списка по принципу : (A B C) -> (((A)B)C) (defun left (lst) (labels ((left-acc (lst acc) (if (null lst) acc ...

Раскраска плоской карты в 4 цвета
Необходимо раскрасить плоскую карту четырьмя цветами, так что бы любые две смежные области не были окрашены в один цвет. В LISP'е это ваще жесть. Кто-нибудь в состоянии помочь?

Преобразование 32-битного целочисленного представления айпи-адреса в строковое
Источник: http://company.yandex.ru/job/vacancies/dev_desktop.xml (3-ий вопрос). Моё решение на общелиспе: (defun format-ip (uint32) (declare (type (unsigned-byte 32) uint32)) (format nil...

Работа с файлами в lisp
Здравствуйте! Прошу помощи в написании программы.... Имеется файл с предложениями и имеется файл со словами т.е. всего 2 файла... необходимо посчитать сколько слов из второго файла встречается в...

Объединить два списка с подсписками
Пользуюсь common lisp. Не получается объединить списки ((5 2) (2 3) (4 3)) и ((3 1) (3 3) (2 4)) так, чтобы получилось в результате ((3 1) (3 3) (2 4) (5 2) (2 3) (4 3)). Пытаюсь сделать...

Определить призеров олимпиады.
Помогите пожалуйста решить На олимпиаде по информатике участвовало пятеро учеников: Вася (В), Гриша (Г), Иван (И), Саша (С) и Юра (Ю). Об итогах олимпиады имеется 5 высказываний: (1) Выиграл...

Функции высшего порядка
Читаю книгу (defun plot (fn min max step) (loop for i from min to max by step do (loop repeat (funcall fn i) do (format t "*")) (format t "~%"))) Что происходит, не могу...

LAMBDA - выражение
Доброй ночи! Вопрос тупой, но я с Лиспом первый день:) LAMBDA - выражение может возвращать список? Если да, то почему ( ( lambda ( y1 y2) ( list (* y1 y1) (* y2 y2) )) 2 3) не работает???...

Вычисление чисел Фибоначчи
2. Последовательность чисел Фибоначчи 1, 1, 2, 3, 5, 8, 13… строится по следующему закону: первые два числа - единицы; любое следующее число есть сумма двух предыдущих f(n)=f(n-1)+f(n-2). Напишите...

Необходимо сделать так, чтобы последовательность #{A B} воспринималась Лиспом как список симметричных чисел
Необходимо сделать так, чтобы последовательность #{A B} воспринималась Лиспом как список симметричных чисел из заданного диапазона, где A – целое неотрицательное число, с которого начинается...

The variable function is unbound
Пытаюсь создать функцию по добавлению элемента в список. Вот что вышло (defun insert(element position elements) (if (= position 0) (cons element elements) (cons car(elements) insert(element (-...

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

Lisp функция mapcan
Здравствуйте нужна помощь. Дано два списка (a b c) и (1 2 3) из него надо сделать один список (a1 b2 c3)... Функцию которая должна решать это нашел (mapcan ‘list ‘(a b c) ‘(1 2 3)), но не могу...

[Забавное: Проклятый Common Lisp
http://www.stolyarov.info/node/262 К сожалению этот вариант видимо уйдет в печать:( Желающие могут поспорить на тему чистоты архитектуры))

Сколько яблок крестьянка принесла на рынок?
Крестьянка принесла на рынок корзину яблок. Первому покупателю она продала половину всех своих яблок и еще пол-яблока, второму - половину остатка и еще пол-яблока, третьему - половину остатка и еще...

Как сделать задачу применив функционал maplist или mapcar
Напишите функцию с использованием функционалов. При необходимости используйте локальные или вспомогательные функции. Задание: Напишите функцию, единственным аргументом которой являлся бы список...

Common Lisp - Работа с векторами
Разработать программу используя функции работы с векторами и списками. Размерность и элементы массива необходимо читать с клавиатуры и заполнять случайными числами (должно быть две отдельные...

Составить программу, определяющую максимальное из трех чисел, не используя стандартную функцию
1. Составить программу, определяющую максимальное из трех чисел, не используя стандартную функцию. 2.Дана функция . Написать программу для поиска максимального значения y в промежутке x с шагом...

организация вычислений
Оочень нужна ваша помощь,3 дня сижу,и все без толку!вроде все правильно,и все равно какие-то ошибки...а некоторые вообще не представляю как решать,да ещё и времени в обрез( версия clisp,хоть...

Функция eval
Подскадите один момент на счет процедуры eval (в частности в Scheme). На сколько я знаю процедура eval приниамает 2 аргумента, один из которых - выражение, второй - окружение: (eval expression...

К данному отрезку восстановить перпендикуляр в его середине
мой вариант решения: (setq P1 (getpoint)) (setq P2 (getpoint)) (setq D (/ (distance P1 P2) 2)) (setq P3 (list (/ (+ (nth 0 P1) (nth 0 P2) ) 2) (/ (+ (nth 1 P1) (nth 1 P2)) 2) )) (command...

Рекурсия: возврат значения n-го члена ряда Фибоначчи
Помогите пожалуйста, нужно определить рекурсивную функцию, возвращающую значение n-го члена ряда фибоначчи: f(0)=0, f(1)=1, f(n)=f(n-1)+f(n-2). Помогите в лиспе вообще не соображаю(((

Проверка попадание точки в заданную область
Каким образом можно проверить попадание введенной точки в заданную область,изображенную графически (например в квадрат)?

Как реализовать метод резолюций для логики предикатов первого порядка
Добрый день! помогите пожалуйста выполнить задание на Лиспе. Написать программу, реализующую метод резолюций для логики предикатов первого порядка, позволяющий строить доказательство возможности...

Пересечение множеств/ Intersection of sets
Привет всем, я в Лиспе новичок, есть задание, может кто-нибудь поможет, пожалуйста. Было бы здорово, если решите в DrScheme Privet vsem, ya v LISPe novichok, yest zadaniye, mojet kto nebud pomojet...

Типичные ошибки при написании Лисп-кода
Здравствуйте! Скажите пожалуйста, какие вы можете назвать типичные ошибки при написании кода на Лиспе? Чего следует избегать в первую очередь? Очень хотелось бы составить список, да побольше....

Функция, вычисляющая сумму элементов-чисел на каждом уровне исходного списка
Здравствуйте! Помогите решить задачу: Написать функцию, вычисляющую сумму элементов-чисел на каждом уровне исходного списка. Рекомендуется следующая форма результата : (( 1 <сумма числовых...

Минимальный и предминимальный элементы списка. Лисп
Добрый вечер! Есть задание. В среде Common Lisp нужно создать функцию, которая выдавала бы два минимальных элемента списка (минимальный и предминимальный). Буду очень благодарен за помощь.

Получить списки и символы из заданого списка
Вот нужно получить заданные списки и символы 1. символ K 2. символ E 3. список (A B C) 4. список (D K L) 5. список ((B C) K) 6. список (C A K) из списка ((A (B C)) (D (E) K) L), пытаюсь...

Транзитивное замыкание бинарного отношения
Подскажите пожалуйста как на заданном графе R= ((1 3) (1 4) (2 1) (3 2) (4 1) (4 5) (5 3) (5 6) ) найти транзитивное замыкание бинарного отношения?

Рекурсия и случайные числа
Здравствуйте, очень нужна помощь в common lisp'e , готов даже отплатить за помощь. Вот такая задача: создайте функцию, порождающую по заданным числам n, m, k список, состоящий из n случайных...

Описать функцию, удаляющую из списка элементы в определенной последовательности
Нужно описать функцию, удаляющую из списка элементы в определенной последовательности: сначала 2, затем 4 и т.д. К примеру, из ( q 1 3 2 3 5 4 4 r t 6 6) должен получиться список (q 1 3 3 5 4 r t 6)....

Графика: функция рисования равностороннего треугольника
Еще раз добрый вечер. HomeLisp-е написать функцию, запрашивающую у пользователя сторону треугольника и отрисовывающую равносторонний треугольник с заданной длиной стороны и левым нижним углом в...

Написать функцию, определяющую кратчайший путь между указанными двумя вершинами графа
Задан граф, у которого для каждой дуги задана ее длина: ((a b 12) (s d 3) …). Написать функцию, определяющую кратчайший путь между указанными двумя вершинами. Нашел в интернете вот такую...

Среда разработки на Lisp под DOS
ребят подскажите среду программирования для Lisp под DOS... Добавлено через 2 минуты будет еще лучше, если еще и ссылку для скачки подкините =)))

Работа со списками
Ребят, помогите пожалуйста! Сессия на носу...:*((( Задание: написать функцию, формирующую два списка. в первом расположены символьные, а во втором численные элементы входного списка. Всем...

Поиск одинаковых элементов в двух списках
Здравствуйте. Помогите пожалуйста решить. Необходимо сформировать список, состоящий из элементов, которые встречаются в обоих исходных списках. Рекурсивный вариант сделал, теперь необходимо сделать...

Как реализовать умножение целочисленных элементов списка в Lisp?
Задание такое: "Задать рекурсивную функцию, вычисляющую произведение целых чисел из списка." , т.е. как я понял, если в списке не целые числа(всякие буквы и левые символы не в счет), то они не идут в...

Функции CAR и CDR
Прошу помочь в решение задачи Запишите последовательности вызовов CAR и CDR, выделяющие из приведенных ниже списков символ "goal". Упростите эти вызовы с помощью функций C...R. ((1 (2 (3 4...

Ряд Фибоначчи
Добрый день. Помогите пожалуйста решить задачу очень нужно. :( Запрограммируйте с помощью предложения DO: 1) функцию fib(n) , вычисляющую n-ый элемент ряда Фибоначчи. Вывод информации осуществить...

Функция Аккермана
Читая учебник по SICP, я наткнулся на функция Аккермана. Выглядит она так: (define (Akkerman x y) (cond ((= y 0) 0) ((= x 0) (* 2 y)) ((= y 1)...

Существуют ли IDE для лиспа под Ubuntu?
Добрый день! Посоветуйте, пожалуйста, какую-нибудь IDE для лиспа под ubuntu, если такая имеется. Добавлено через 2 часа 13 минут Или подскажите, как запускать программы на лиспе через консоль?...

Отсечь последний элемент списка
Здравствуйте! Нужно написать программу, которая бы отсекала последний элемент списка используя только примитивы car,cdr, cond, т.е. рекурсивно. Вот как я пытаюсь это сделать: рекурсивно при...

функция gorner n lst x лиспе?
Написать функцию (gorner n lst x) – вычисления значения многочлена степени n в точке x, коэффициенты которого заданы в списке lst. спасибо

Графический интерфейс в Lisp
Вот у меня задание с использованием графического итерфейса. Кто что может посоветовать: "Написать программу, которая создает два окна: окно меню и рабочее окно. Окно меню может быть расположено...

Как установить Lisp?
Читал как установить но ничего не получилось. Скачал emacs 24.3 и gnu common lisp 2.6.1 Помогите!

Синтаксический и семантический анализ арифметического выражения
Здравствуйте. Имею задание: Написать программу, которая будет выполнять синтаксический и семантический анализ арифметических выражений. Выражение может иметь произвольный уровень вложенности...

Напишите с помощью композиции условных выражений функцию от четырех аргументов
Доброго времени форумчане, нужна ваша помощь по реализации следующего задания: Напишите с помощью композиции условных выражений функцию от четырех аргументов-> (x1 x2 x3 x4). На форуме есть темы где...

Составить число из чисел
Задача отсюда: https://www.cyberforum.ru/discrete-mathematics/thread934987.html Привожу свое решение для произвольного количества чисел....

Проверить, является ли первое множество подмножеством второго
Даны два множества, представленные списками. Проверить, является ли первое множество подмножеством второго. Прокомментируйте код: (defun contain (X A) (if (null X) nil (or (eq (car X) A)...

Проверить, является ли данный вектор собственным для данной матрицы
Помогите как реализовать эту задачу? Заданы матрица и вектор в виде двумерного числового массива и одномерного числового массива соответственно. Проверить, является ли данный вектор собственным для...

Стоит ли изучать LISP "чайнику"?
Ребят, LISP для меня, первый язык, который я начал изучать. Подскажите, стоит ли изучать мне этот язык? Не тяжеловат ли он будет для меня-новичка?

[Homelisp] Удалить из строки лишние пробелы
В заданной строке все слова разделены несколькими пробелами. Удалить все лишние пробелы.Если можно то помогите.

Даны два двоичных числа в виде списков, нужно их сложить
даны два двоичных числа в виде списков....нужно их сложить..результат должен выводиться так же в виде списка...

Отсечение целой части у простой дроби [HomeLisp]
В HomeLisp функция floor для этого совсем не подходит: (floor 3/4) Aргумент FIX - не число ==> ERRSTATE (floor 0.75) ==> 0

транспонирование матрицы
Всем привет =) Такой вопрос, как можно транспонировать матрицу, при чем 2 способами: сначала используя рекурсию, а потом используя функционал?

Подсчет узлов бинарного дерева
вот код программы: (defun node_counter(tree) (cond ((null tree) 0) (t (+1 (node_counter(second tree)) (node_counter(third tree)) ) ) ) ) ввожу: ...

Подсчет Блоков и Динамических блоков с учетом visibility (видимости) и сумму длин линий, полилиний по слоям и вывод результатов в Ecxel
Привет всем! После долгих "ручных" подсчетов различных элементов на чертежах назрел вопрос об автоматизации всего этого процесса. Пользуюсь разными лиспами (прилагаются во вложении) как их объединить...

Какие из ветвей условной функции COND не будет выполнены?
Изучите следующий фрагмент (COND ((ATOM X) (SETQ X NIL)) ((ATOM NIL) (SETQ X ’(NIL)) ) ((LISTP X) (SETQ X (CAR X))) ((LISTP NIL) (SETQ X (LIST X)) ) ) Какая (или какие) из четырех ветвей...

Задачи lisp
Если у кого-то встречались подобные программы, или есть наработки, подскажите пожалуйта Контрольная работа №1 «Функциональное программирование» 1.Функция суммирует элементы списка, полученное...

Рисование многоугольника в Lisp
Всем привет, у меня еще один вопрос: пишу команду "построение многоугольника" в автолиспе в следующем виде: (command “_.polygon” 4 “_E” p1 p2) Она не работает. Переписала: (command...

Можно ли считать список integer без парсинга?
Нужно считать два списка интов один двуэлементный, второмй максимум 10^7 элементов. Все числа натуральные, максимальный размер числа 10^9. Нужно найти сумму элементов второго списка и вывести...

и еще подскажите как записать кубический корень
и еще подскажите как записать кубический корень!!!!

Сравнение векторов
Задание: Покомпонентные действия над векторами, представленными с помощью списков: сравнение векторов

Используя функцию DEFUN, определить функцию f (a x)
Используя функцию DEFUN, определить функцию f (a x), где a - s-выражение, a x –список, состоящий из 2-3 элементов, которая удаляет из списка x первый элемент, если хотя бы один из элементов равен а,...

удалить из списка н-ный по счету элемент
1. Дан список и позиция элемента. Удалить элемент с заданным номером. 2. Удалить элемент из средины списка.

Операции над списками в clisp
Помогите решить: 1) Определить максимальную вложенность(глубину) списка: '(a(b)c(d)) -> 2 2) Найти количество атомов в списке: '(a(b)2(d(e)))->5 3) Вывести список атомов ...

Реализовать алгоритм решения задачи коммивояжера
дали задание: Реализовать алгоритм решения задачи коммивояжера. честно говоря, даже не знаю с какой стороны подойти. Гамильтонов цикл? тогда каким поиском?

Действия с матрицами
Дана матрица А размера 8*7, состоящая из констант от 0 до 9. Если число повторов элемента в массиве А совпадает с самим элементом, то заменить его на нуль. Как в clisp написать число повторений,...

Объясните как работает pairlis
Приветствую! Объясните пожалуйста, как тут (DEFUN pairlis (x y al) (COND ((null x) al) ((QUOTE T) (CONS (CONS (CAR x) (CAR Y) ) ...

Функция List и Quote
Доброго вечера всем! Лисп читаю 2-ой день, много чего не понимаю, но нужно разобраться, препод не ставит, пока сами не разберёмся. Помогите пожалуйста, дана функция ( zerop (list '(2 4 0) 1)) нужно...

Рекурсия для людей
Здравствуйте,это опять я-) пожалуйста объясните рекурсию в прямом смысле этого слова, что понимаю я (defun factorial(x) ;объявили функцию с одним аргументом. (if (zerop x) ...

progn, progn1, progn2 и т.д
Прошу привести примеры, чтобы понять, как работают эти функции.

Добавление элемента к списку и вычисление среднего арифметического нового списка
Добрый вечер. Помогите пожалуйста написать такую программу: Добавить к списку элемент и вычислить среднее арифметическое всех элементов нового списка. Исходные данные и результат работы программы...

Онлайн-курс "Функциональное программирование: базовый курс" (Common Lisp)
Открытое образование: Онлайн-курс Функциональное программирование: базовый курс В курсе изучаются основы функционального подхода к программированию и практические вопросы программирования на языке...

Lisp и БД
Может кто подсказать, могут ли программы на диспе работать с такими БД как My SQL, SQL или другими? А то как-то скудно насчёт этого в инете. А что за язык программирования, который ен работает с БД,...

Как посмотреть lisp-код стандартных функций?
Нужен просмотр кода стандартных функций В связи с плохим знаниям английского языка, мне, иной раз, проще глянуть код функции на лиспе, чем читать её описание. В homelisp это сделать легко: (getd...

Вставить элемент в упорядоченный по возрастанию числовой список
Вставить элемент в упорядоченный по возрастанию список с числами. Делаю так: (defun insert (sp z) ; эл-т уже вставлен? (let ((res nil) (inserted 0) (sp2 (reverse sp))) ...

LISP и XLISP это одно и тоже?
LISP и XLISP это одно и тоже? если нет то сильно ли они отличаются ?:)

Как загрузить quicklisp в sbcl через slime в emacs?
Здравствуйте, дорогие! Я новичок в Emacs и не могу установить quicklisp и нормально все настроить. Slime запусается и sbcl вроде как работает, но никак не могу установить quicklisp, так как не знаю...

Что такое &optional?
Можете объяснить? Вот пример: (defun subdepth (item mlist &optional (mdepth 0)) (cond((null mlist) nil) ((eql item mlist) mdepth) ((atom mlist) mlist) (t (cons (subdepth item (car mlist) (+ 1...

Как работает цикл do?
Код отсюда http://lisper.ru/pcl/macros-standard-control-constructs (do ((n 0 (1+ n)) (cur 0 next) (next 1 (+ cur next))) ((= 10 n) cur)) ==> 55 Каким образом получается...

НОД для списка чисел
Здравствуйте, вот такая задача: Есть список чисел, определить функционал, возвращает наибольший общий делитель для чисел в данном списке. Например: _ (Nod_ list "(10 20 30)) ->10 Вот, что у меня...

Подсчет одинаковых блоков
Добрый день. Назрел вопрос с которым раньше не сталкивался. Задача: В проекте есть несколько видов блоков созданных вставкой файла (имена всех блоков известны) Необходимо подсчитать все блоки и...

Что значит S-выражение?
в других языках выражения, а в лиспе S-выражения. Это имеет какой-то реальный смысл, или это очередная мантра? S означает, вроде, "символьное". А почему в других языках выражения не символьные, а в...

Как работает рекурсия в Common Lisp
Добрый день, я новичок в Лисп и написал простенькую функцию по подсчету кол-ва элементов в списке: (defun kol_vo (lst) (if (equal lst nil) 0 (+ 1 (kol_vo (cdr lst))))) Писать я вроде...

Вставить элемент в список
Помогите решить задачу: Определите функцию добавляющую в список элемент k в качестве n-го элемента. Первым элементом считается голова списка.

Задача о расшифровке радиограммы [Метод Виженера МГ 2]
Привет всем! Собственно, мой вопрос вот в чём: есть задача о расшифровке некой криптограммы (радиограммы). Она является зашифрованным сообщением. В результате нужно получить расшифрованное сообщение....

Каждый нечетный элемент списка умножить на 2, каждый четный на 3
сначало пытаюсь написать хотя бы проверку на четность и умножение на 3. (defun четность (l) (cond((null l)nil) (t(if(= (mod (car l) 2) 0) (если число делится на 2 без остатка) (* (car...

Короткие списки в Lisp
Здравствуйте, все! Мужчины, поздравляю вас с праздником! Подскажите, что такое "короткие" списки в лиспе? Заранее большое спасибо!

Elisp: Несколько выражений в теле IF
Требуется выполнить несколько выражений в if-else, псевдо-код: (if условие (действие-then) (действие1-else) (действие2-else)) Сделал так: (if условие

Найти сумму цифр заданного натурального числа.
Доброго времени суток форумчане. Помогите пожалуйста обнаружить ошибку в программе.Задача стояла так: Используя рекурсию, найти сумму цифр заданного натурального числа. Мой программный код...

lisp в visual studio
Можно ли писать на lisp под dot net c использованием всех возможность платформы net, желательно в visual studio? Слышал о проекте L Sharp, но так и не смог до конца разобраться как использовать,...

Почленное сложение двух списков
Добрый день! Необходимо написать функцию, которая почленно складывает элементы двух списков, т.е. (list+ '(1 2 3) '(2 4 6)) => (3 6 9) Как сделать рекурсивно - знаю, но проблема в том, что...

Подскажите, как преобразовать строку в список
Возник еще один вопрос: На вход функции поступает Список. Каким образом можно преобразовать строку вида: "((x (y L) L) (z L) L))" в список вида '((x (y L) L) (z L) L)) ? Данная строка или...

свойства
CommonLisp. Есть список из n элементов, у каждого элемента должны быть некоторые, назначенные ему, свойства (ширина длина радиоактивность). Подскажите пожалуйста, как проверить значения этих свойств...

Как перенести часть чертежа с модели на лист
Есть программа, которая строит в Автокаде 6 таблицу с данными. Нужно автоматизировать вывод этой таблицы с модели на листы. Подскажите как это можно реализовать. Заранее спасибо.

Четыре города расположены по вершинам квадрата
Четыре города расположены по вершинам квадрата со стороной n. Найти, какая из возможных дорожных сетей, связывающих города, имеет минимальную длину.

Определить функцию, возвращающую последний элемент
(defun last1 (l) (cond((null l) nil) (t(null (cdr l) (car l)); если хвост списка пустой, то возвращаем первый элемент, который является хвостом (last1 (cdr l))))) CL-USER 11 : 4 >...

Биквадратное уравнение
Попытался написать Лямбда - Выражение для решения биквадратного уравнения. Вот: ((lambda (d f) (list (* d d) ;тело функции (* (* -1 d) d) (* f f) (* (* -1 f) f) ...

Выделение атомов на заданном уровне в списке
Написать программу выделения атомов на заданном уровне в произвольном введёном исходном списке. Сформировать из них список вывести его. Атомы, содержащиеся в исходном списке, имеют уровень 0, атомы,...

Переставить элементы списка так, чтобы одинаковые элементы оказались рядом
Помогите с функцией. ; Функция, переставляющая элементы списка таким образом, чтобы одинаковые элементы оказались рядом. ; Т.о., для списка (1 2 1 4 3 1 2 4) должно получиться (1 1 1 2 2 4 4 3)....

Задачи о списках и графах
Очень нужна помощь, начали учить Lisp, ну как учить, все как всегда, задание дали и вперед... В общем нужна помощь... Буду благодарен. 1.Написать функцию , которая инвертирует список кроме...

Сравнить два списка
Помогите пожалуйста с заданием: Определить функцию-предикат LONGER-THAN, аргументами которой являются два списка. Функция выдает результат t, если первый список длиннее второго. Заранее спасибо =)

Функция mapcar
Почему при вычислении данного выражения выводится ответ (10 10 10), а не (30 20 10)? Играет ли тут какую-то роль функция маpcar? (mapcar (lambda (r) (/(car(cdr (cdr r))))10) '((1 Ivanov 300 1) ...

Среднее арифметическое суммы элементов списка
Нужно написать программу, которая вычисляет сумму элементов введенного списка, считает его длину и выводит результат деления первого на второе, то бишь среднее арифметическое от суммы элементов...

Как прочитать текстовый файл в LispWorks?
Если в mulisp это делается довольно просто: (load 'text.txt) ; загрузка файла из каталога с интерпретатором (open-input-file 'text.txt) ; открыть файл для чтения (read 'text.txt) ;...

копирование
;16)Поэлементное копирование списка (defun cop(lis kol) (if (= kol 0) nil (append (car lis) (cop (cdr lis) (- kol 1) nil)) ) ) ;Пример: ;(princ (cop'(1 2 3 4 5 6)4)) где тут ошибка...

Реализация функции нахождения производных
Помогите пожалуйста, сама не справлюсь. Преподаватель задал нам под конец первого курса для получения зачета задание на языке Scheme. Весь семестр изучали с++, а тут он выдал мол сами разберетесь...

Нахождение наименьшего общего кратного
помогите решить задачу, пожалуйста наименьшее общее кратное (нок) MY-LCM CL-USER> (my-lcm 12 18) 36 CL-USER> (my-lcm 12 18 22) 396

Что значит макрос when?
Добрый вечер, пытаюсь разобраться с этим кодом (удаляет дубликаты из списка): (defun -remove-duplicates (w &aux (a (car w)) (d (cdr w))) (when w (if (member a d) (-remove-duplicates d) ...

Составьте список студентов своей группы
Условие задачи следующие: Составьте список студентов своей группы (ФИО ФИО ... ФИО) Для каждого студента а) с помощью функции LIST составьте следующие списки: Для самого студента - (дата...

Функция сравнения списков
Задание таково: Разработать функционал для сравнения двух многоуровневых списков поэлементно, на основе заданного предиката. Получилось вот что: (defun compare (f L1 L2) (cond ((AND (NULL L1)...

Циклические перестановки списка
Помогите сделать задачу по LISP-у. Написать функцию, генерирующую все циклические перестановки списка. Элементами списка являются списки. Пример : ((a b)(c d)) ⇒(((a b)(c d))((b a)(c d))((a...

Список не удовлетворяющий предикату P (с использованием функционала)
Всем привет, помогите пож-та выполнить задание, пишу на XLISP и парадигма Common Lisp, в лиспе не оч силен. Собственно само задание: Напишите функцию (takeWhile L Р), которая в качестве результата...

Ребят, нужно составить комбинацию вызовов
Составить комбинацию вызовов функции cons, формирующее список из задания c номером вашего варианта из атомов A, B, C, D, E, F, G, H, X и (). Вот задание: (A (B (C D (X E)) F G) H) Помогите...

Суперпозиции CAR и CDR
Здравствуйте! Есть выражение (setq x '(9 8 (7 6 5) e w)). Нужно выбрать выделенный элемент списка Х с помощью суперпозиций CAR и CDR. Выполняю в два этапа: (setq x '(9 8 (7 6 5) e w)) ==> (9 8...

Сортировка списка методом Седжвика
Добрый день. Который день мучаюсь с сортировкой методом Шелла. Программа должна вычислять последовательность шагов сортировки двумя методами - Седжвика и Кнута. Надеюсь на Вашу помощь!

Макро do
Напишите следующие макросы (по пути подумайте, почему делать это не макросами а функциями – не очень хорошая идея): (do действия условие).

Написать функцию, которая Объединяет два упорядоченных списка
Ребят помогите пожалуйста, кроме как в Си ни в чём не разбираюсь, нужно в Лиспе написать функцию, которая Объединяет два упорядоченных списка, состоящих из чисел, в упорядоченный. Метод реализации с...

В каждом байте числа обнулить 0-ой и 7-ой биты и сделать единичными 3-ий и 4-ый биты
Надо: Прочитать беззнаковое целое число из стандартного потока ввода и в каждом байте числа обнулить нулевой и седьмой биты и сделать единичными третий и четвертый биты. Результат вывести в...

простой момент. нужна подсказка
Как проверить в Лиспе работоспособность этого кода? не знаю как проверить это в программе.. -------- Напишите функцию (all p x), которая проверяет "Для всех ли элементов списка х выполняется...

Проверить наличие эллемента в списке
Всем доброго времени суток. Возникла проблема. Не могу понять почему не работает программа. Подтолкните на правильную мысль пожалуйста. Функция: (defun ss(obj list) (cond ((null (car list))...

Сформировать N-уровневый вложенный список, элементом которого на самом глубоком уровне является число N
Мужики помогите, задание программы- Формировать N-уровневый вложенный список, элементом которого на самом глубоком уровне является число N сам кое что написал но код отображает только вложенные...

Вычислить сумму ряда
Вот такой ряд : y=(2/1)+(4/3)+(6/5)+..+(s/s-1) (defun func(s) (do ((sum 0))((s<= 2) sum) (setq sum (+ sum (/ s (- s 1)))) (setq s (+ s 2) )) (func 10) Куда лыжи не едут?

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

Удалить скобки у вложенных списков 2 уровня
Добрый день. Выручайте. Задан список любого уровня вложенности. Надо перевести элементы 2 уровня на 1, а 3-го соответственно станут элементами 2 уровня. По сути надо удалить скобки у списков 2...

Перевод из комплексного числа в обычное
Здравствуйте. В результате (/ (log (/ (sin(+ (* 0.2 2) pi)) (+ (cos 2) 2)) (log 6))) получается #C(-0.069117339415599D0 -0.15477153503341298D0) а как сделать, чтобы выводилось обычное число

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

построить выражение в префиксной записи
дано выражение 1+(2*(2-4/7)) построить выражение в префиксной записи

Скомпилировать исполняемый файл
Как скомпилировать исполняемый файл в LispWorks Personal Edition 6.1.1 или Allegro CL Free Edition 9.0? Привести пример с кодом "Hello, World!" Должно появиться окно консоли с этим текстом.

Как посчитать арктангенс числа?
как посчитать Арктангенс числа?? с помощью какой функции?

список
даны два списка 5 и (1 2 3 4),нужно переместить 5 в конец списка (1 2 3 4)

Разбить слова по слогам
Добрый день, есть такое задание. Дана фраза русского языка. Написать программу, которая разбивает каждое слово фразы на слоги. Нашла код: (setq glasn '(а е ё и о у ы э ю я)) (defun...

Лисп определить рекурсивную функцию, определяющую сумму первых десяти членов произвольной ^арифметической прогрессии.
Задание 2.1 На языке Лисп определить рекурсивную функцию, определяющую сумму первых десяти членов произвольной ^арифметической прогрессии. Задание 2.2 На языке Лисп определить рекурсивную функцию,...

логическая задача
Решить методом полного перебора задачу и разработать программу на CLOS (Lisp) для ее решения тем же самым способом (полного перебора). ЗАДАЧА: Три школьника, Миша (М), Коля (К) и Сергей (С),...

Поиск кратчайшего пути
Задача о коммивояжере. Коммивояжер должен посетить клиентов, находящихся в разных городах. Коммивояжер возвращается в тот же город, из которого он выехал. Коммивояжер никогда не бывает дважды в...

Расстановка скобок и возврат списка
Есть такое задание: "Напишите функцию, которая вводит фразу на естественном языке и преобразует ее в список." написал такую функцию для двух слов, но работает не корректно. (defun fraza () ( ...

Нахождения значения n го члена ряда Фибоначчи без применения рекурсии
Реализовал нахождения значения n-го члена ряда Фибоначчи, как реализовать такой код, только без рекурсии, как в коде: (defun fib (n) (cond ((= n 1) 0) ((= n 2) 1) ((+...

Получить список, элементами которого будут являться только атомы верхнего уровня
1. Из заданного списка получить список, элементами которого будут являться только атомы верхнего уровня. (2 (а е) 4 ((5) у) с) -> (2 4 c) 2. Найти сумму неотрицательных элементов заданного списка...

Список: Написать программу для выделения списков в заданном интервале в произвольно введенном исходном списке.
Написать программу для выделения списков в заданном интервале в произвольно введенном исходном списке. Сформировать их них список и вывести его. Исходный список имеет уровень 0, вложенный список...

Как работает рекурсия?
Доброго времени суток. Никогда не любил рекурсию, просто видимо недопонимая ее, но в лиспе, увы нет операторов цикла и приходится разбирать. Есть такой пример: (defun reverse (list) ( cond ((null...

Заменять все отрицательные элементы списка значением 0
Используя функции высокого уровня необходимо выполнить 2 задания. ПОмогите, пожалуйста. Задание №1. Разработать рекурсивный вариант программы в функциональном стиле для решения предложенной...

Map-функция
Задача: Реализовать функцию (@CASE-OF <селектор> <вариант1> ... <вариантN> ) - аналог оператора CASE языка Си. Каждый вариант имеет вид <случай> <форма>, где <случай> ::= <S -выражение>....

Вывести минимальное значение функции на заданном интервале и соответствующее ему значение аргумента.
Решил такое задание: Задан интервал и шаг изменения аргумента. Вывести минимальное значение функции y=2{x}^{2}+5x-7 на заданном интервале и соответствующее ему значение аргумента. Решил двумя...

Написать функции
В теле функции использование операторов set и setq не допускается Переставляющую элементы списка L таким образом, чтобы одинаковые элементы оказались рядом. (Например, L = (1 2 1 4 3 1 2 4) -> (1...

В зависимости от введенного с клавиатуры числа вывести на экран строку "Чётное число"/"Нечётное число"
В зависимости от введенного с клавиатуры числа вывести на экран строку "Чётное число"/"Нечётное число". Пример: введённое число 25,результат "Нечётное число"

Расшифровка радиограмм, имея ключ и метод группировки по пять элементов на одном уровне
Дана некая радиограмма из чисел, дан ключ и метод группировки по пять элементов на одном уровне. Необходимо расшифровать радиограмму. Пустые подсписки я удалил, сгруппировал радиограмму, а...

Чередование элементов двух списков
Homelisp. Написать функцию, которая, чередуя элементы двух списков, строит новый список: (A B C)(1 2 3) => (A 1 B 2 C 3)

PROG функция, которая возвращает в качестве значения длину списка
Помогите разобраться в программе. Нужно преподу объяснить как она работает, а я ни как не вразумлю:( Само задание звучит так: Запишите с помощью предложения PROG функцию, которая возвращает в...

Lisp -> Erlang: заменить все отрицательные элементы списка нулями
Доброго времени суток!!! Возможно кто-нибудь сможет мне помочь. Мне нужно переделать задачку из Lisp в Erlang. Заменять все отрицательные элементы списка значением 0. >(name ‘(23 -4 6 -8 -2 13))...

Вывод дерева в виде дерева
вообщем нужно вывести дерево в виде дерева, т.е. что то вроде этого: *******1 ****2 *******3 4 *******5 ****3 *******1

Функционал, возвращающий истину, если определенным свойством обладает хотя бы один элемент списка
Криво, но пока не знаю, как лучше. Все получилось без лямбда-функции , но надо было куда-то ее прикрутить. Вышло "ни к селу, ни к городу". Ваше решение? ; Функционал, возвращающий истину, если...

Есть ли хоть какая-то оплачиваемая работа по Common Lisp
Здравствуйте! Уважаемые Коллеги, я уже давно смотрю, где какие есть вакансии по работе с Каммон Лисп, и в результате - пустота! Неужели Лисп никому кроме нас с вами не нужен? Какие шаги можно...

работа со списком
дан список из 15 чисел.если максимальный элемент предшествует минимальному,то посчитать их сумму,если нет то просто вывести 0... писать через рекурсию

Ввод и интерпретация арифметического выражения
Написать программу ввода и интерпретации арифметического выражения (операнды - целые числа).

Сложение чисел в восьмеричной системе
Есть задание: сложить два числа в восьмеричной системе. Число передавать в виде списка, где каждая цифра числа - элемент списка. В голове есть идея, как реализовать 1. функция для проверки...

Поиск последовательности перемещений коня на шахматной доске из одной клетки в другую
Реализовать алгоритм решения задачи о поиске последовательности перемещений коня на шахматной доске размера m × n (например, 4 × 4 или 4 × 5) из заданной начальной клетки (нижняя левая...

Шифр Цезаря
Помогите, пожалуйста, используя mapcar, написать программу, которая кодирует исходный текст по методу Юлия Цезаря : каждая буква в каждом слове заменяется на следующую

LISP задачу о двух кувшинах алгоритма поиска решений в глубину переделать по алгоритму в ширину
Здравствуйте! Помогите пожалуйста! :oops: :help: Есть готовая правильная рабочая программа, реализующая задачу о двух кувшинах, написанная на Lisp по алгоритму поиска решений в пространстве...

[Lisp -> Erlang] Произведение элементов списка на четных/нечетных позициях
Имеется программа написанная в лиспе, нужно переделать на Erlang Подсчитывать произведение всех нечетных элементов списка (по месту нахождения); Подсчитывать произведение всех четных элементов...

Датчик температуры на HomeLisp
Вступление. Есть термопара, которая подключается к компьютеру. Данные снимаются каждые несколько секунд и дописываются в файл BM1707.dat То есть постоянно дописывается новая строчка, например: >...

Почему ненавидят Lisp?
Часто сталкиваюсь в интернете с ненавистью со стороны людей не знающих Lisp к самому языку Lisp. Как думаете, с чем это связано? Может с тем, что Lisp часто называют лучшим языком программирования?...

Определить, является ли данное натуральное число простым
Помогите, пожалуйста, решить задачу. Написать функцию, которая определяет, является ли данное натуральное число простым.

Функция: на основе двух списков сформировать новый список, в котором чередуются элементы исходных
написать функцию которая на основе двух списков формирует новый список в котором чередуются элементы исходных Добавлено через 1 минуту и второе написать функцию аргументами которой являются два...

Varible <имя функции> has no value
Задание найти среднее арифметическое списка. (DEFUN SUMM(X)(COND ((NULL X) 0) (T(+(CAR X)(SUMM(CDR X)))))) (DEFUN AVERAGE(X)(/ SUMM(X) LENGTH(X))) Ошибка: Varible SUMM has no value. Как...

Функция find-list-part
Доброго времени, господа и дамы. Прошу помочь мастеров и гуру Лиспа решить задачу следующего формата: Функция, которая принимает два аргумента l1, l2. Оба аргумента - списочные структуры с...

Замена цикла на рекурсию
Добрый день. Как можно в рекурсию переделать такой цикл: от а=1 до 10 от с=15 до 20 е=а+с //другие действия .... кто-то может помочь?

Удалить отрицательные элементы из списка
Помогите,пожалуйста! Нужно написать программу с использованием стандартных функций (cdr,car...) У меня получается только вот так сделать,а нужно использовать rplaca или rplacd: (defun f(L) ...

Убрать дубликаты элементов в числовом списке
Здравствуйте! Нужно итерационно удалить повторы из числового списка (Lisp). Например, при вводе '(5 8 9 5 8 9) программа должна вывести (5 8 9).

Посчитать с заданной точностью сумму бесконечного ряда
Задача:посчитать с заданной точностью сумму бесконечного ряда,каждый член которого задается формулой: x^k/k!( что есть exp(x)) Не могу понять почему не работает код(выдает ошибку file-of-end),вообще...

Макросы в Lisp
Помогите пожалуйста!!! При описании функционала можно использовать средства императивного программирования, но он должен быть реализован без побочных эффектов. Все циклические процессы должны быть...

Написать рекурсивную функцию возведения в степень
написать рекурсивную функцию которая будет считать вот такую функцию F i=\sum_{i=1}^{n}{{f}_{i}}^{{c}_{i}}. Например {2}^{3}+{5}^{2}+{4}^{2}=49

Посчитать количество атомов в многоуровневом списке (в списке со вложенными списками)
Здравствуйте! Нужно написать программу, которая бы вычисляла, сколько всего атомов в списке (списочной структуре), в том числе во вложенных списках. Вот как я пытаюсь это сделать: (defun...

Найти сумму первого и последнего элементов списка
Помогите решить задачу, найти сумму элементов первого и последнего в списке

Атом, который чаще всего встречается в списке с подспискам
Написать функцию, которая определяет атом, который чаще всего встречается в списке с подсписками. Помогите :) Clisp (defun moda (str ) (let (l-head) (cond ((null str) 0 ) (t...

Задача из форума Haskell: слова предложения, которые не входят в словарь
Дано предложение и словарь. Определить функцию, возвращающую слова предложения, которые не входят в словарь. https://www.cyberforum.ru/haskell/thread732518.html (defun not-dict (s v) ...

Нужны идеи для курсовой работы
Уважаемые господа! Мне нужно написать курсовую работу по созданию экспертной системы. Предметная область - на моё усмотрение. В этот раздел обращаюсь потому что читал, что изначально да и сейчас...

Обработка многоуровнего списка
Не могли бы вы помочь, есть ли в лиспе функция, которая из многоуровнего списка делает одноуровневый. Или как написать такую функцию, я всю голову себе сломал уже. Как пример, '(((a...

Даны действительные числа x, y, z. Удвоить эти числа, если x>y>z
Ребят, помогите пожалуйста решить две задачки по lisp 1. Даны действительные числа x, y, z. Удвоить эти числа, если x>y>z, и заменить их абсолютными значениями, если условия не выполняются 2. Дан...

Упорядоченное бинарное дерево
Привет всем! Такая вот задача: определить является ли бинарное дерево упорядоченным. Что имею: дерево задается так: ((nil 1 nil) 2 (nil 3 nil)) написал для удобства функцию проверки -...

Обработка матриц
Здравствуйте! Помогите пожалуйста решить такую задачу в операторном стиле под PC-LISP 3.00: Найти сумму всех чисел, входящих числовыми компонентами в те списки, которые, являясь элементами...

Условный выход из функции: PROG RETURN
Пока не понимаю, что делает prog? Знаю про prog1, prog2, progn. Здесь http://www.mari-el.ru/mmlab/home/lisp/LECTION5/index.html написано Если локальных переменных нет записывается (prog ()...) ...

Может ли программа вставлять текст в окно ввода текста, окна созданного в менеджере диалоговых окон
модератор закрыл тему "лисп системы для новичков", не пожелав всё таки удалять лишнее. тогда я открываю такую тему. вопросы к разработчику, не знаю пожелает ли он отвечать тут на них. дело в том, что...

Замыкания
Напишите программу генератора чисел Фибоначчи используя замыкания. Вопрос: функция, допустим, описана, а где здесь замыкание использовать? (defun fib (n) (cond ((< n 3) 1) (t (+...

Как реализовать встроенную функцию expt?
Задание: "Реализовать встроенную функцию expt" Реализовал на js - все работает, какие ни пиши цифровые значения, но вот в Lisp это уже не работает, помогите... 3 день этой @#$ страдаю(кусок кода на...

Разбить список на два подсписка
2) Задача. Произвольный список вида (а1,а2,...,ак) разбить на два подсписка (а1,а3,а5...) и (а2,а4,а6...). в одну функцию Спасибо

Список простых чисел на заданном интервале
Доброго времени суток! Напишите программу, формирующую список простых чисел на заданном интервале.

списки свойств в lisp
Здравствуйте. Помогите пожалуйста с решением задачи: Напишите функцию, которая спрашивает у пользователя ФИО студента из группы (список группы составлен раньше) и выдает следующие данные о нем:...

Сравнение списков
Доброго времени суток! Подскажите, пожалуйста, как написать программу, которая сравнивает по количеству элементов два списка.

Сохранение кода
Как сохранять код программы в CLISP 2.49 Расскажите по-подробнее, пожалуйста

Метод поиска в ширину
Здравствуйте, помогите пожалуйста написать программу на lisp, вот задание: Используя метод поиска в ширину, найдите кратчайший путь от начальной до любой произвольной вершины связного...

Целочисленные алгоритмы
3)Напишите функцию: a) такую, что P (n) для произвольного целого n есть список из трех элементов, а именно: квадрата, куба и четвертой степени числа n; b) для двух аргументов значением...

Определить предикат РАВЕНСТВО-МНОЖЕСТВ
3) Определите предикат РАВЕНСТВО-МНОЖЕСТВ, проверяющий совпадение двух множеств (независимо от порядка следования элементов).

Рекурсия: Определять, является ли сумма элементов списка из целых чисел, четным числом
Помогите плз, зачеты близко, а в лиспе так и не разобрался. Задание №1. Разработать рекурсивный вариант программы в функциональном стиле для решения предложенной задачи. Задание №2. Разработать...

Написать функцию, которая «упаковывает» повторяющиеся элементы списка в подсписки следующего формата:
Написать функцию, которая «упаковывает» повторяющиеся элементы списка в подсписки следующего формата: (“Packed” <number_of_elements> <packed_element>). Например, список (7 7 7 “a” “b” “b” “b” “b”...

Написать функцию формирующую подсписок из n элементов списка L, начиная с k элемента
Помогите решить: Написать программу формирующую подсписок из n элементов списка L, начиная с k-го элемента. (нумерация элементов должна начинаться с 1). Помогите кто-нибудь написать данную...

Отличие правой и левой свертки
Правую и левую свертку можно реализовать так: #!/usr/bin/racket #lang scheme (define (fold-right op initial sequence) (if (null? sequence) initial ...

Как прикрутить Common Lisp к Emacs?
На win 7/64 с админовыми правами запустилась такая конфигурация .emacs: (custom-set-variables ;; custom-set-variables was added by Custom. ;; If you edit it by hand, you could mess it up, so...

Дерево задано с помощью вложенных списков, определить число вершин в дереве
1. Определите функцию, которая спрашивает имя пользователя и здоровается с ним. (defun hello () (let ((name)) (terpri) (princ "What is your name? ") (setq name (read)) (format t...

Как записать котангенс в CommonLisp?
Здравствуйте а как написать котангенс в comon lisp?

Матрица lisp
Помогите, пожалуйста,с реализацией.Вот задание: Запрограммировать на языке Коммон Лисп функцию, принимающую в качестве аргумента действительное число x. Функция должна возвращать новый двумерный...

Написать funcall
С помощью примитивных функций. Также можно использовать apply. Принимает функцию и произвольное количество атомов. Пример: >(funcall '+ 2 4 6 8) ==>20 >(funcall 'max 2 4 6 8 3) ==>8

построение графика функции заданного уравнением
Любую из этих задач решите, пожалуйста: 3.1. Построить график функции в окне Windows-приложения средствами языка Allegro Common Lisp, заданного уравнением y=cos(x^3)/(1+x^2) в диапазоне . ...

Напишите функцию, аналогичную встроенной функции замены subst в списке s взаимную замену x на y
Напишите функцию, аналогичную встроенной функции замены subst в списке s выражения x на y, но производящую взаимную замену x на y, т.е. x->y, y->x.

Подсчет листьев в дереве
Привет всем! Было задание написать функцию (countt t), считающую количество листьев у в бинарном дереве t. Я попробовал написать следующим образом: (defun countrr (t (tree) (cond ( (nullL tree)...

Как правильно записать функции в ЛИСПе ?
Написать функцию, вычисляющую значение выражения. Все необходимые переменные передаются как параметры. Задание 1.Линейный вычислительный процесс. Задание 2.Разветвляющийся вычислительный...

Макрос в Racket
В макросе определить - есть или нет определение для указанного имени функции. Ниже - концепт - для вызова (compile-stmt (syntax 'Root)) по идее первая строчка должна сообщить что simple-Root...

equal и equalp
Во многих учебниках по ЛИСПу пишут, что функция equal думает, что списки одинаковы, если они одинаково выводятся на печать. Следующий простой пример говорит, что это вранье: (setf list1 '(#A(0...

Фракталы
Всем привет! А что это мы до сих пор ни одного фрактальчика не закодили. Надо восполнить это пробел. :) (defun C:PythagorasTree (/ osmode cecolor order coeff nabor) ...

Умножение матриц
Доброго времени суток всем! Помогите пожалуста реализовать умножение матриц и умножение матрицы на матрицу-столбец (вектор)

Рекурсивные функции
Помогите пожалуйста с написание программы к двум задачкам: 1. Определить рекурсивную функцию, возвращающую последний элемент списка. 2. Определить рекурсивную функцию, возвращающую значение суммы...

скачать mulisp
где можно скачать mulisp для windows 8.1 x64?

Удалить из заданного списка все нули
Удалить из заданного списка все нули. помогите плиз!!!

Изменение элемента списка
Привет всем. Во время изучения xlisp пришел к такой проблеме. Пусть имеется список: (setq ls (list (list 0 0 0) (list 0 0 1)...) , как изменить элемент списка, чтоб прийти к виду: ls = ((0 0 0) (0...

Порекомендуйте Lisp для создания Windows-приложений с GUI
Разновидность языка (CL/Scheme/Racket/ISLISP...) значения не имеет. Главное, чтобы умел компилироваться в нативный код. Желательно производительный и небольшого объема. Я знаю, что LispWorks и...

Факториал алгоритмом вычисления деревом (common lisp)
Здравствуйте, мои хорошие. Напишите, пожалуйста, функцию, которая считает факториал алгоритмом вычисления деревом. Если знаете более быстрый алгоритм точного вычисления факториала, то можете и по...

Программа пишущая комментарии и код по комментариям (полезно всем новичкам)
Здравствуйте. Думаю эта программа поможет всем. Закопавшись в литературе и обнаружив, что вобщем кодить стало не так просто как раньше, точнее осваивать тот или иной язык. Наэксперементировавшись над...

Реализация нейронных сетей на лисп
Привет. Помогите с лиспом. нужно реализовать математический нейрон. Число входов = 3 Функция активации = пороговая.

Подсчитать количество и сумму цифр целого N
Подсчитать число и сумму цифр целого N. (defun numb (n) (cond ((= 0 (floor n 10)) 1) (t (+ 1 (numb (floor n 10)))))) (defun sum (n) (cond

Обращение списка и разбитие его на уровне
Здравствуйте. Нужно решить следующую задачу: Организовать функцию, которая обращает список и разбивает его на уровни. Не использовать функции отсечения списка. Пример: исходный список - (a b c), ...

функции CAR и CDR
На языке Лисп составьте композицию из функций CAR и CDR, для которой результатом применения этой композиции к списку (1 2 (3 4 (5))) будет 3.

Разработать программу для игры «Угадывание слова»
Слова для угадывания хранятся в файле. Предусмотреть подсчет числа попыток и ограничить их количество. Программа должна работать в режиме «человек-машина» и «машина-человек».

Циклический сдвиг влево/вправо
Опpеделить функции, осуществляющие: циклический сдвиг в списке на n элементов вправо / влево. Предложите вашу реализацию сдвига вправо или влево. ; Сдвиг влево (defun << (l n) (cond...

Подключение библиотеки (пакета) iter
Возможно, очень глупый вопрос, но у меня никак не получается подключить библиотеку iter (http://common-lisp.net/project/iterate/). Использую gnu clisp-2.49, win7. Пытаюсь подключать вот так (папку...

Напишите функцию удаляющую повторные вхождения элементов в список
Напишите функцию удаляющую повторные вхождения элементов в список

Количество положительных элементов в списке
Код должен считать количество положительных элементов в списке,не до конца понимаю зачем нам задавать вот это вот (list 0 0 1) и (list 0 0 0),если не трудно можете объяснить: (defun F(L) (if L ...

Рекурсия: вернуть значение T, если в заданном списке L имеется более N-подсписков и NIL в противном случае
Всем привет! Снова прошу помощи у знатоков HomeLisp. Нужно разработать функцию, которая принимает значение T, если в заданном списке L имеется более N-подсписков и NIL в противном случае. Нужно...

Функциональный предикат
ДОБРЫЙ ДЕНЬ. Такая задача. Определите функциональный предикат (EVERY пред список), который истинен в том и только в том случае, когда являющийся функциональным аргументом предикат истинен для всех...

Декартовое сложение двух множеств
Не могу понять что за Декартовое сложение и как его реализовать. дана вот такая задачка. Реализовать функцию, которая сортирует по возрастанию все числа в множестве , которое мы получаем в...

Найти корень числа с точностью до сотых
Помогите пожалуйста, нужно найти корень целочисленного числа с точностью до 2го знака после запятой.

Геометрическая прогрессия
Посчитать сумму N элементов геометрической прогрессии. Знаменатель прогрессии и первый элемент задать с клавиатуры. 3я лаба...общие задачи ещё делаем, а вот по-вариантам уже всё, мозг не варит -_-...

ООП Common Lisp
Помогите пожалуйста! Реализовать класс: Программа (название, тип, сфера применения, язык программирования, ...) Класс должен иметь методы для выполнения действий над объектами. Создать несколько...

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

Определить функцию работы с векторами: Сложение векторов, разность, умножение на скаляр,скалярное произведение векторов,вычисление длины вектора
с помощью фукнций map/ map-into / reduce определить функцию работы с векторами: Сложение векторов, разность, умножение на скаляр,скалярное произведение векторов,вычисление длины вектора

Входит ли каждый элемент списка в него лишь один раз
Добрый день, задание такое: Функция должна определять, входит ли каждый элемент списка в него лишь один раз. Объясню, что написал я: Есть какой-то listt, например (1 2 3 4 1) i - основной счетчик,...

Написать функцию аргументов L1 и L2,возвращающую T, если L2 является подсписком L1.
Здравствуйте, для зачета в университете ну могу сделать 2 задачки. На clisp 1) Написать функцию аргументов L1 и L2,возвращающую T, если L2 является подсписком L1. Элементами смиском могут быит атомы...

Удалить из заданного списка все числа
Здравствуйте. Помогите, пожалуйста, задачу решить. Нужно удалить из заданного списка все числа. Задача выполняется на языке Scheme. При этом считается, что списки имеют многоуровневую структуру. ...

Вычислить значение функции
Вычислить значение функции. Значение x должно вводиться с клавиатуры f(x)=cos^2x^3+(sin x+1)^2 (set 'fx (+ (* (cos (* x x x)) (cos (* x x x)) ) (* (+ (sin (* x)) 1) (sin (* x)) 1) ) ) ) Ребята...

Рекурсия. Определить функцию, вычисления количества элементов на верхнем уровне в списке х
рекурсия, выполняется только в направлении cdr. и все операции над списками выполняются только с элементами верхнего уровня

С помощью координат нарисовать граф и сделать обход на лиспе
Здравствуйте! Помогите, пожалуйста, очень надо! Нужно С помощью координат нарисовать граф и сделать обход на лиспе. Буду очень признательна, помогите

Генетический алгоритм и диофантово уравнение с n неизвестными
вот написал код для решения ду с n неизвестными с применением генетического алгоритма. необходимы советы - что улучшить, где исправить, где я что не досмотрел. ;;;; Решение уравнения вида - a +...

Дан список с подсписками, нужно найти и вывести подсписки с минимальной длиной
Здравствуйте, помогите сделать очень простую задачу на lisp. Я бы сделал её сам, если бы знал синтаксис языка, но пока руки не доходят, чтобы его изучить. Дан список с подсписками, нужно найти и...

Интерполяция.Задан список аргументов и значений не более чем из 10 пар. Выдать функцию, проходящую через эти точки
Добрый день, помогите пожалуйста решить задачу по Lisp. Задан список аргументов и значений не более чем из 10 пар. Выдать функцию, проходящую через эти точки. Пример: (d '( (1.0 1.0) (2.0 2.0)...

Выделение символа из строки с CAR и CDR
Приветствую всех! Решил поковырять ради интереса Common Lisp и наткнулся на не совсем понятное поведение при выполнении задачи. Задача звучит так: Запишите последовательности вызовов CAR и CDR,...

Lisp. По какому принципу работают функции CAR,CDR,CONS?
Здравствуйте! Помогите пожалуйста понять как работают функции CAR,CDR,CONS. Например, есть список: (( K L ) (M N ) A B C (D ( E ))) Надо получить : K M E (K D N) (A D K) ( D ( M N ) A )...

Списки
Есть три задачки..но у меня нет для них толковых решений. Если есть возможность-помогите... 1 Разработать функцию, находящую сумму элементов с нечетными номерами в заданном списке чисел....

Функция объединения двух списков
Добрый день. Помогите пожалуйста решить такую задачу : Разработать функцию, находящую теоретико-множественное объединение двух списков. Например: Вход: (1 2 3 4 5), (4 5 6 7). Выход: (1 2...

Дан список из 10 целых чисел. Составить программу, вычисляющую сумму всех чисел, начинающихся на 1
Доброго времени суток, уважаемые! Помогите пожалуйста студенту... Сама задачка собственно в теме. В качестве благодарности могу скинуть немного денежек на телефон, ибо понимаю, что любой труд...

Запись в файл строк из координат точек
В файле "points.lsp" записаны построчно 8 чисел. В переменную x считывается первая строка, это координата x, аналогично в переменную y, это координата y. Создается список a (list x y). Получилось 4...

Определить функцию, возвращающую копию данного списка, из которой удалены нечетные элементы
Дан список. Определить функцию, возвращающую его копию, из которой удалены 1-ый, 3-ий и т.д. элементы. Использовать только базис Лиспа. Например: если дано "(3 1 4 1 5 9 2 6)", ответом будет "(1 1...

Глубина первого вхождения элемента Y, удовлетворяющего некоторому предикату P, в список W
Доброго времени! Уже видел подобную тему, где расписывали как решить задачку, но: там условие отличалось тем, что нужно было найти глубину последнего вхождения элемента Y. Собственно, вопрос...

Поиск максимального значения
Дана функция y=tg(x)+1. Написать программу для поиска максимального значения y в промежутке x= с шагом 0,1.

Вычисление суммы четных элементов на каждом уровне исходного списка
Написать функцию, вычисляющую сумму четных элементов-чисел на каждом уровне исходного списка. Рекомендуется следующая форма результата : (( 1 <сумма числовых элементов на первом уровне>)(2 <на...

Мне нужно всего лишь найти синтаксические ошибки, второй день ломаю голову, в условии есть ошибки
Мне нужно всего лишь найти синтаксические ошибки, второй день ломаю голову, в условии есть ошибки. А в каком именно условии не знаю:( (COND ( (EQ x 'cat) (SETQ x 'dog) ) ( (= x 5) (+ x 5) ) (...

кто на каком лиспе программирует?
доброе время суток форумчане!вот нужно написать пару дестков программ на лиспе а в какоим именно писать - то не знаю, и соответственно хотел бы узнать у вас какой лисп сейчас самый популярный? если...

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

Получить разность между k-м элементом списка х и n-м элементом списка y
1. Даны два числовых списка x и Y, k и n - целые числа (k, n = 1, 2, 3). Получить разность между k-м элементом списка х и n-м элементом списка y. 2. Определить функцию (otobr f x), аргумент...

Написать функцию выводящую букву "Ж"
Вообщем ребят, нужна помощь. Нужно написать функцию выводящую букву "Ж". Буква "И" сделана, но еще надо букву "Ж". Проблема в том что не могу написать код на данную букву. Код на букву "И"...

П.омогите с LISP) очень с.рочно)
1)Переопределить следующую функцию, используя DO* вместо DOLIST: >(defun find-largest (list-of-numbers) (let ((largest (first list-of-numbers))) (dolist (element (rest list-of-numbers) largest)...

Программа для игры «Быки и коровы»
Требуется угадать случайное четырехзначное число. Называются пробные цифры. Если цифра по значению и позиции совпала с цифрой в исходном числе, то эта цифра – «корова». Если же цифра совпала по...

Объединение "голов" трех списков
Здравствуйте!! Подскажите как объединить "головы" трех списков!! например Есть 1 список (G55 G66 G777) - голова этого списка G55 Есть 2 список (9 (FG)I) - голова этого списка 9

Ханойские башни Common Lisp
Есть 3 стержня, на один из которых нанизаны 8 дисков, причем диски отличаются размером и лежат меньшее на большем. Задача состоит в том,чтобы перенести пирамиду из n-дисков за наименьшее число ходов....

Как в while засунуть несколько условий?
как-то так можно?(while ( (<= r2 r1) && (еще одно условие) ) (setq r2 (getreal "Укажите еще раз : ")) )

Написать программу замены элементов списков первого уровня на элементы списка самого низкого уровня в цикл
Пажалуйста помогите с задачкой Пример: (((a)) (b) (((c) e)) (((d)))) -> ((c) (d) (c) (d))

Функции работы со строками в common Lisp
Здравствуйте! Ребята подскажите пожалуйста следующие аналоги функций для работ со строками в common Lisp: strcase, substr, strlen. Данные функции нашёл в интернете, но они не работают в...

Определить логические операции
Определить логические операции дизъюнкции, конъюнкции и импликации, используя функцию if. Дать новым функциям имена: MY_OR, MY_AND, MY_IMPLICATION.

Написать рекурсивную функцию, удаляющую x (последнее вхождение) из списка l
Прочитать из файла значение переменной x. Написать рекурсивную функцию, удаляющую x (последнее вхождение) из списка l. Список задать при вызове функции. (defun l1(l) (reverse (cdr(reverse l))) )...

Выбрать нужные элементы из списка
Привет всем! Помогите пожалуйста новичку ) Я задал список (setf Список '((1 2 3)(4 5 6))) как сделать функцию с использованием функционалов (apply и mapcar), чтоб можно было сложить первые...

Удалить из списка каждый второй элемент
Удалить из. списка каждый второй элемент

Удаление каждого третьего элемента списка на всех уровнях вложенности
Здравствуйте, уважаемые! Как-то мне бермутно на душе и не могу: Составить функцию с одним аргументом – сложным многоуровневым списком, которая превращала бы этот список таким образом, чтобы из него...

Лямбда-вызовы с использованием формы LET
Добрый день. Помогите решить задачу пожалуйста. Запишите следующие лямбда-вызовы с использованием формы LET и вычислите их на машине: ((LAMBDA (x y) ((LAMBDA (z) (LIST x y z)) ‘c) ‘a ‘b); ...

Замена в списке одного элемента на другой
Функция трех аргументов (список, старый элемент, новый элемент) должна возвращать список, в котором все вхождения старого элемента заменены на новый элемент на всех уровнях списка lisp. Как можно...

Количество десятичных цифр числа n
Требуется решить две задачи с использованием рекурсии, но без &optional, initial element, т.к я не понимаю принципа их работы. Дано натуральное число N. Определить функцию, зависящую от N, которая...

Локальные, вспомогательные функции, функционалы
Всем привет!!! Помогите пожалуйста решить задачки на XLisp. В первых двух задачах требуется для использовать локальные или вспомогательные функции. В третьей задаче требуется использовать...

Объединение списков по условию
Задание: Написать программу: заданы два списка. Если произведение первых элементов исходных списков есть положительное число, то объединить в результирующий список последние элементы. В противном...

Найти все простые делители числа
Опишите функцию простые_делители(m), которая находит и выводит все простые делители числа m Помогите, пожалуйста!

Подойдет ли Scheme как первый ЯП и SICP как учебник для начинающего?
Хочу стать программистом, сейчас изучаю дискретную математику по книге "Дискретная математика для программистов". Хотел что почитать параллельно, посоветовали книгу SICP(Структура и интерпретация...

Строки в Scheme
Реализуйте на ЯП Scheme процедуры работы со строками: Предикаты*(string-prefix? a b),*(string-suffix? a b)*и*(string-infix? a b), соответственно, проверяющие, является ли строка*a: началом строки*b,...

Имеется список, элементы которого — непустые бинарные деревья
Имеется список, элементы которого — непустые бинарные деревья. Для каждого элемента списка найти число вершин, значения которых лежат в определенном диапазоне, из полученных результатов сформировать...

Глубина последнего вхождения элемента в список
Суть задачи над которой я бьюсь уже который день. Напишите функцию, определяющую глубину последнего вхождения элемента Y, удовлетворяющего некоторому предикату P, в список W. Буксую с определением...

Обход списка с двух концов
Еcть список '(1 2 3 4 5 6 7 8 9 10) Обходя список с начала и с конца, найти число 5 в нем.

Отсортировать список
Описать функцию, возвращающую отсортированный в порядке возрастания список, состоящий из чисел, исключая повторы элементов. Решить задачу двумя способами: с помощью циклов и рекурсивно. Выполнить...

Как удалить знаки препинания из списка?
Диалект Racket При разделении строки на список слов, мне необходимо удалить знаки препинания. К примеру имею > (string-split "Должность: инженер, ФИО: Смиронов, Иван, Петрович.") '("Должность:"...

Найти все числа в списке и объединить их в выходной список
Доброго всем вечера. Определить функцию collect-numbers(s-exp), которая возвращает список всех чисел s-выражений. S-выражение может быть атомом или списком s-выражений. Например: >...

Вывод строки
Всем привет! Нужна помощь в решении задачи на muLisp. Создать функцию с применением функционалов. Функция должна выводить строку в виде текста. Аргументы функции: координаты начала строки, знак...

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

от начинающего кодера
Добрый день! Начал изучать LISP, нужен для полного понимания "азов" но это не важно, прошу не осуждать) вопрос в следующем(перешел сюда с C#) не могу усвоить одно из первых заданий СИКП, а...

Определить, является ли слово палиндромом
Заинтересовался языком РЕФАЛ. Там в первом же примере показана функция, которая опеределяет палиндром ли слово или нет. Алгоритм такой: 1.Если одна буква в слове - то это палиндром. 2.Если...

Реализуйте макрос trace для трассировки
ДАННУЮ ПРОГРАММУ НЕОБХОДИМО РЕАЛИЗОВАТЬ НА SCHEME! Реализуйте макрос trace для трассировки. Трассировка — способ отладки, при котором отслеживаются значения переменных или выражений на каждом шаге...

Вычисление произведения чётных элементов списка
Всем доброго времени суток! Срочно нужна помощь в решении задачи на Lisp. Горю. Нужно создать функцию mult_list которая вычисляет произведение чётных(по велечине) элементов целочисленного списка.

CAR и CDR для разбора списков
Из этой же оперы: 1. Используя базовые функции, выясните, равен ли цвет волос ANN, заданный в списке ((DOLLY HAIR BLOND) (ANN HEIGHT 68) (ANN HAIR BROWN)) значению BROWN (русый)? 2. Проверьте, сдал...

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

Список студентов
Составьте список из нескольких студентов своей группы (ФИО ФИО ... ПИБ). Для каждого студента с этого списка с помощью функции LIST составьте следующие списки: для самого студента - дата рождения,...

Объясните кусочек кода
Объясните кусочек кода,как,что выполняется,можно в эквиваленте на c++ (defun app (x y) (cond ((endp x) y) (t (cons (car x) (app (cdr x) y))))) Можно и просто...

Построить первые N натуральных чисел, делителями которых являются только числа 2, 3 и 7 в Lisp
Построить первые N натуральных чисел, делителями которых являются только числа 2, 3 и 7 в Lisp. Example: первые 10 натуральных чисел: 2 3 4 6 7 8 9 12 14 16 2 = 2^1 * 3^0 * 7^0 3 = 2^0 *...

Работа со списками в LISP, используя базовые функции CAR, CDR, CONS
Дан список ( (A B ( C ) ) (D (E) (K L M))) получить: список (C) список (A B C D) список (K A C) Помогите, пожалуйста )

Задача о шахматном коне (задача Эйлера). Поиск в глубину
Требуется обойти все клетки шахматной доски ходом коня. Метод поиска решений – поиск в глубину. Буду признателен за любую помощь! Заранее спасибо :)

Определить функционал a-apply
Всем доброго! Задание. Определите функционал (A-APPLY f x), который применяет каждую функцию fi и fi+1 списка f = (f1 f2 ... fn) к соответствующему элементу xi списка x = (x1 x2 ... xn/2) и...

Вывести первые N положительные элементы списка
Здравствуйте, нужна помощь, необходимо на Лиспе написать программу которая будет выводить первые N положительные элементы списка, пока нашел только как выводить положительные элементы, (defun...

список подсписков
Аргумент функции - N. Результат - список подсписков (всего N подсписков). Первый подсписок - единица, второй подсписок - две двойки, третий - три тройки и так далее до подсписка N-го уровня...

Определите сколько раз в списке встречается заданный объект
Определите сколько раз в списке встречается заданный объект.

Экспертная система по выбору оператора сотовой связи
ЭС по выбору оператора сотовой связи. Выходные данные: 1) зона уверенного приема сигнала; 2) стоимость роуминга; 3) предоставляемые услуги SMS, MMS, WAP; 4) тарифные планы. Подскажите...

Композиция процедур
Данную программу необходимо реализовать на Scheme (диалекте LISP). ВАЖНОЕ УСЛОВИЕ: При выполнении задания не используйте присваивание, циклы и обращение к элементам последовательности по индексу....

Функ. CONS
Задание 3 Построить список, соответствующий номеру варианта, используя только числовые атомы и функцию CONS. Изобразить структуру полученного списка при помощи списочных ячеек и стрелок. Вот мой ...

Рекурсия. Количество числовых атомов в составном списке.
Доброго времени суток. Помогите, кто чем может :) Требуется написать рекурсивную функцию, определяющую количество числовых атомов в составном списке. Я это вижу вот так: (defun fun (y) (cond...

Найти скалярное произведение векторов
Сформировать в виде файла два вектора размерности не более 8, найти их скалярное произведение и ответ записать в файл есть нечто похожее для разности двух векторов (defun lab3 () (setq f1...

Создание базы данных, отражающую затраты труда программиста
Создать базу данных, отражающую затраты труда программиста на алгоритмизацию, программирование и отладку программы в часах: <Фамилия> (<Программа>, <Алгоритмизация>, <Программирование>, <Отладка>)....

Поиск элемента в многоуровневом списке
Помогите пожалуйста.Необходимо решить задачку - написать функцию предикатного типа. (Scheme/DrRacket). Задание: Построить функцию предикатного типа ПРИНАДЛЕЖИТ (Е, X), которая проверяет входит ли...

Удаление из списка
Написать функцию удаления из списка первого встреченного элемента соответствующего указанному значению. (Использовать рекурсию) (defun find(elem list) (cond ((null list) nil) ...

Список из структур Lisp
Дана задача нужно решить ее на лиспе и питоне. С помощью списков. Процессинговый центр обслуживает расчеты по дебетовым карточкам. В каждом обращении указывается порядковый номер операции, код...

Проверить регистр символа
Как на лиспе проверить регистр символа, например, вернуть T, если регистр нижний?

Сравнение бинарных деревьев на ЛИСП
Здравствуйте, уважаемое сообщество. Необходима ваша помощь! Положим у нас есть 2 бинарных дерева. Нужно сравнить их: 1)вернуть "истину" если деревья одинаковы, либо же одно - полностью идентично...

Написать функцию подсчёта числа элементов-списков начального списка на всех уровнях вложения
Привет! Помогите решить lisp, сессия на носу, препод сам не может ничего объяснить... Задача 1 Написать функцию подсчёта числа элементов-спосков начального списка на всех уровнях вложения. ...

Поиск подстроки в строке
Всем Доброго времени. Вчера решил подумать перед сном как о том, как найти подстроку в строке и потом долго не мог заснуть :D Проблема в том, что подстрока может располагать в любом месте в строке....

Написать функцию, которая возвращает квадратный корень из аргумента, если аргумент - число...
Помогите решить задачу на CLISP Условие задачи: Написать функцию ,которая возвращает квадратный корень из аргумента, если аргумент является числом, последний элемент аргумента-списка, если...

Как поменять местами переменные не используя третью?
Дано две целых переменные, допустим, x и y. Не вводя дополнительной переменной надо поменять местами значения x и y (новое значения x равняется старому значению y и наоборот). Каким образом можно...

отрицательные числа
Здравствуйте, мне нужно найти все отрицательные числа в результирующем множестве, полученного из сечения двух множеств. Множества - списки чисел.... ну сечение множеств я нашел как делать, а как в...

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

Найти в строке повторяющиеся слова
С огромным трудом разбираюсь в Лиспе, а срочно надо программу написать! Помогите, пожалуйста, кто может! :-[ Задание такое: "Дана строка символов. Определить, есть ли повторение слов в этой строке....

Написать функцию которая возвращает матрицу
Если у кого есть время, помогите, нужно написать функцию (MATR m i j value) которая возвращает матрицу, у которой m = value.

Гамильтонов цикл
Здравствуйте, есть такое задание: Определить функцию, на вход которой подается граф в виде ((a b) (b c) (c d)) a - начало дуги, b - конец. Функция должна определять, является ли он гамильтоновым,...

Найти определитель матрицы порядка 2х2 и 3х3
найти определитель матрицы порядка 2х2 и 3х3.

Даны два списка одинаковой длины, элементы которых - числа. Найти список с элементами - суммами соответствующих элементов исходных списков
Даны два списка одинаковой длины, элементы которых - числа. Найти список с элементами - суммами соответствующих элементов исходных списков.

Графы и Эйлерова цепь
Доброго времени суток! Очень прошу помоч с задачкой... Неориентированный граф задан списком смежных вершин: ((ab) (ac) (ad) (bc) (bd) (cd) (ce) (de)). Составить пpогpаму поиска списка вершин,...

Ау, програмисты на Sheme (Lisp)?
Остались ли такие в живых? Ребята отзовитесь! При поиске по интернету(google) не нашла обширной документации по этому языку, да и програмистов на Sheme тоже не нашла :), но узнала одну интересную...

функционалы CLisp
Пишу на Command Lisp, проблема в следующем коде, который не работает и я не могу понять почему. Имеется две функции: (defun pf (x f) (cond ((null x) nil) (T (cons (f (car x)) (pf (cdr x)...

Написать функцию, удаляющую из списка каждый k-ый элемент
В общем есть задачка: Написать функцию, удаляющую из списка каждый k-ый элемент. Так вот, написал, прекрасно работает: ;Главная функция (defun fun (x k) (cond ((null x) nil) ...

Удалить каждый второй элемент из списка
написать ф-ю удаление из списка к-го 2го эл-та

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

Реверс списка
функция должна возвращать список с элементами, перечисленными в обратном порядке.

Необычный вывод позиции найденного элемента в ЛЮБОМ списке
Помогите пожалуйста!!!! Если не сложно - с комментариями! Lisp мне не поддается...((( ЗАДАЧА: В нелинейном списке найти заданный элемент (м.б., не атом). Результат выдать в виде линейного списка...

Примените рекурсию для создания списка, содержащего элементы списка L в заданном интервале
Примените рекурсию для создания списка, содержащего только те элементы списка L, которые имеют значение больше 1 и меньше 100.

Нужно упростить поиск наибольшего общего делителя (НОД)
Нужно написать функцию, вычисляющую наибольший общий делитель чисел a и b. Сделать это нужно используя только базовые примитивы. В принципе это даже удалось, был реализован алгоритм Евклида, но...

Курсовая работа на языке Lisp
Помогите пожалуйста выполнить курсовую работу на тему: Разработка параметрической модели на языке Autolisp. Буду очень благодарна!

Как осуществляется функциональная блокировка?
Как осуществляется функциональная блокировка? Добавлено через 1 минуту и в чем ее отличие от обычной блокировки?

Xlisp
Решил предложить продолжать разговор о Xlisp в этой теме, чтобы там не было все перемешано в одном месте. Когда задал вопрос Новицкой Ю.В., на какой версии основано повествование в её в книге,...

Рекурсия. Определить предикат, проверяющий пересечение двух множеств
задание: Определить предикат, проверяющий пересечение двух множеств. Необходимо реализовать через рекурсию по значению, и отдельно через рекурсию по аргументу. Рекурсия по значению: (defun...

Создать функцию, использую if и cond
Написать функцию решения квадратного уравнения используя условные операторы if и cond. (defun sq (a b c) (if (= a 0) (print "Not a quadratic equation") (setq d (- (* b b) (* 4 a c))) (cond ...

Построить список из последовательных сумм элементов
Дан одноуровневый список, состоящий из чисел. Построить список из последовательных сумм элементов. (A1,A2,A3,...,AN) —>—>(A1,A1+A2,A1+A2+A3,...,A1+A2+...+AN) Изучаем рекурсию, поэтому ее тут надо...

Задача Л. Эйлера и две задачи на список
1) Задача Л. Эйлера. Некий чиновник купил лошадей и быков на 1770 талеров. За каждую лошадь он уплатил по 31 талеру, а за каждого быка - по 21 талеру. Сколько лошадей и быков купил чиновник?...

График функции y = sin x / cos x
Доброго времени суток. В mulisp под DOS необходимо нарисовать график функции y = sin x / cos x в Lisp. Цикл я описал, код работает, но график не рисуется. Помогите, пожалуйста, исправить код,...

Вычислить сумму факториалов чисел
.Для данной составить задачи две программы: непосредственное функциональное описание и программу, основанную на «хвостовой» рекурсии. Вычислить сумму факториалов чисел от 1 до n.

Конструкция let
Здравствуйте, я написал два варианта вычисления квадратного корня методом Ньютона. Следующая ниже версия рабочая: (define (square-root-iter x guess) (let ((square (lambda (y) (* y...

HtDP - самый ужасный алгоритм
читаю 3ю часть HtDP наткнулся на такой вот алгоритм поиска макс. числа в списке: ;; Nelon -> Number ;; determines the largest ;; number on l (define (sup l) (cond ))

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

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

Лексический анализатор
Доброго времени суток! Помогите пожалуйста с лабораторной по CLISP: Требуется написать лексический анализатор, на вход которого подается текст программы на Паскале, а на выходе - список всех типов...

Заданный список произвольного уровня вложенности разбить на четыре списка
Нужно написать на muLisp программу: Заданный список произвольного уровня вложенности разбить на четыре списка: в первом – гласные, во втором – согласные, в третьем – цифры, в четвертом – все...

Функция (ЛУКОВИЦА n), строящую n-уровневый вложенный список
Здравствуйте! Нужно написать функцию (ЛУКОВИЦА n), строящую n-уровневый вложенный список, элементом которого на самом глубоком уровне является N. Использовать можно только приметивы. Вот как...

Функция, возвращает квадрат аргумента, если аргумент число; хвост списка, если аргумент список; иначе сам аргумент
Помогите, пожалуйста, с заданием: Написать функцию, которая возвращает квадрат аргумента, если аргумент число; хвост списка, если аргумент список; сам аргумент — в противном случае. Привести набор...

Список атомов. Написать программу, возвращающую список заданного вида
приветствую всех! очень нужно решить задачу, ну никак не идёт! заранее всем спасибо Есть список атомов. Написать программу, возвращающую список вида: первый элемент — атом исходного списка,...

Lisp in a Box
Есть проблема с установкой данного пакета. ОС на машине, на которой программирую- Windows. Имя пользователя набрано русскими буквами, похоже, что из-за этого пакет нормально не собирается (выдаёт...

Common LISP - функция отсчёта времени
Приветствую. Попытался создать простую функцию, отсчитывающую время (в секундах) до нуля. Попросту задействовал функцию sleep, но из-за того, что на каждом цикле время также уходит на нужды итерации...

Числовые функции LISP
Здравствуйте, необходимо решить 3 задачи: 1. Подсчитать число и сумму цифр целого N. Попробовал, написал 2 проги, а объединить не могу. (defun kolvo (n) (cond ((< n 10) n)(t (+ 1 (kolvo (/ n...

car и cdr
Выделите с помощью комбинации вызовов “car” и “cdr” элементы x, y, z из следующих списков, а также все элементы, символы которых состоят из двух знаков. (((dv) (((dt))) g (cc (x (y (((z))))))) И...

Набор примитивов
Помогите реализовать добавление примитивов, нарисованных красными линиями в новый набор, и удаление этих примитивов с рисунка. Реализовала список из красных примитивов,а вот с набором трудности....

Является ли граф циклическим
Маршрут на графе определяется списком ((a b) (c e) (e d) (d c) (c b) (b a) (a d)) где (a b c d e) - вершины графа. Определить, является ли он циклическим. Пользовался поиском по форуму - не нашел...

Поиск по последней букве
имеется код который ищет количество слов, я хочу переделать его что бы искал слова по последней букве... Помогите (prog nil (try (dlgDestroy '_Dlg_) except Nil) (dlgCreate '_Dlg_ 314...

Нахождение производной
Реализуйте процедуру derivative, находящую производную функции одной переменной по правилам дифференцирования. Пусть процедура принимает один аргумент — выражение на языке Scheme, которой задана...

написание функции, реализующей разность множеств
Помогите решить задачу: Написать функцию, аргументом которой являются два списка, результатом - атомы, входящие только в первый список.

инвертировать список
здравствуйте, помогите пожалуйста решить следующие задания: нужно инвертировать список начиная с третьего элемента

Тригонометрическая формула Виета
Изучая sicp я решил также параллельно подтянуть математический анализ и теорию лямбда-исчисления. В ходе решения задач меня осенила мысль: "а почему бы не решить эти задачи с помощью программ". Таким...

запуск clisp
здравствуйте! я новичок в лиспе, пытаюсь изучить его самостоятельно. не могу запустить слисп. написала в блокноте код программы, сохранила его с расширением .lsp и уже в окне лиспа пишу: (load...

График функции (y=lnx/sqrtx)
Помогите построить график функции y=ln(x)/sqrt(x). В HomeLisp или AutoLISP. Нужен не скрин готового графика, а код программы...

Задача о сборке кубика Рубика размера 2 x 2 x 2
Реализовать алгоритм решения задачи о сборке кубика Рубика размера 2 x 2 x 2.

четные числа в множестве
Здравствуйте, есть у меня вот такое задание : найти четные числа в результирующем множестве, полученном из пересечения двух множеств. В качестве множеств выступают списки из чисел. вот что-то...

Сравнить введенный шаблон и строку (сопоставление с образцом)
Написать функцию с двумя переменными, первая - шаблон, вторая - строка. Шаблон состоит из символа: * заменят любой символ в количестве от 0 до N, символ ? заменят только один любой символ. К примеру...

Выбрать из списка каждый третий элемент
Выбрать из списка каждый третий элемент и возвратить их в новый список. Помогите пожалуйста, совсем недавно начал учить лисп.

Сделать из циклического графа ациклический
Добрый день! Прошу вашей помощи в решении такой задачи: дано граф направленный цикличный. Сделать из него ациклический (разорвать циклы), построить два множества: входы (есть входные ребра, нет...

Найти количество элементов списка
задан многоуровневый список, найти количество элементов списка, находящихся на нижних уровнях.

Хвостовая рекурсия
Помогите переписать задачу. Нужно чтобы решение было с хвостовой рекурсией: (defun y (N) (labels ((ij-func (i j) (+ (/ i j) (/ (* i i) 2))) (y-iter (i j prod sum) ...

Где ошибка?
Задание: Упорядоченное бинарное дерево состоит из узлов вида: (элемент левое-поддерево правое-поддерево) В каждом узле выполнено следующее условие: все элементы из узлов его левого поддерева в...

Вывод строки чисел без пробелов, а затем вывод значения в виде списка чисел
Определить функцию (Z1 k n), где k<n, которая сначала выводит строку чисел без пробелов k k+1 k+2 ... n, а затем на другой строке выводит значение в ввиде списка чисел (k k+1 k+2 .. n) Задание...

Функция, дублирующая функцию pop в lisp
Здравствуйте, получила задание: Реализовать операцию извлечения элемента стека, называемую POP. Стек организован в соответствии с правилом LIFO. Создаваемая форма должна извлечь верхний элемент в...

Как сделать циклический сдвиг списка?
Пытаюсь сдвинуть список влево циклически. > (define lst (list 1 2 3 4 5)) > lst '(1 2 3 4 5) > (set! lst (cdr (append lst (car lst)))) > lst '(2 3 4 5 . 1)

Рекурсивная функция для вычисления корня квадратного
Вычислить с точностью до 6 знаков, сравнив по числу шагов, рекурсивную формулу {q}_{n+1}=\frac{1}{2}\left({q}_{n}+\frac{14}{q}_{n} \right), {q}_{0}=14

SETQ не работает для безымянной функции
В самоучителе по Лиспу нашел, что можно лямбда-функцию присвоить переменной, и вызывать как обычную функцию: Если присвоить какому-либо атому в качестве значения корректное LAMBDA-выражение, то...

Разбить список на подсписки с элементами, кратными n
Здравствуйте! Подскажите с решением данной задачи: Разбить список целых чисел на подсписки, сохраняя порядок элементов: в первом списке содержатся элементы исходного списка, кратные 2; во втором...

Разработать функцию, находящую сумму элементов с нечетными номерами в заданном списке чисел
Разработать функцию, находящую сумму элементов с нечетными номерами в заданном списке чисел Например: Вход: (2 4 3 1 7 2 4). Выход: 16. Вот что я вычерпала из своих знаний Лиспа, но не...

Пересечение, разность множеств
не подскажите как реализовать пересечение и разность? например, пересечение : '(a s d (h)) '(h a y)) -> (a h); разность : '(a e r (k l)) '(k (l) r) ->(а е).

Напишите функцию (drop L N1 N2)
Задали написать функцию, которая удаляет элементы списка L с позиции N1 до позиции N2 включительно. К примеру, если дан список (1 (2 3 (4 (5))) 6 (7 8) (9 (0))) и нужно удалить элементы с 1 по 5,...

программирование на mulisp
Добро дня! Помогите с решением задач по muLISP: 1)Опpеделите на языке ЛИСП и проверьте работу функции, возвpащающей первый совпавший в двух списках элемент, либо nil, если таких элементов нет. ...

Пример LISP задача
Помогите пожалуйста, для очередной лабораторной работы скинули задачу вот такую. Найти все натуральные числа которые меньше либо равны N и которые в свою очередь делятся без остатки на компоненты...

Работа с очередями
Подскажите как сделать: 1. Определить функции, реализующие работу с очередями. Вы должны реализовать следующие функции: 1) make-queue() – строит очередь, не содержащую ни одного элемента;...

Рекурсия, IF, новичок
(defun add(e l) (append l (list e))) (defun check(x) (cond ((eq x 2) (true)) ((> x 1) (loop for i from 2 to (+ (sqrt x) 1) do (if (eq (mod x i) 0) (return (false))) (return (true)))))) (defun...

Написать программу, возвращающую список, содержащий информацию о количестве подсписков на каждом уровне вложенности
Пожалуйста подскажите, необходимо просто подсчитать кол-во букв или цифр, вообщем символов. здесь необязательно использовать numberp, как от него избавиться? (defun sumlv (l lv) (cond ((null l)...

Программа на common lisp
Программа на common lisp Прочитать беззнаковое целое число из стандартного потока ввода и в каждом байте числа обнулить нулевой и седьмой биты и сделать единичными третий и четвертый биты. Результат...

Максимальная глубина списка
Есть список, написать программу, возвращающую максимальную глубину списка.

Определить функционал Аналогичный предикату MAPLIST для одноуровнего списка. (Используйте применяющий функционал FUNCALL)
определить функционал Аналогичный предикату MAPLIST для одноуровнего списка. (Используйте применяющий функционал FUNCALL). Заранее благодарю

Вставить элемент в отсортированный список с сохранением порядка
Получить новый отсортированный список путем вставки заданного элемента в исходный отсортированный в порядке возрастания элементов список.

Найти площадь треугольника методом Монте-Карло (рекурсии)
Заданы координаты вершин треугольника. Найти площадь треугольника методом Монте-Карло и определить точность. Метод Монте-Карло заключается в том чтобы взять в прямоугольник этот треугольник,...

Вылетает функция putassoc
Добрый день форумчане. Не могу понять, почему вылетает ошибка. (defun putassoc (key obj a_list) (cond ((null a_list) nil) ((eql (caar a_list) key) (rplacd (car a_list) ...

Получить ascii код символа в Lisp
Написать программу, которая в исходном списке заменяет все элементы-символы соответствующими им ASCII-кодами. Список может содержать подсписки произвольной глубины вложения.

Подсчет числа вхождений в список
Сколько раз встречается в списке "1" и "2"? а) Без вложенного списка б) С учетом вложенных списков Спасибо!

Переписать код с Haskell на Lisp
Необходимо переписать имеющийся код на Haskell'е на Lisp. Помогите пожалуйста! codeEvRod n | n==0 = "000" | n==1 = "001" | n==2 = "010" | n==3 =...

Подскажите, как написать функцию, преобразующую фразу в список в Comon Lisp
Добрый вечер! Помогите пожалуйста написать функцию, которая вводит фразу на естественном языке и преобразует ее в список. в Comon Lisp. Найденное мной решение: (defun split-by-space () ...

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

Реализовать функцию расчета arcsin(x)*tg(x)
1. В среде лисп реализовать функцию расчета arcsin(x)*tg(x). вычислить для х=0.3 у=П/5 2. Реализовать добавление заданный элемент на второе место в списке. 3.Реализовать функцию которая оставляет в...

Sicp
Изучаю Sicp в свободное время, но вот наткнулся на большой и непонятный для меня камень полное упражнение Упражнение 1.10. Следующая процедура вычисляет математическую функцию, называемую...

Включение символа на заданное место в списке!
Здравствуйте! Нужно реализовать функцию которая будет вставлять символ в заданное место в списке!! идей пока нет как это сделать! тут надо видимо объединять как то заданный список и символ!...

Выбор цвета поверхности через стандартное меню AutoCAD
БЕсть кнопка в диалоговом окне при нажатии на которую должно открываться стандартное окно выбора цвета в автокад. Как реализовать это? Команда color при вызове через лисп (command "color") просит...

Множественное наследование
Здравствуйте, объясните пожалуйста вкратце, что такое комбинирование методов в clos, что может стоять за понятием "обход соседей" и как работает call next method. Желательно объяснить как это...

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

список "луковица"
Опpеделите на языке ЛИСП и проверьте работу функции, стpоящей список "луковица" с уровнем вложенности n для параметра x. Например, при n=4, x=0 функция должна возвращать список ((((0)))). Если...

Ветвление: Для произвольной точки (х,у) определить как расположена она относительно прямой.
Задана прямая y=ax+b. для произвольной точки (х,у) определить как расположена она относительно прямой. а)выше прямой б)на прямой в)ниже прямой

Создать программу, реализующую игру "Угадай число"
ЗДРАВСТВУЙТЕ помогите с задачей: Создать программу, реализующую игру "Угадай число" (компьютер загадывает число, человек пытается его отгадать, ориентируясь на реплики "Больше", "Меньше").

Разложение числа на сумму трех кубов
Помогите пожалуйста с задачкой, заранее спасибо. Представить число в виде суммы кубов 3х чисел

HomeLisp. Сделать часы, чтобы они запускались и останавливались
Суть вот в чем. Когда функция вызывается, то нужно ждать окончания ее выполнения. А я хочу сделать часы, чтобы они запускались и останавливались. Чтобы можно было вручную время менять и снова их...

Стандарт ANSI Common LISP
Здравствуйте, я серьезно поглощен идеей переписать/дописать CLiCC (Common Lisp to C Compiler). Уже начал изучать исходники. Если с языком C все понятно, то, что касается Common Lisp, код написан на...

Вывести все элементы, записанные в узлах бинарного дерева, в порядке инфиксного правого обхода
Напишите функцию, которая выводит все элементы, записанные в узлах бинарного дерева, в порядке инфиксного правого обхода. Формат представления бинарного дерева: пустое дерево - (), дерево - (атом...

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

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

Написать комментарии к коду
Помогите плс нужно написать комментарии к коду подсчет общий длины линии (для AutoCAD) (if (not (= (substr (ver) 1 11) "Visual LISP")) (load "acad2006doc.lsp")) ;; Silent load. (princ)

Считалка: удаление каждого пятого элемента в списке, пока не останется 1 элемент
Помогите, пожалуйста! Мои знания Lisp'a ограничиваются элементарными на уровне "сумма элементов списка" :(

Построить первые N натуральных чисел, делителями которых являются только числа 2, 3 и 5
Построить первые N натуральных чисел, делителями которых являются только числа 2, 3 и 5 пажалуйста помогите, нужно очень срочно!!!

Работа со списками
Здравствуйте уважаемые участники форума. Требуется небольшая помощь. Нам преподают язык Scheme (он же Racket) по SiCp. И вот подошло время зачёта, требуется решить одну задачку. Кто сделает...

Сортировка чисел в файле
нужна помощь по lisp Помогите с кодом для данной задачи на visual lisp: Сортировка чисел, хранящихся в файле. В файле хранятся положительные, отрицательные, чётные, нечётные, целые и числа с...

Построить функции, работающие со списками
GetN — функция вычленения N-ого элемента из заданного списка. GetN (N, ) = _ GetN (1, H:T) = H GetN (N, H:T) = GetN (N – 1, T) ListSumm — функция сложения элементов двух списков. Возвращает...

Определить макрос для цикла с параметром for
Определите макрос для цикла с параметром for, реализующий итерационный процесс через вызов функции с хвостовой рекурсией. Формат команды для вызова макроса: (for ((parameter-1 start-value-1) ...

Измерение времени выполнения алгоритма
Подскажите, какие функции нужно использовать (и как их использовать) для замера времени выполнения алгоритма в миллисекундах в LispWorks/HomeLisp? Подробная формулировка задания приведена ниже: ...

Посчитать количество одинаковых элементов(матрица)
Можете пожалуйста дополнить предыдущие задание Посчитать количество одинаковых элементов, но уже чтоб работала с aij ( ( (2) -3 (4) 0 -2) ( -4 0 2) ((-3) (3)-4 3) )

Удалить все элементы списка до элемента с номером n
дан список lst и число n нужно удалить все элементы списка до элемента с номером n пример: '(Y 1 (O P) 1 9 7 2) 4 --> '(1 9 7 2)

Сочетания без повторений
Здравствуйте! Необходимо решить задачу: "Сгенерировать все сочетания без повторений из N по К." Например, если для множества {1,2,3} сгененрировать сочетания по 2 элемента, то получим (1 2) (1 3)...

Вывести первую цифру после запятой
Пытаюсь написать программу, которая выводит первую цифру после запятой на Common Lisp (clisp). Я делаю это так: (setq number 100.49999) (format t "~a~%" (mod (floor (* 10 number)) 10)) 4 И...

Написать функцию, вычисляющую количество делителей числа n
Написать функцию, вычисляющую количество делителей числа n (Common Lisp) Можно использовать только примитивы. Накидали код. Но он не работает :( Знаем что где то тупая ошибка но не можем понять...

Определить функцию (CADDR x) базовыми функциями
делаю так (defun caddr1 (x) (caddr (list x))) запускаю, делаю запрос (caddr1 `(1 2 3 4 5)) выводит Nil.

Разбор списка с помощью CAR, CDR и их комбинаций
Еще одна задачка поставила меня в тупик: Используя функции CAR, CDR и EQL, проверьте, равен ли вес (weight), заданный в списке ((HEIGHT 72) (WEIGHT 175) (HAIR BLOND)) атому 175.

Отдельный список отрицательных и положительных
Добрый вечер, дали задачу: "Вывести в виде отдельных списков положительные и отрицательные элементы заданного списка. ’(2 1 –5 5 –2 0 –9) результатом будет два списка: ’(2 1 5) и ’( –5 –2 –9)". Не...

Деревья, среднее арифметическое листьевых вершин
Дано S-выражение, представляющее дерево вида «(Родитель РебенокЛевый РбенокПравый)» с числами в качестве вершин. Определить функцию для нахожде- ния среднего арифметического листьевых вершин этого...

Необходимо списку присвоить значения, которые вводятся с клавиатуры
Доброго времени суток! Возник небольшой вопрос. Есть список (x1 x2 x3 ... xn) Необходимо списку присвоить значения, которые вводятся с клавиатуры. Оканчивать ввод если либо список кончился, либо...

Возвращаемое значение
Код проверки билета на "Счастливость" (сумма первой группы из 3х цифр равна сумме второй группе цифр) (defun razr-pq (num n) (rem (truncate (/ (abs num) (expt 10 n))) 10)) (defun...

условный оператор
Ввести результаты двух экзаменов и вывести размер стипендии. программа нужна на коммон лисп!

Меню в lisp, как его реализовать ?
основные функции работы со списками

Реверс многоуровневого списка
Помогите пожалуйста написать полный код, в котором будет реализовываться функция MyReverseTree: то есть, если у нас узел в списке, будет являтся тоже списком, то сделать реверс и этого узла

Написать функцию, возвращающую в случае первого четного элемента исходный список, в котором первые три числа возведены в квадрат
Помогите пожалуйста подправить код и решить рекурсию. Задание: Дан список чисел. Написать функцию, возвращающую в случае первого четного элемента исходный список, в котором первые три числа...

Split string in lisp
Собственно говоря не нашел такой функции в стандартном наборе sbcl. Значит нужно сделать свою. Может есть вариант попроще? :read:Кто что думает по этому поводу? Мне кажется удобно было бы если бы...

Вставка элемента в определенное место списка
Добрый вечер, пишу программу на Common Lisp (defun Del (n c sp) (setq k 0) (setq z 0) (setq x 0) (dolist (el sp s) (if (= k n)(and (setq z (subseq sp 0 k)) (setq x (subseq sp...

найти элементы одномерного числового массива, имеющие минимальное значение и максимальное значание. И вывести на экран их порядковые номера
Переделайте пожалста для xlisp, заранее вам спасибо :) найти элементы одномерного числового массива, имеющие минимальное значение и максимальное значание. И вывести на экран их порядковые номера. ...

Учебник по Lisp для начинающих
Build Your Own Lisp. Learn C and build your own programming language in under 1000 lines of code: http://www.buildyourownlisp.com/contents

Построить график для функции
Здравствуйте, помогите построить график с помощью AutoLISP для вот такой вот функции: y=2cos(2x+1.57)

Имеется список студентов с информацией: фамилия, имя, отчество, пол, возраст и курс. Определить самое распространенное мужское и женское имя
Необходимо реализовать задачу на языке, Лисп. Условия задачи: Имеется список студентов с информацией: фамилия, имя, отчество, пол, возраст и курс. Определить самое распространенное мужское и...

PC-Lisp v.3.00
Как загрузить файл (исходный код программы) в PC-lisp?

Определить функцию, возвращающую...
Приветствую Господа! Я студент-заочник со всеми вытекающими… Задали одно простенькое, как показывалось преподавателю, задание. «Определить функцию, возвращающую: а) Первый элемент входящий в...

Найти три максимальных элемента числового списка за время O(n), где n-длина списка
Мое решение: (defun 3max (lst &optional (m1 (car lst)) (m2 (car lst)) (m3 (car lst))) (cond ((null lst) (list m1 m2 m3)) ((> (car lst) m1) (3max (cdr lst) (car lst) m1 m2)) ...

Мануал по LispWorks
Неужели нет хоть какого-нибудь русскоязычного мануала по LispWorks? Хотя бы FAQ какой-нибудь. Инет молчит и предлагает машинные переводы. Может посоветует что-нибудь?

Получить из списка произвольных атомов список атомов, которые в исходном списке встречаются один раз
Построить список атомов, которые встречаются в заданном списке ровно один раз.

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

Определить количество положительных элементов одномерного массива
Помогите пожалуйста с решением задачи) Определить количество положительных элементов одномерного массива. Вывести на экран их количество и значение их суммы.

Задачки по Лиспу
1. Есть список с подсписками вида ((1, (2, 4, z, 6), 7, ), 9, 8, ... ). Подсчитать количество элементов, расположенных на втором и четвертом уровнях вложенности. 2. С ассоциативного списка (a-1 b-2...

Объединение списков-множеств
Уже часа два мучаюсь, трудно дается этот язык Определите функцию, на вход которой подаются два списка – множества. Функция должна выдавать объединение этих множеств P.s. функционалы и...

Вычисление определителя
Матрица задана списком списков по строкам. Вычислить ее определитель (желательно в функциональном стиле). Мое решение: ;; Удалить n-й элемент списка (нумерация с 1) (defun del-el (lst n) ...

списочные ячейки
Всем доброго времени суток!) Посмотрите, пожалуйста, кому не сложно, правильно ли составлены списочные ячейки для списка (1(2(3(4)5)6)7((8)(9)((10)))) Заранее спасибо.

Самые удачные алгоритмы по нескольким параметрам - краткость, производительность, быстрота
Господа, а почему бы нам не завести тему, где можно будет обсуждать алгоритмы и предлагать их решение, выбирать самые удачные по нескольким параметрам - краткость, производительность, быстрота....

Бинарное дерево
Доброго времени суток, форумчане! Прошу вас помочь с лабой по функциональному программированию! Задание: Дано бинарное дерево, некоторые вершины которого помечены. Проверить, находятся ли...

Функция Print
Есть функция, рекурсивно вычисляющая степень числа. Необходимо используя функцию print выводить информацию о результате выполнения отдельного рекурсивного вызова. (defun stepen (x n) (cond...

Удалить n первых элементов списка
Помогите пожалуйста решить задачи: 1.n сумма х=1 (х!/х*х - 2) 2. удалить n первых элементов списка Добавлено через 31 минуту Примечание:clisp

Точечная пара
Функция должна возвращать точечную пару минимального и максимального чисел Проверка на вложенность Если символы то пропускает

Замена первой буквы
Создайте с помощью текстового редактора текстовый файл, каждая строка которого представляет одно предложение. Напишите программу, которая заменяет первую строчную букву предложения на заглавную. (На...

немного теории
Здравствуйте, проверьте пожалуйста мои ответы. Я тут выбрала...надеюсь верно. 1 Укажите верное утверждение? -Функция LIST осуществляет форматированный вывод списка на экран -Функция DOLIST...

Подсчет количества подсписков содержащих заданное число
Доброго времени суток Есть задание, суть которого в том, чтобы подсчитать количество подсписков, содержащих заданное число. Подсписки могут быть любого уровня вложенности Как сравнить сами атомы,...

Определите функционал выполняющий определенную операцию над соответствующими элементами двух списков
Определить функционал: Выполняющий определенную операцию над соответствующими элементами двух списков (Используйте применяющий функционал FUNCALL). Проверьте работу функционала для операций: -...

Обсуждаем, на чем лучше делать GUI для программ, написанных на Лисп, из предложенных вариантов
Если среди этого есть варианты, не предназначенные на самом деле для создания GUI для программ на Лисп, то прошу подсказать, для чего тогда они? https://common-lisp.net/project/mcclim/ ...

Найти максимальный уровень вложенности заданного списка
Помогите написать программу, которая находит максимальный уровень вложенности заданного списка. Заранее спасибо ^^

Напишите функцию
Напишите функцию: a) от одного аргумента (ФИО любого студента), замещающую в списке с данными о нем (написанном раньше) подсписки со средними балами на списки свойств; b) вычисляющую средние...

Экспертная система оценки качества непродовольственных товаров
:(помогите пожалуйста... Я очень не успеваю сессия на носу=(, для того чтобы разобрать времени совсем нет. Нужно в программе написать. Экспертная система оценки качества непродовольственных товаров...

Графика
Здравствуйте, не получается сделать следующее задание: Написать функцию, запрашивающую пользователя начальную точку и рисующую от неё конверт, не проходя одну линию дважды и возвращающуюся в...

Вычислить сумму всех простых чисел, не превышающих 2000000.
Помогите написать программу на лиспе и F# для решения следующей задачи Сумма простых чисел меньших 10 равна 2 + 3 + 5 + 7 = 17. Найти сумму простых чисел, не превышающих 2000000.

Сравнение списков
Написать функцию, которая проверяет, состоят ли два заданных списка из одних и тех же элементов (независимо от порядка их расположения) def check(lst_1, lst_2): for item in...

Как создать на Лисп встроенную функцию?
Я заинтересовался математическими функциями на Лисп. Обратил внимание, что нет десятичного логарифма и тангенса Допустим lg(x) можно определить так (Defun lg(x) (/ (log x) (log 10))) А что...

Рекурсия и макросы
Сложная тема,нужна ваша помощь: 1. Написать рекурсивную функцию, определяющую, сколько раз функция FIB вызывает саму себя.(сама функция во вложенном файле на всякий случай) 2. Определить макрос,...

Дружественные числа
139. Два натуральных числа m и n называются дружественными, если сумма всех делителей числа n равна m, а сумма всех делителей числа m равна n. Найдите пары дружественных чисел меньших 1000. ...

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

Очистка списка от повторяющихся атомов
Построить рекурсивную функцию средствами элементарного лиспа, которая принимает список. И возвращает список входящих в него атомов без повторений. Пример: >(pars '(4 6 3 8 5 3 1 4 8)) ==>(4 6 3 8...

Где преподают лисп?
Я написал (не совсем до конца, но можно доделать) среду разработки на Лисп и думаю, куда её приткнуть. В каких вузах у нас сегодня лисп преподаётся, кто-нибудь знает?

Вывести в виде отдельных списков нечетные и четные элементы списка Y1 (нумерация элементов начинается с 0)
Помогите пожалуйста с задчей: Вывести в виде отдельных списков нечетные и четные элементы списка Y1 (нумерация элементов начинается с 0)

Запустить программу какую-нибудь, связка VisualLISP + AutoCAD
Друзья! Нужно написать на Lisp хоть что-нибудь и как-нибудь это всё запустить. Вот я по этой инструкции действовал. Но там нужно вводить какую-то точку, а это уже высший пилотаж. Мне бы для начала...

Проверить программу: сделать заглавной каждую букву каждого слова
Нужно проверить работает программа или нет. Задание: Дан текст.Сделать заглавной каждую букву каждого слова, начинается с заглавной буквы. Текст рекомендуется представлять списком списков: каждое...

Записать на языке Common Lisp форму для вывода списка значений функции y(x)
Пожалуйста поиогите с задачей: Записать на языке Common Lisp форму для вывода списка значений функции y(x). При определении функции использовать условное предложение IF или COND. Константа a...

Вывод изображения фигур
Здравствуйте,помогите с заданием) Задание:Написать функцию, которая спрашивает у пользователя какую фигуру нужно нарисовать: 1- эллипс, 2 - круг, 3 - дугу и какого цвета и выводит на экран...

количество всех вершин данного дерева заданной высоты
Определите функцию, подсчитывающую количество всех вершин данного дерева заданной высоты. Как это сделать?

Считывание/запись слов из файла. Обработка списка слов
Помогите, пожалуйста, написать программу на языке Lisp. Задание:В файле записаны слова, некоторые из них повторяются. Требуется считывать слова из этого файла и формировать из них список, в котором...

производная
В качестве параметра создаваемая Вами функция получает функцию действительного переменного, запрограммированную при помощи лишь сложения и умножения. Посчитать ее производную. Алгебраические...

MuLisp: определить функцию, подсчитывающую число вхождений S в список L
Здравствуйте, нужно определить функцию, подсчитывающую число вхождений S в список L, причем 2 способами: 1)для элементов верхнего уровня списка (обычной рекурсия) 2)для списка, содержащего...

задачи на lisp
Доброго дня.Кто может помочь с задачами на lisp? Вот сами задачи. 1)Подсчет длины списка 2)Сумма нечетных элементов 3)Сортировка списка (3 метода) 4)Перевод оценок в балы и обратно в строковом...

Добавление символу свойств другого символа
Необходимо реализовать функцию (Add(символ1, символ2)), которая бы добавляла символу2 недостающие свойства символа1.

Остаток целочисленного деления X на Y
Помогите ПОЖАЛЙСТА решить задачу новичку в мире LISP. Для каждого из следующих условий определить функцию с помощью лямбда-выражения: для чисел X и Y строит список из двух атомов: частного и...

ветвление на языке Лисп
Помогите, пожалуйста, решить задачу на языке ЛИСП. Заданы три числа a, b, c. Определить являются ли они упорядоченными: а) по возрастанию б) равны (a=b=c) в) по убыванию г) не...

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

Как увидеть работу тела функции при выполнении используя отладку?
Здравствуйте. Продолжаю читать - Грэм. Ansi Common lisp. Есть вот такой код, я общий принцип понимаю, но хотел бы выполнить его по шагам, с заходом в функции, чтобы полностью понимать работу...

Lisp -> Erlang: удалить каждый третий элемент списка
удалить каждый 3-тий элемент списка пример что должно получиться: >(name ‘(a s d q w e z x c)) (a s q w z x) (defun fun (list n) (cond ((null list) nil) ((= n 3) (fun (cdr list) 1))

Соединить два упорядоченных по неубыванию списка в упорядоченный по неубыванию список
Написать прогу соединяющую два упорядоченных по неубыванию списка в упорядоченный по неубыванию список(без сортировки).

Заданы три числа a, b, c. Определить сумму положительных чисел.
Заданы три числа a, b, c. Определить сумму положительных чисел.

Написать рекурсивную функцию, увеличивающую n-й элемент списка на n
Предположим есть список чисел, нужно написать рекурсивную функцию, которая принимает список чисел и возвращает новый список чисел, основанный на исходном, в котором n-й элемент списка увеличен на...

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

Лисп в качестве встроенного языка
Здравствуйте, уважаемые коллеги! Все мы наверное слышали о встроенных в программу языках программирования. Лисп применяется в таких программах как ИМАКС, АвтоКАД, ещё вроде как в ГИМПе применяют...

Программа для рисования буквы "Ф"
Здравствуйте! Программа для рисования буквы "Ф". Не могу понять, как перевернуть нижнюю четверть окружности. (defun dtr(a) (* pi(/ a 180.)) ) (defun c:test() (princ "Укажите точку...

Используя отображающие функционалы построить декартово произведение двух множеств
Всем доброго времени суток! помогите решить задачки. очень надо, а не получается. С помощью отображающих функционалов построить декартово произведение двух множеств. Если заданы A={a b}, B={1 2...

Рекурсивные функции
Всем доброго времени суток! Дали курсовую по Лиспу: 1) Разработать реурсивную функцию, заменяющую в любом месте префиксного алгебраического выражения (*f1) на f 2) Разработать рекурсивную...

Считать из стека верхний элемент и меняет значение переменной стека
Нужно определить макрос, который читает из стека верхний элемент и меняет значение переменной стека

Функция, которая спрашивает у пользователя ФИО студента из группы и выдает данные о нем
Привет. Задание такое: Напишите функцию, которая спрашивает у пользователя ФИО студента из группы (список группы уже составлен заранее составлен) и выдает следующие данные о нем: год рождения;...

Как перевести вещественное число в обычное
Есть ли какая-нибудь функция, которая переводит вещественное число (например, #C(-0.7851176 1.7533562)) в обычное. Добавлено через 28 минут Немного неудачный пример привел, я имел ввиду...

Построить список, определяющий сколько раз встречается каждый атом в списке
привет. помогите пожалуйста написать программу: Построить список, определяющий сколько раз встречается каждый атом в списке. нужно реализовать на clisp и без использования lambda.

Каррирование
Читаю про каррирование. Почему не работает код из Википедии?: CL-USER 11 > (defun curry(x) (lambda (y) (+ x y))) CURRY CL-USER 12 > ((curry 2) 3) Error: Syntactic error in...

Сортировка многоуровневого списка по возрастанию
Нужно отсортировать список чисел по возрастанию. Список может быть многоуровневым. Тогда вес (значение) любого подсписка для сортировки определяется суммой его элементов. Любой подсписок внутри тоже...

Обработка последовательностей и записей
1. Обработка одномерного массовов Проверить, имеется ли в данном одномерном числовом массиве хотя бы одна пара чисел, совпадающих по величине. Если, имеется, вывести на печать их индексы. 2....

Массивы
Здравствуйте, помогите пожалуйста с задачей. Написать функцию, которая переставляет местами столбцы матрицы, заданной в виде двумерного массива.

Помогите пожалуйста разобраться с ошибками!
1.напечатать слова из заданного предложения, в которых гласные буквы чередуются с согласными (defun f1 (text) (let* ((lower-vowels "аеёиоуыэюя") (lower-consonants...

Получить реберный список графа на лиспе
Помогите решить задачу, в вузе очень плохо объясняют почему-то именно этот предмет, а спрашивают жестко: "Граф задан с помощью списков. Построить его реберный граф". с комментами, если можно конечно,...

Прошивка для электронного ключа Sentinel
Добрый день. Возникла такая задача. Ко мне попала Lisp программа для прошивки электронного ключа Sentinel. Я в ней разобрался за исключением одного момента. Не могу найти описание Sentinelовской...

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

Записать определение функции F1 на языке программирования Common Lisp
Помогите с сессией! Записать определение функции F1 на языке программирования Common Lisp, которая выполняла бы следующие действия: 1. Выводила сообщение, в котором пользователю предлагалось ввести...

Функция square-digits-sum
Работа программы то правильная,но я должен получать список take и drop я описал,но всё также не работает: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; 1....

Рекурсивные функции, функции высшего порядка, преобразование императивных программ в функциональные
Простые рекурсивные функции для обработки списков: А) (ATOM-LIST x) проверяет, является ли х одноуровневым списком. Б) (WS2 a b x) вставляет в список х новых элементов а пере д...

Длина списка по значению(рекурсия)
Посчитал длину через рекурсию по аргументу, как посчитать через рекурсию по значению? (defun func(list1) (if(null list1) 0 (+ 1 (func(cdr list1))))) (print(func '(fds gfd g...

Функция поиска третьего по величине элемента списка
Здравствуйте! Знаю как найти максимальный элемент списка, но в силу своего недавнего знакомства с LISPом, не получается переделать данную функцию под поиск именно третьего по величине элемента...

Чтение ассоциативных списков
Вот функция ассоциативных списков из файла. Что в ней не так? (defun reader ( ) (setf *Note_book* nil) (with-open-file (store "e:/file.txt" :direction :input) (do ;цикл ;;чтение из файла...

Удаление из списка повторяющихся элементов
Из списка удалить повторяющиеся элементы 1)Через рекурсию 2)Через цикл 3)Список должен быть с подсписками Добавлено через 31 минуту Из списка удалить повторяющиеся элементы 1)Через рекурсию...

Дублировать элемент списка, удовлетворяющий некоторому предикату
Нужно продублировать заданное количество раз каждый элемент списка, удовлетворяющий некоторому предикату. Получилось только вынести в отдельный список нужные элементы и продублировать их отдельно, в...

В списке есть вложенные списки,если все числа во вложенном списке положительные,то вывести сумму этих чисел
есть список ,в нём вложенные подсписки,если во вложенном подсписке все элементы положительные то вывести сумму этих чисел.Например (list 1 2 -1 (3 4 5) -3 4 5) Ответ: (1 2 -1 (12) -3 4 5)

Как узнать величины углов треугольника?
даны координаты 3 точек, необходимо узнать величины углов треугольника с этими вершинами, я знаю как посчитать это через acrsin и arccos, но я не знаю есть ли вообще данные функции в автолиспе,...

Правильная скобочная последовательность
Здравствуйте. Подскажите, пожалуйста, как реализовать рекурсивное решение задачи о проверке правильности скобочной последовательности на Lisp или Sheme. Заранее спасибо.

обратная матрица
Здравствуйте =) Возник такой вопрос: Надо найти обратную матрицу. Я знаю, что обратная матрица находится по формуле: A^-1 = 1 / det A * A(трансп-ю). Помогите пожалуйста

После каждого элемента в списке, поставить его порядковый номер
Добрый день. Дан список вида (a b c d e). После каждого элемента этого списка, нужно поставить его порядковый номер. Список дан один. Так что комбинировать из двух нельзя.

функция импликации
Привет всем Сегодня писали контрольную работу по Ф та ЛП, и там было задание, которое я не смогла решить. Буду благодарна если вы объясните или покажете решение следующей задачи: Определить...

SBCL под Windows. Не создаётся .exe из-под Slime
Когда настраивал SBCL + Emacs + Slime под Винду, сделал простой пример для проверки, который предлагался в статье. (ql:quickload :cffi) (cffi:load-foreign-library "user32.dll") (defun main...

Вложенный Список
Проверить, является ли список списком чисел, или нет Работающий код: (defun check (lst) (cond ((Null lst) "yes" ) ((numberp (car lst))

Кирпич весит килограмм плюс полкирпича. Вопрос: сколько весит кирпич?
Задачка на сообразительность для выявления типа мышления: кирпич весит килограмм плюс полкирпича. Вопрос: сколько весит кирпич? (defun brick (a b) (/ a (- 1 b))) > (brick 1 0.5) 2.0 >...

Продвинутый remove-duplicates
Должно удалять дубликаты на всех уровнях списка. Пробовал сделать, но пока не поддается решению. (1 2 (6 5) 2 3 (5 4)) ==> (1 (6) 2 3 (5 4)) Попытки :) (defun F (l &optional (lst (setof...

написать функцию с одним аргументом – списком. Если функция из п. а) возвращает t, создать список из четырех элементов:
Всем привет! Задание: а) Напишите функцию, единственный аргумент которой является списком. Функция возвращает t только в том случае, если первые два элемента этого списка являются списками. В...

Не могу открыть файл в mulisp
захожу в mulisp.com пишу rds 'c:rc мне в ответ - NIL файл rc.lsp создал, кинул в корневую папку С , но не открывается. Что я делаю не так, помогите!

Линеаризация списка
Подскажите, пожалуйста, как можно реализовать линеаризацию списка произвольного ? То есть список (1 2 (3 4 (5 6))) должен превратиться в (1 2 3 4 5 6).

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

Создать функцию работы с устройствами ввода-вывода: Узнать какая кнопка нажата, вывести код кнопки
Люди помогите сделать задание, а то я lisp не сильно понимаю. Задание: Создать функцию работы с устройствами ввода-вывода: Узнать какая кнопка нажата, вывести код кнопки. Функция должна быть без...

Определить функцию NULL, которая возвращает Т
Доброе утро. Вот такая задача. Определить функцию NULL, которая возвращает Т, если ее аргумент есть пустой список (т.е. NIL), в противном случае возвращается NIL. Спасибо

Удаление повторяющихся элементов в списке, включая подсписки
Добрый день! Поставили дополнительное задание в университете. Необходимо написать функцию, превращающую список во множество. Я написал функцию, удаляющую дубликаты, но поставили дополнительное...

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

Рекурсивный и итерационный методы.
Доброго времени суток. Есть 2 лабы, требующие решения! Помогите, пожалуйста! 1. Выдавать отсортированный в порядке убывания числовой список. Повторы исключать. Пример >(name ‘(1 4 3 5 6))...

Проверить слово на палиндром и почти палиндром
Нужно проверить слово на палиндром и почти палиндром. например: КАЗАК - палиндром МЕЧОМ - почти палиндром

Как установить пакет iterate?
Всю жизнь велосиперничал, но тут захотелось iterate, cffi, tk/tcl - ничего из этого я сделать, пока, не в состоянии. Начал с iterate. Как-то надо установить, например с помощью quicklisp. ...

Дан список, элементы которого — натуральные числа. Умножить каждый элемент на 2
Пожалуйста помогите, решением, я дноо

Расположить на шахматной доске 8 ферзей
Доброго времени суток! Помогите, пожалуйста, с решением: Расположить на шахматной доске 8 ферзей таким образом, чтобы ни один из них не стоял «под ударом» другого. (всего существует 92 способ)...

Написать функцию проверяющую является ли аргумент элементом списка
Написать функцию проверяющую является ли аргумент элементом списка. Аргумент может быть как атомом так и списком. Список могут состоять из списков. Например Аргумент: (1 2 (7)) Список (1 2 2 (1...

Функция: определение высоты бинарного дерева
написать функцию , которая определяет высоту бинарного дерева

Строки: перевод из верхнего регистра в нижний
Как перевести этот код с паскаля на CLISP? Помогите program test; var s:string; i:integer; begin readln(s); for i:=1 to length(s) do if upcase(s)<>s then s:=upcase(s) else s:= Lowercase(s);...

Функция, порождающая список, состоящий из случайных чисел
Реализовать функцию которая порождает по заданному N список, состоящий из N случайных натуральных чисел: Вот мой код: (defun rand (n) (if (= n 1) (random 101) (append ( rand (- n 1) )...

Функция, определяющая функции
Задание: Определите функцию (НАЗОВИ x y), которая определяет функцию с именем, заданным аргументом х, и лямбда-выражением y. Определите с помощью этой функции функцию, вычисляющую сумму квадратов...

Задача из проекта Эйлера № 16
Подсчитать сумму цифр числа 21000 Добавлено через 55 секунд HomeLisp: (apply '+ (explode (^ 2 1000))) ==> 1366

Помогите написать предикат от аргумента-списка, определяющий наличие четных элементов в шестиэлементном число
Помогите написать предикат от аргумента-списка, определяющий наличие четных элементов в шестиэлементном числовом списке.