Lisp Scheme Part18
at TECH
793:デフォルトの名無しさん
07/12/22 01:33:19
>>763
(define (assoc key alist)
(and (pair? alist)
(let loop ((ls alist))
(if (equal? key (caar ls))
(car ls)
(loop (cdr ls))))))
次ページ続きを表示1を表示最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
5084日前に更新/189 KB
担当:undef