blob: 4e194409a925394c91119e57f7f9e1e434129e43 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
(define (is-elem-assoc-list key assoc-list)
(cond
[(null? assoc-list) #f]
[(eq? key (caar assoc-list)) #t]
[else (lookup-assoc-list key (cdr assoc-list))]))
(define (lookup-assoc-list key assoc-list)
(cond
[(null? assoc-list) #f]
[(eq? key (caar assoc-list)) (cdar assoc-list)]
[else (lookup-assoc-list key (cdr assoc-list))]))
|