sicp excercise 2.54

最新推荐文章于 2020-01-10 15:43:31 发布

Cheky_

最新推荐文章于 2020-01-10 15:43:31 发布

阅读量288

点赞数

分类专栏： sicp-code

本文链接：https://blog.csdn.net/Cheky_/article/details/8455794

版权

sicp-code 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

(define (equal? x y)
  (cond ((and (null? x) (null? y)) true)
        ((and (not (pair? x)) (not (pair? y))) (eq? x y))
        ((and (pair? x) (pair? y)
              (equal? (car x) (car y))
              (equal? (cdr x) (cdr y)))
         true)
        (else false)))

  (equal? '(this is a list) '(this is a list))
  (equal? '(this is a list) '(this (is a) list))
  (equal? '(1 2 3 (4 5) 6) '(1 2 3 (4 5) 6))
  (equal? '(1 2 3 (4 5) 6) '(1 2 3 (4 5 7) 6))