連想リスト

復習中心

>(setq al nil)
nil
>(setq al (acons 0 'zero al))
((0 . zero))
>(push '(1 . one) al)
((1 . one) (0 . zero))
>(setq al (acons 2 'two al))
((2 . two) (1 . one) (0 . zero))

>(assoc 1 al)
(1 . one)
>(rassoc 'zero al)
(0 . zero)
>(assoc-if #'evenp al)
(2 . two)
>(assoc-if-not #'oddp al)
(2 . two)
>(rassoc-if #'(lambda (x) (= 4 (length (write-to-string x)))) al)
(0 . zero)