Вопросы с меткой [lisp]
LISP (от англ. LISt Processing language — «язык обработки списков»; современное написание: Lisp) — семейство языков программирования, программы и данные в которых представляются системами линейных списков символов. Создатель Лиспа Джон Маккарти занимался исследованиями в области искусственного интеллекта (в дальнейшем ИИ) и созданный им язык по сию пору является одним из основных средств моделирования различных аспектов ИИ.
70
вопросов
0
голосов
0ответов
18 показов
Написать функцию (racket)
Нужно написать функцию на racket. Есть особая форма until
(until
exp1
...
expn
test)
последовательно вычисляются exp1, . . . , expn, после чего вычисляет значение test. Если оно
ложно, то снова ...
0
голосов
1ответ
31 показ
Опишите функцию, которая из исходного списка формирует список, содержащий только символьные атомы, учитывая элементы подсписков / common lisp [закрыт]
Опишите функцию, которая из исходного списка формирует список, содержащий только символьные атомы, учитывая элементы подсписков. Например,
результатом применения функции к аргументу ’(a 3 (4 b 7 c (4 ...
0
голосов
1ответ
26 показов
Ошибка в коде Lisp
При запуске выявляется ошибка: *** - FUNCALL: аргумент (LAMBDA (X) (< X 0)) - не функция. Как это можно исправить?
`(DEFUN CHANGE (FN L)
(COND
((NULL L) NIL)
((NOT (FUNCALL FN (CAR L)))
...
0
голосов
0ответов
39 показов
*** - SYSTEM::%EXPAND-FORM: (1 1) should be a lambda expression lisp
(defun shag (start sp)
(cond
((prin start sp) nil)
((prin start ‘((1 1) (2 1) (2 2) (2 3) (3 3) (3 4) (4 4) '((1 1) (2 1) (3 1) (4 1) (4 2) (5 2) ( 5 3) (5 4)(4 4))) '((1 2) (1 3) (...
0
голосов
0ответов
32 показа
Список из файла txt в строку с разделителем
Здравствуйте Уважаемые программисты!
Подскажите пожалуйста, как кодом (lisp autocad) считать список из файла txt в переменную setq в виде строки элементов разделенных с помощью ";"?
Пример ...
0
голосов
0ответов
16 показов
Создать в папке файл txt и записать в него данные при условии
Здравствуйте Уважаемые программисты!
Ниже код (Lisp AutoCAD) должен в файл "Paths.txt" вставить значение из переменной "exPath".
Подскажите пожалуйста, как исправить код ниже, ...
1
голос
0ответов
31 показ
Запись настроек Автокада (путей к инструментальным палитрам) в файл txt
Здравствуйте Уважаемые программисты!
Подскажите пожалуйста как кодом (Lisp Autocad2020) выполнить следующее:
Посмотреть какие пути к палитрам в настройках Автокада, т.е. "exPath",
Записать ...
0
голосов
1ответ
37 показов
Переписать код common lisp без eval
Переписать код common lisp без eval:
(setf lst '(a b c) a 1 b 2 c 3)
(mapcar #'eval lst) => (1 2 3))
C `, не получается.
Зачем это надо - есть функция на вход которой подается квотированное ...
1
голос
1ответ
32 показа
Как понять рекурсию Common Lisp?
Вот сама функция копирования списка:
(defun my-copy-list (lst)
(if (atom lst)
lst
(cons (car lst) (my-copy-list (cdr lst)))))
A trace выдает мне такой код:
CL-USER> (our-copy-...
1
голос
1ответ
29 показов
Помогите понять рекурсивную функцию в ANSI Common Lisp
Что-то не могу понять, как работает данная функция из книги ANSI Common Lisp:
(defun our-length (lst)
(if (null lst) ;; когда пустой возвращаем ноль
0
(+ (our-length (cdr lst)) 1))) ;; а ...
2
голоса
1ответ
19 показов
Emacs: как вызвать Лисп функцию из консоли не открывая редактора?
Как вызвать свою функцию из командной строки через редактор Emacs уже знаю, это написано тут, но при этом сам редактор так же открывается и в своем буфере выводит результат функции,
Мне же нужно, ...
0
голосов
0ответов
26 показов
Может ли значение свойства атома в LISP само иметь свойства и можно ли таким образом создать иерархию свойств атомов?
Т.к. в LISP значение свойства атома может являться атомом, то может ли у этого значения свойства быть свое свойство и т.д. рекурсивно? Если да, то можно ли таким образом сделать иерархию хранения ...
0
голосов
0ответов
18 показов
Алгоритм как понять что квадрат находится внутри любой фигуры? (lisp)
Имею все точки заданной фигуры и все точки одного из квадратов. Фигура не обязательно выпукла. Пишу так как не знаю какой алгоритм будет эффективен для любого вида фигур.
Пишу на Lisp в связке с ...
1
голос
2ответа
36 показов
Ошибка в вызове функции
Я начал изучать Lisp по книге Питера Сайбеля, "Практическое использование Common Lisp", создавая по примеру базу данных я столкнулся с проблемой, такой код:
(defvar *db* nil)
(defun dump-db ()
(...
1
голос
0ответов
50 показов
Emacs - предложения минибуфера
Как сделать предложения завершить команду в минибуфере сверху вниз? (А не снизу вверх, как по дефолту)
0
голосов
0ответов
20 показов
Почему выдаёт ошибку?
Напишите выражение, выдающее t если в первом заданном списке элемент с указанным номером является числом, во втором списке элемент с соответствующим номером является атомом, а в третьем списке элемент ...
0
голосов
1ответ
27 показов
Используя функции car и cdr необходимо извлечь из заданных списков элементы с указанными номерами
Используя функции car и cdr необходимо извлечь из заданных списков элементы с указанными номерами. В качестве результата выдайте список составленный из извлеченных элементов.
Списки: (G55 G66 G777), (...
1
голос
1ответ
15 показов
0
голосов
1ответ
84 показа
Проверка попадание точки в штриховку
радиус кругов = 100
длинна сторон квадрата = 400
нужно проверить попадает ли точка в круг: если да то точка в круге, если нет то точка в квадрате
пример моего кода:
(print "Do you get a point in ...
1
голос
1ответ
68 показов
Как правильно брать логарифм?
Пишу лабу на Scheme Lisp. Вариант:
(define (fun z)
(set! z (+(*(/(/ 103 104) e) (- 0 1)) z))
(-(+(*(* 4 log(z)) log(z)) (* 6 log(z))) 5)
)
Ошибка:
application: not a procedure;
expected a ...
-1
голос
1ответ
35 показов
Есть код. Нужно его построчное объяснение [закрыт]
(defun task (lst1 lst2)
(cond ((null lst1) nil)
((member (car lst1) lst2) (task (cdr lst1) lst2))
(t (cons (car lst1) (task (cdr lst1) lst2)))))
2
голоса
1ответ
113 показов
Что такое макросы в Лиспе и чем они прекрасны?
Недавно мне в такой форме наконец таки объяснили ФП. Теперь дело дошло до Лиспа) Можно ли как то быстро объяснить, что такое макросы в Лиспе и чем они прекрасны?
0
голосов
1ответ
44 показа
Решение задачи на Lisp c использованием функционалов
Даны два множества, представленных списками:
(a1 a2 … aN)
(b1 b2 … bМ).
Написать функцию, возвращающую декартово произведение двух множеств:
((a1 b1) (a1 b2) … (а1 bM) (a2 b1) (a2 b2) …...
1
голос
1ответ
66 показов
Роль Femtolisp в Julia
Обнаружила у интерпретатора Julia ключ --lisp, при указании которого первый вместо привычного приглашения выводит:
; _
; |_ _ _ |_ _ | . _ _
; | (-||||_(_)|__|_)|_)
;-------------------|------------...
0
голосов
1ответ
147 показов
Преобразовать одноуровневый список во вложенный lisp
Помогите преобразовать пожалуйста
(defun F (L M)
(cond
((null L) M)
((F (cdr L) (list M (car L))))))
по идее должно быть вот так : (a s d f g) –> (((((a) s) d) f) g)
set и setq ...
0
голосов
1ответ
88 показов
Racket или Scheme найти производную от простой функции
Всем привет!
Мне нужно реализовать функцию на языке Racket, которая вычисляет производную от простых математических выражений с одной переменной. Функция должна принимать 2 аргумента – математическое ...
2
голоса
2ответа
78 показов
Какие есть игровые движки для Scheme/Racket?
Для Racket был найден game-engine, но он не настолько допилен и поддержки физики там никакой, для Scheme в виде Guile есть Chekadee, но у него очень мало документации, может есть еще какие движки? Не ...
1
голос
1ответ
67 показов
Реализовать функцию на scheme(racket), которая возвращает все возможные подмножества заданного множества
Возникла проблема создания функции на языке scheme, которая возвращает все возможные подножества заданного множества, включая нулевое множество.
На вход функция принимает список, например:
(sets-of-...
0
голосов
1ответ
193 показа
Где можно найти качественный компилятор LISP? [закрыт]
Здравствуйте, товарищи! Решил я, значит, на LISP пописать. Язык интересный, весёлый, мощный. Код запускаю при помощи LispWorks. Возник такой вопрос: можно ли где найти компилятор кода LISP в ...
0
голосов
1ответ
162 показа
AutoCAD. ActiveX Server возвратил ошибку: неизвестное имя: EffectiveName
Пытаюсь использовать код взятый здесь http://forum.dwg.ru/showpost.php?p=1099760&postcount=6
Наткнулся на странное поведение. Если в файле есть автокадовская таблица, то появляется ошибка "...
0
голосов
0ответов
46 показов
Через dolist найти сумму отрицательных чисел возведенную в квадрат
Как через dolist найти сумму отрицательных чисел возведенную в квадрат?
Нашел сумму
(defun sum (lat)
(cond ((null lat) 0)
((listp (car lat)) (+ (sum (car lat))
...
1
голос
1ответ
49 показов
Количество чисел в списке кратных трем
Находит просто количество чисел кратных трем, как сделать, чтобы если ввведен символ, то его пропускало? Проверка на numberp, но куда ее вставить? Куда ни вставлю, не работает. Код, который я теперь ...
1
голос
0ответов
16 показов
подсчитать количество символов в списке (список может сожержать символы строки и цифры)
есть такое решение
(defun num-atoms (lst)
(count-if #'atom lst))
При вызове
(num-atoms '(a 2 bc))
считает bc как 1 символ и выдает результат "3", кто может помочь переделать таким образом, ...
0
голосов
1ответ
28 показов
LISP программа.Где ошибка в коде?
ОС: Windows 7, LISP: Common LISP 2.6.7.
Пытаюсь выполнить вот этот код: (defun summa-digits (n)
(if (eq n 0) 0
(+ (rem n 10) (summa-digits (truncate (/ n 10))))
))
Получаю вот эту ошибку:...
1
голос
0ответов
109 показов
Парсер lisp на lisp
Здравствуйте! Решил написать компилятор racket (диалект lisp) на racket, для того, чтобы легко можно было проверить его полноценность (компилирует сам себя - все хорошо, нет - нужно пилить дальше). До ...
29
голосов
0ответов
378 показов
Как правильнее сделать виртуальную машину для Lisp?
Сейчас пишу компилятор для маленького лиспа, все работает так, как нужно, но хочется узнать, как это реализовать правильнее.
На данный момент, такой вот код:
(defun (fact n)
(if-else (> n 1)
...
1
голос
1ответ
98 показов
Чистота Haskell и функциональное программирование
Интересует функциональная парадигма, и вот даже немного Scheme пробую. Но вот встал такой вопрос. В Haskell с помощью IO можно реализовывать императивное поведение. Тогда не понятно, насколько он чист....
2
голоса
1ответ
50 показов
Внутренние определения должны быть в начале тела процедуры
Цитата из SICP:
Внутренние определения должны быть в начале тела процедуры. За последствия запуска программ, перемешивающих определения и их использование, администрация ответственности не несет.
...
0
голосов
1ответ
31 показ
MIT/GNU Scheme: Ill-formed clause
(define (u13 x y z)
(+
(square (cond
((and (> x y) (> x z))) x)
((and (> y x) (> y z))) y)
(else z))
(square (cond
((and (> x y) (< x z))) x)
...
0
голосов
2ответа
66 показов
Проблемы с кодом (ANSI Common Lisp)
Выше скриншот из книги "ANSI Common Lisp".
Пару вопросов:
Почему корректно не работает данный код? Использую Common Lisp (SBCL). По задумке автора программа сначала выводит текст (Please enter a ...
0
голосов
1ответ
1k показов
Проверить принадлежность точки заштрихованной области
Здравствуйте, снова я. Задача в общем такая: нужно считать с файла точки и проверить, находится ли каждая точка в заштрихованной области. Реализовать в AutoLISP.
Так вот, написать на AutoLISP не ...
0
голосов
2ответа
93 показа
Точка соприкосновения двух отрезков
Здравствуйте.
Нужно найти точку, которая расположена на расстоянии a от точки A и от точки B на расстоянии b.
Я так понял, что нужно сначала ввести данные(A, a, B, b). Только вот что дальше делать - ...
0
голосов
1ответ
21 показ
Результат expt равен 1.0
Здравствуйте. В autolisp требуется вычислить уравнение:
Я написал небольшую функцию:
(defun func (a b x)
(expt (+ a (- b (/ (cos x) (sin x)))) (/ 1 (abs x)))
)
В результате выполнения (func 1 2 3)...
0
голосов
1ответ
33 показа
Определить собственную функцию и передать её в стандартную функцию apply
Задание такое: в зависимости от переданного значения функции, с помощью apply выполнить либо сложение элементов списка, либо умножение элементов списка.
т.е.
apply func(x) '(1 2 3 4)
если x = 1, то ...
0
голосов
1ответ
51 показ
Построить Scheme-функцию, ПОСЛЕДНИЙ (Х), которая выдает как результат последний элемент списка Х
Или я не то делаю, или оно не работает)
(define ln (lambda (list) (cond
((eq? list () 0)
(#t (+ (ln (cdr list)) 1))
))))
5
голосов
3ответа
298 показов
Интерпретатор Scheme для линукса
Посоветуйте интерпретатор Scheme для линукса. Хочу, чтобы он был с REPL, с возможностью вернуться стрелкой вверх к предыдущему выражению и отредактировать в нем любое место, а не только последнюю ...
0
голосов
2ответа
103 показа
Emacs: установка закрывающей скобки на уровне определения функции или класса
К примеру, в классе тест при во вложенной функции скобка не переноситься к её определению. Как добавить данную фичу?
Для авто добавления закрывающей скобки использую electric pair mode;
class test{
...
5
голосов
1ответ
132 показа
Условный оператор if на Clojure
Здравствуйте! Ещё в самом начале изучения Clojure. Подскажите пожалуйста.
У меня есть clojure-проект. Я использую шаблонизатор hiccup и стили Bootstrap. Всё работает. Но вот только не понимаю как ...
0
голосов
1ответ
49 показов
При запуске одной и той же программы, разные результаты построения поверхности
Не могу понять, пробовал обнулять mas и lin, но не работает(а иногда и правильно строит).
Если строить по отдельности то все корректно.
;///////////////////////////////////////////////////////////...
3
голоса
1ответ
147 показов
Глубина иерархического списка, заданного S-выражением [закрыт]
Как вычислить глубину иерархического списка, заданного S-выражением, основываясь на анализе числа одновременно открытых левых скобок? Например, глубина списка (a(b(c)d)e) будет равна 2, (a(b(c.d)e)(k....