SICP 2.54 符号列表equal?

来源:互联网 发布:淘宝优惠券群是真的吗 编辑:程序博客网 时间:2024/05/18 11:50
(define (equal? x y)  (cond((and (pair? x) (pair? y))        (and(equal? (car x) (car y))(equal? (cdr x)(cdr y))))       ((and (not (pair? x)) (not (pair? y)))        (eq? x y))       (else false)))(equal? '(a b c d) '(a b c d))

原创粉丝点击