- 765 名前：デフォルトの名無しさん mailto:sage [2007/12/20(木) 22:08:20 ]
- >>749さんのは動かなかったので修正しておきました。
(define assoc
(lambda (key alist)
(cond
((null? alist) #f)
((equal? key (car (car alist))) (car alist))
(else (assoc key (cdr alist))))))
>>752さんのも動かなかったので修正しておきました。
(define assoc
(lambda (key alist)
(cond
((null? alist) #f)
((equal? key (caar alist)) (car alist))
(else (assoc key (cdr alist))))))
>>763さんのは動きました。loopの使い方がｲｲ感じですね。
