07/12/20 04:05:38
(define assoc
(lambda (key alist)
(cond ((null? alist)
#f)
((equal? key (caar alist)))
(car alist))
(else
(assoc key (cdr alist))))))
07/12/20 04:05:38
(define assoc
(lambda (key alist)
(cond ((null? alist)
#f)
((equal? key (caar alist)))
(car alist))
(else
(assoc key (cdr alist))))))