- 724 名前：デフォルトの名無しさん mailto:sage [2007/12/15(土) 19:19:45 ]
- >>718
assqの実装は大体こんな感じになっている。
(defun assq (key alist)
(cond
((null alist) nil)
((eq key (car (car alist))) (car alist))
(t (assq key (cdr alist)))))
assocならこう
(defun assoc (key alist)
(cond
((null alist) nil)
((equal key (car (car alist))) (car alist))
(t (assq key (cdr alist)))))
>>724が言うようにeqlや=やstring=を使えば用途に応じて高速なものが使える。
