(define (deriv exp var) (cond ((number? exp) 0) ((variable? exp) (if (same-variable? exp var) 1 0)) ((sum? exp) (make-sum (deriv (addend exp) var) (deriv (augend exp) var))) ((product? exp) (make-sum (make-product (multiplier exp) (deriv (…

''abracadabraは'abracadabraを返す． (car ''abracadabra)はquoteを返す． (cdr ''abracadabra)は(abracadabra)を返す． つまり'abracadabraは(quote abracadabra)のことで， ''abracadabraは'(quote abracadabra)のことである． そのため(car ''abracadabr…

(define (equal? a b) (or (and (not (pair? a)) (not (pair? b)) (eq? a b)) (and (pair? a) (pair? b) (equal? (car a) (car b)) (equal? (cdr a) (cdr b))))) gosh> (equal? '(this is a list) '(this is a list)) #t gosh> (equal? '(this is a list) '(…

(list 'a 'b 'c) (a b c) (list (list 'george)) ((george)) (cdr '((x1 x2) (y1 y2))) ((y1 y2)) (cadr '((x1 x2) (y1 y2))) (y1 y2) (pair? (car '(a short list))) #f (memq 'red '((red shoes) (blue socks))) #f (memq 'red '(red shoes blue socks)) (…