2.55 : ‘被替换成了(quote)
(define (memq item x)
(cond ((null? x) false)
((eq? item (car x)) x)
(else (memq item (cdr x)))))
(newline)
(display (list 'a 'b 'c))
(newline)
(display (list (list 'georage)))
(newline)
(display (cdr '((x1 x2) (y1 y2))))
(newline)
(display (cadr '((x1 x2) (y1 y2))))
(newline)
(display (pair? (car '(a short list))))
(newline)
(display (memq 'red '((red shoes) (blue socks))))
(newline)
(display (memq 'red '(red shoes blue socks)))
(define (equal-a? a b)
(cond ((and (null? a) (null? b)) #t)
((or (null? a) (null? b)) #f)
((and (pair? (car a)) (pair? (car b)))
(if (equal-a? (car a) (car b)) (equal-a? (cdr a) (cdr b)) #f))
((not (or (pair? (car a)) (pair? (car b))))
(if (eq? (car a) (car b)) (equal-a? (cdr a) (cdr b)) #f))
(else #f)))
(newline)
(display (equal-a? '(this is a list) '(this is a list)))
(newline)
(display (equal-a? '(this (is a) list) '(this (is a) list)))
(newline)
(display (car ''abracadabra))
(newline)
(display (car (quote (quote abracadabra))))