Lisp

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

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Lisp Вычислить значение полинома Эрмита https://www.cyberforum.ru/ lisp/ thread2358407.html Ребята, помогите написать код по LISP. Задание: Вычислить значение полинома Ермита. Вот решил эту задачку на SWI Prolog, может кому поможет ermit(0, _, 1). ermit(1, X, H) :- H is 2 * X. ermit(N, X, Hn) :-	Исключить из данного списка такой элемент, чтобы сумма элементов, которые остались, была равна 10 Lisp Здравствуйте, не дружу с Лиспом, нужна помощь в решении задачи. Задание: Исключить из данного списка такой элемент, чтобы сумма элементов, которые остались, была равна 10. . Вот есть код SWI Prolog. del_rest(Xs, Sum, X, Ys) :- select1(X, Xs, Ys), sum_list1(Ys, Sum).
Lisp Вычисление интеграла по формуле Симпсона Здравствуйте, Столкнулся с упражнением в книге "Структура и интерпретация компьютерных программ" написать код для вычисления интеграла от x3 по формуле Симпсона: Написал следующий код: ;; процедура, определяющая вычисление интеграла Симпсона (define (simpson f a b n) (define (arg+ x) (+ x (/ (- b a) n))) (define (f x) (cube x)) (* (sum f a arg+ b) (/ (/ (- b a) n) 3))) https://www.cyberforum.ru/ lisp/ thread2358164.html	Lisp Поиск в дереве Здравствуйте! Пишу функцию поиска элемента в дереве. Вот что получилось: (defun searh (x lists) (cond ((null lists) nil) ((eql x (car lists)) (car lists)) (t (cond((< x (car lists)) (searh x (cadr lists))) (t (searh x (cddr lists))))) https://www.cyberforum.ru/ lisp/ thread2358148.html
Функция square-digits-sum Lisp Работа программы то правильная,но я должен получать список take и drop я описал,но всё также не работает: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; 1. блок для реализации отложенных вычислений ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; макрос, создающий обещание (thunk из выражения expr) (defmacro delay...	Lisp Normalize https://www.cyberforum.ru/ lisp/ thread2357357.html Функции для normalize : +-normalize , sqrt-normalize , sin-normalize. Каждой функции передается выражение, представляющее корректный вызов соответствующей функции. Нормализация будет заключаться в унификации количества аргументов функции и нормализации аргументов: (+-normalize expr) : Если expr — вызов функции + без аргументов, то нормализованным выражением должен быть ноль — 0 . Если expr —...
Lisp Поиск ошибки в коде (на Scheme) https://www.cyberforum.ru/ lisp/ thread2357327.html Где тут у меня ошибка в коде? Программа выдает не то, что нужно. Код Scheme. Вот задание: Реализуйте процедуру (string-split str sep), возвращающую список подстрок строки str, разделенных в строке str разделителями sep, где sep — непустая строка. Т.е. процедура (string-split str sep) должна разбивать строку на подстроки по строке-разделителю sep. Рекомендуется преобразовывать входные строки к...	Lisp Рациональные функции и многочлены Написать программу, которая умножает и делит рациональные функции, которые подаются дробями, числитель и знаменатель являются многочленами, например: (х + 1) / (x3 + 1)
Lisp Перевести код функции SquareDigitsSum (Haskell -> Lisp) https://www.cyberforum.ru/ lisp/ thread2357141.html Никак не получается переписать функцию SquareDigitsSum с Haskell на Lisp( На Haskell функция рабочая Вот что получилось: squareDigitsSum y = y : (squareDigitsSum z) where z = dopFunction (y * y) dopFunction x = if (x < 10) then x else (x `mod` 10) + dopFunction (x `div` 10)	Lisp Произведение https://www.cyberforum.ru/ lisp/ thread2357089.html Выражение для суммы: y(N)=\prod_{i=-2}^{N+1}\prod_{j=2}^{N+3}(i+1/j) (defun y (n) (let ((i -2) ; параметр суммы (j 2) ; параметр произведения (декларация) (prod)) ; аккумулятор для произведения (декларация) ;; функция для выражения, вычисляемого в цикле
Проверка правильности записи числа римскими цифрами Lisp На форуме предлагались решения, но они неверны, поэтому прошу помощи. На википедии есть регулярка для проверки: ^(M{0,3})(D?C{0,3}\|C)(L?X{0,3}\|X)(V?I{0,3}\|I)$ может быть кто-то сможет переписать ее на лисп? Для представления римских цифр используются символы: I - один, V - пять, X -десять, L - пятьдесят. С - сто, D - пятьсот, М - тысяча. Для изображения числа с помощью римских цифр...	Lisp Где ошибка? (Задача в Scheme) Реализуйте процедуру memoized-factorial для вычисления факториала по рекурсивной формуле с мемоизацией результатов вычислений. Для мемоизации используйте ассоциативный список (словарь), который храните в статической переменной. Использовать для этой цели глобальную переменную запрещается. ГДЕ тут ошибка? (define memoized-factorial (let ((memo '())) (lambda (n) (let ((computed... https://www.cyberforum.ru/ lisp/ thread2356752.html

_sg

4699 / 4394 / 380

Регистрация: 12.05.2012

Сообщений: 3,096

11.12.2018, 15:55

Замена obj1 на obj2 во всех вложениях списка - Lisp - Ответ 13146745

11.12.2018, 15:55. Показов 1851. Ответов 7

Метки (Все метки)

Ответ

Lisp

(defun change (w e z)
  (cond ((null w) nil)
        ((listp (car w)) (cons (change (car w) e z)
                               (change (cdr w) e z)))
        ((eql (car w) e) (cons z (change (cdr w) e z)))
        ((cons (car w) (change (cdr w) e z)))))
 
> (change '((a) b ((c) a) b (c)) 'c 'd)
((A) B ((D) A) B (D))

Добавлено через 3 минуты

Lisp

(defun change (w e z)
  (cond ((null w) nil)
        ((atom (car w))
         (cond ((eql (car w) e) (cons z (change (cdr w) e z)))
               ((cons (car w) (change (cdr w) e z)))))
        ((cons (change (car w) e z) (change (cdr w) e z)))))
 
> (change '((a) b ((c) a) b (c)) 'c 'd)
((A) B ((D) A) B (D))

Добавлено через 7 часов 10 минут

Lisp

(defun change (w e z)
  (cond ((null w) nil)
        ((cons (cond ((atom (car w))
                      (cond ((eql (car w) e) z)
                            ((car w))))
                     ((change (car w) e z)))
               (change (cdr w) e z)))))
 
> (change '((a) b ((c) a) b (c)) 'c 'd)
((A) B ((D) A) B (D))

Вернуться к обсуждению:
Замена obj1 на obj2 во всех вложениях списка Lisp

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

11.12.2018, 15:55

Готовые ответы и решения:

Заменить в списке все вхождения obj1 на obj2
И вот эта задача с применением локальных определений LAMDA и LET : Есть список lst и два...

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

Укажите верные ответы (во вложениях)

найдите ошибку,задание во вложениях
program ss; uses crt var a,x,y,z,E:real; n,s:integer; begin clrscr; write('x=');...

	11.12.2018, 15:55

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

11.12.2018, 15:55

Помогаю со студенческими работами здесь

Как это записать в паскале? (5 файлов во вложениях)
Помогите плз

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

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

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

Наверх