Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

19 lines (13 sloc) 0.518 kb
(define (my-equal? a b)
(if (and (pair? a) (pair? b))
  (and (my-equal? (car a) (car b))
     (my-equal? (cdr a) (cdr b)))
  (eq? a b)))
(my-equal? '(this is a list) '(this is a list)) ; true
(my-equal? '(this is a list) '(this (is a) list)) ; false
(my-equal? 'e 'r) ; false
(my-equal? 'w 'w) ; true
(my-equal? 7 12) ; false
(my-equal? 3 +3) ; true
(my-equal? '(23 4 (5 (72)) (14)) '(23 4 (5 (72)) (14))) ; true
(my-equal? '(23 4 (5 (70)) (14)) '(23 4 (5 (72)) (14))) ; false
Jump to Line
Something went wrong with that request. Please try again.