[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
판권 성명: 본고는 NoMaspco 우왕의 오리지널 문장으로 허가 없이 전재 금지!내 블로그에 오신 것을 환영합니다.http://blog.csdn.net/nomasp