|
|
| Другие темы раздела | |
|
Lisp Макрос в Racket
https://www.cyberforum.ru/ lisp/ thread1291487.html В макросе определить - есть или нет определение для указанного имени функции. Ниже - концепт - для вызова (compile-stmt (syntax 'Root)) по идее первая строчка должна сообщить что simple-Root уже определена. Но что-то у меня не получается. Подскажите что делаю не так? (define (simple-Root args) #t |
Lisp Определить функцию (f a n), которая от 2-х числ.аргументов вычисляет a+a*(a+1)+a*(a+1)*(a+2)+.+a*(a+1)*.*(a+n) Здравствуйте. Задали задание: Определите функцию (f a n), которая от двух числовых аргументов вычисляет величину a+a*(a+1)+a*(a+1)*(a+2)+...+a*(a+1)*...*(a+n). Для программирования использовать локальные или вспомогательные функции. Не могу с ним разобраться. Выдает ошибку: misplaced right paren. Помогите. (defun f(a n) (step_1 a n (* a (+ a 1))) ) (defun step_1(a n aa2) (step_2 (+... |
|
Lisp Помогите определить максимальную глубину вхождения элемента A в список L хвостовой рекурсией
https://www.cyberforum.ru/ lisp/ thread1289933.html Условие задачи: Для списка L и элемента A вычислить максимальную глубину вхождения элемента A в список L. (defun F (L A) (cond ((null L) NIL) ;; если элемент A отсутствует в списке, то NIL ((equal L A) 0) ;; если A и список L одинаковы, то 0 ((atom L) NIL) (T |
Lisp Хвостовая рекурсия
https://www.cyberforum.ru/ lisp/ thread1289863.html Помогите переписать задачу. Нужно чтобы решение было с хвостовой рекурсией: (defun y (N) (labels ((ij-func (i j) (+ (/ i j) (/ (* i i) 2))) (y-iter (i j prod sum) (cond ((> i N) sum) ((> j N) (y-iter (+ i 1) 1 1 (+ sum prod))) (T (y-iter i (+ j 1) (* prod (ij-func i j)) sum))))) (y-iter 1 1 1 0))) |
|
Прошивка для электронного ключа Sentinel Lisp Добрый день. Возникла такая задача. Ко мне попала Lisp программа для прошивки электронного ключа Sentinel. Я в ней разобрался за исключением одного момента. Не могу найти описание Sentinelовской функции sproWrite. Ее запись в Lisp выглядит следующим образом: (sproWrite "R17G" "11" "9527" 0) Если кто знает объясните пожалуйста, что обозначает "R17G" "11" "9527" 0. Насколько я понимаю... |
Lisp Обход конём шахматной доски с возвращением
https://www.cyberforum.ru/ lisp/ thread1289083.html Помогите исправить программу на CLISP-е Программа генерирует ходы коня из исходного положения (4 4) в него же, при этом нужно обойти все остальные поля. Не получается вернуться в исходное положение: (setq steps 0) (setq visited-list ()) ; ======================================================================================= ; создание списка всех возможных ходов для фигуры ; Важно!... |
| Lisp Lisp. Рекурсивные выражения Здравствуйте! Нужно подсчитать выражение: (defun y (N) (labels ((ij-func (i j) (+ (/ (log i 10) (log j 10)))) (y-iter (i j prod sum) (cond ((> i N) sum) ((> j N) (y-iter (+ i 1) 1 1 (+ sum prod))) (T (y-iter i (+ j 1) (* prod (ij-func i j)) sum))))) https://www.cyberforum.ru/ lisp/ thread1288730.html |
Сравнение Common Lisp и Scheme Lisp Давно присматриваюсь к языкам-диалектам LISP, пока, увы, только теоретически :pardon: Но всё же, всегда хотел услышать разумную сравнительную оценку двух главных жизнеспособных потомков - Common Lisp и Scheme. У какого какие преимущества? Какие недостатки? Актуальность того и другого? Заранее спасибо P.S. Только умоляю без холиваров... :D Не будем уподобляться всем тем форумам и блогам,... |
|
Lisp Как работают lambda выражения?
https://www.cyberforum.ru/ lisp/ thread1288423.html Можете объяснить как работает функция lambda? у меня вот такая часть задачи: (lambda (car(L) cdr(L)) (cond (----------))) Или подскажите как правильно составить такую конструкцию? |
Lisp Полезные коды и авторские программы на Lisp
https://www.cyberforum.ru/ lisp/ thread1288147.html Расскажите, пожалуйста, что на лиспе пишите? вкратце, хотя бы. Очень интересно. Понятно, что студенты пишут лабы, но вот все остальные, чем занимаются? Сам пока ничего не пишу, а учу язык, но есть задумки написать веб-сервер для парсинга отчетов от АТС-ки. Заходит админ на него и смотрит кто куда и во сколько звонил по офису, статистика всякая там и прочее. В общем не стесняйтесь,... |
|
Взаимная рекурсия и labels Lisp Добрый день! Воопрос такой: например, у меня есть две функции вычисляющие формулу рекурсивно. и записаны они так: (defun f-one (N X) (cond ( --------- // -------) (defun f-two (N Y) (cond ( ---------//---------) |
Lisp Задача о сборке кубика Рубика размера 2 x 2 x 2
https://www.cyberforum.ru/ lisp/ thread1287589.html Реализовать алгоритм решения задачи о сборке кубика Рубика размера 2 x 2 x 2. |
 5828 / 3479 / 358
Регистрация: 08.02.2010
Сообщений: 7,448
|
|
| 07.11.2014, 17:56 | 0 |
ООП Common Lisp - Lisp - Ответ 681928407.11.2014, 17:56. Показов 2678. Ответов 11
Метки (Все метки)
Ответ
1
|
|
Сообщение от helter
| 07.11.2014, 17:56 | |
|
Готовые ответы и решения:
11
Книги или другой источник, где описана история версий Lisp и Common Lisp Common lisp Common lisp Common Lisp |
| 07.11.2014, 17:56 | |
| 07.11.2014, 17:56 | |
|
Помогаю со студенческими работами здесь
0
Вопрос по common lisp
|
Наверх