Lisp Scheme Part18 - 暇つぶし2ch

Lisp Scheme Part18 ..

749:デフォルトの名無しさん
07/12/20 00:22:39
>>728
Scheme版ならこんな感じ。

(define assoc
(lambda (key alist)
(cond ((null alist) nil)
((equal key (car (car alist))) (car alist))
(else (assoc key (cdr alist))))))

lambdaとelseを使ってみた。

次ページ