8 lines
No EOL
226 B
Scheme
8 lines
No EOL
226 B
Scheme
#lang sicp
|
|
|
|
(define (equal? a b)
|
|
(cond ((and (pair? a) (pair? b))
|
|
(and (equal? (car a) (car b)) (equal? (cdr a) (cdr b))))
|
|
((and (not (pair? a)) (not (pair? b)))
|
|
(and (eq? a b)))
|
|
(else #f))) |