чтобы со вложенными alist-ами удобно работать?
чтобы можно было делоть типа (yoba-get-in '((a (b . 1))) '(a b)) or smth ; ХОЧУ КЛОЖУ
Без test и default это проще написать чем либу искать: (defun flip (f) (lambda (x y) (funcall f y x))) (defun fold (f x list) (cl-reduce f list :initial-value x)) (defun alist-get-in (path alist) (fold (flip #'alist-get) alist path)) (alist-get-in '(a b c) '((a (_) (b (c . value))))) ;; => value но без test и default это малополезно
Обсуждают сегодня