Непонятная ошибка в моей программе производной на Common Lisp

@Studi · Регистрация: 14.05.2017

Студворк — интернет-сервис помощи студентам

Мое задание
Написать программу которая берет производную от одной переменной
То что я уже сделала:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
(defun diff( const x)  
      (cond (( atom const)  
                (if (eq const x) 1  ;если просто x возвращаем 1  
                      0))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ; Данный кусок кода не работает и я не понимаю почему
 ; (нужно продифференцировать x возведенный в степень)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Если следующий символ это ^
         (( eq (first const) '^)
        (list '+ ;то пишем +
                  ( list '* (third const) ; третий элемент это число в степень которого мы возводим (умножим на него)
                    (list'^ ;выводим ^
                      (second const) ;выводим x
                       ( (- third 1) third ))))) ; выводим третий элемент  - 1
        
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; Тут он заканчивается
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
; Если следующий символ это +
            (( eq (first const) '+)  
               (list '+  ;то пишем +
                      (diff0  (second const) x)  ; вызываем снова ту же функцию второго символа от  x
                      (diff0  (third  const) x)))   ; вызываем снова ту же функцию третьего символа строки от  x (если + считать 1)
 
; Если следующий символ это *
            (( eq (first const) '*)  
               (list '+  ;то пишем +
                  (list '*  ; затем *
                      (diff0  (second const) x)  ; вызываем снова ту же функцию второго символа от  x
                      (third  const)) ;выводим x
                  (list '*  ; затем еще *
                      (diff0  (third const) x)  ; вызываем снова ту же функцию третьего символа строки от  x
                      (second  const))))  ; второй символ
            (t const))); все другое выводим как есть

Помогите разобраться, объясните что не так

@helter · 14.05.2017, 19:30

(Вообще, я мог бы сразу написать, но давайте делать культурно.)

Пожалуйста, приведите неработающий пример, ожидаемый ответ и текст ошибки.

Ещё тестированию вашего примера не способствует наличие не определённой функции diff0.

@Catstail · 14.05.2017, 19:51

Сообщение от helter

Ещё тестированию вашего примера не способствует наличие не определённой функции diff0.

- это ошибка, она имела в виду diff.

@Studi · 14.05.2017, 20:20 **[ТС]**

helter, простите, что некрасиво написала, уже откомпилировала и разобралась

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
(defun diff( const x)  
      (cond (( atom const)  
                (if (eq const x) 1  ; если просто x возвращаем 1  
                      0))
 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ; Данный кусок кода не работает и я не понимаю почему
 ; (нужно продифференцировать x возведенный в степень)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Если следующий символ это ^
         (( eq (first const) '^)
        (list '+ ;то пишем +
                  ( list '* (third const) ; третий элемент это число в степень которого мы возводим (умножим на него)
                    (list'^ ;выводим ^
                      (second const) ;выводим x
                       (- (third const) 1))))) ; выводим третий элемент  - 1
        
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ; Тут он заканчивается
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
; Если следующий символ это +
 
            (( eq (first const) '+)  
               (list '+  ;то пишем +
                      (diff  (second const) x)  ; вызываем снова ту же функцию второго символа от  x
                      (diff  (third  const) x)))   ; вызываем снова ту же функцию третьего символа строки от  x (если + считать 1)
 
 
; Если следующий символ это *
 
            (( eq (first const) '*)  
               (list '+  ;то пишем +
                  (list '*  ; затем *
                      (diff (second const) x)  ; вызываем снова ту же функцию второго символа от  x
                      (third  const)) ; выводим x
                  (list '*  ; затем еще *
                      (diff  (third const) x)  ; вызываем снова ту же функцию третьего символа строки от  x
                      (second  const))))  ; второй символ
            (t const))); все другое выводим как есть

@helter · 14.05.2017, 21:34

Сообщение от Studi

некрасиво написала

Дело не в этом. Если вы на что-то жалуетесь — пишите сразу, на что конкретно. Хочу, мол, это, а получается то-то, или вылетает такая-то ошибка. А учитывая, что SBCL, например, пишет

Lisp
1
2
3
4
5
Form:
  ((- THIRD 1) THIRD)
Compile-time error:
  illegal function call
   [Condition of type SB-INT:COMPILED-PROGRAM-ERROR]

нетрудно и самостоятельно догадаться, в чём проблема.

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@helter 4528 / 3522 / 358 Регистрация: 12.03.2013 Сообщений: 6,038
	14.05.2017, 19:30
	(Вообще, я мог бы сразу написать, но давайте делать культурно.) Пожалуйста, приведите неработающий пример, ожидаемый ответ и текст ошибки. Ещё тестированию вашего примера не способствует наличие не определённой функции diff0. 0