Lisp Scheme Part18 - 暇つぶし2ch

Lisp Scheme Part18 at TECH

763:デフォルトの名無しさん
07/12/20 21:05:07
>>752

(define (assoc key alist)
　(and alist
　　(let loop ((ls alist))
　　　(if (equal? key (caar ls))
　　　　(car ls)
　　　　　(loop (cdr ls))))))

次ページ

続きを表示

1を表示