【SICP练习】82 练习2.54

简介:

这些关于Scheme的基本知识在【Scheme归纳】系列博文总都有介绍。

(define (equal? x y)
     (cond ((and (symbol? x) (symbol? y))  
             (symbol-equal? x y))
            ((and (list? x) (list? y))
             (list-equal? x y))
            (else 
             (error “Error: You just input wrong type.”))
(define (symbol-equal? x y)
(eq? x y))
(define (list-equal? x y)
(cond ((and (null? x) (null? y)) #t)
       ((or (null? x) (null? y)) #f)
       ((equal? (car x) (car y)) (equal? (cdr x) (cdr y)))
       (else #f)))

在倒数第二行中运用了递归。



感谢访问,希望对您有所帮助。 欢迎关注或收藏、评论或点赞。


为使本文得到斧正和提问,转载请注明出处:
http://blog.csdn.net/nomasp


目录
相关文章