Выполнение функции, которая передает свои аргументы, как: ключи к другой функции

Question

У меня есть функция, которая принимает следующий вид

(defn foo [& {:keys [x y z]}] 
    ...) 

И я хочу, чтобы создать функцию, которая принимает только ключи у и г, но всегда дает x такое же значение. Я мог бы написать это

(defn bar [& {:keys [y z]}] 
    (foo :x "blah" :y y :z z)) 

Моя единственная проблема в том, что я должен повторить {: ключи ...} снова бит, и фактическая функция Foo имеет гораздо больше ключей, которые могут измениться в будущем. Есть ли способ заставить бар принять любые пары ключ-значение и просто передать их все в foo, удостоверившись, что x остается неизменным?

Answer 1

Это работает и отменяет любое :x значения, передаваемое bar:

(defn foo [& {:keys [ x y ]}] 
    [x y]) 

(defn bar [ & args ] 
    (apply foo (concat args [:x "blah"]))) 

Answer 2

При использовании амперсанда (&) вы объявляете VARIADIC функции. Возможно, вам не нужна ваша функция, чтобы быть вариационной. Вы можете просто сделать это:

(defn foo [{:keys [x y z]}] 
    [x y z]) 

(defn bar [{:keys [y z] :as args}] 
    (foo (assoc args :x "blah"))) 

И вы будете называть bar с картой, как это: (bar {:y 20 :z 10}). Если вам действительно нужно bar быть VARIADIC функции, вы можете просто сделать это (foo тем же сверху):

(defn bar [& {:keys [y z] :as args}] 
    (foo (assoc args :x "blah")) 

И вы будете продолжать называть bar так: (bar :y 10 :z 20). Вы также можете сделать foo variadic, но вам придется воссоздать список аргументов сами с чем-то вроде (flatten (map list (keys args) (vals args)))).

Answer 3

(defn bar [& {:keys [y z] :as args}] 
    (apply foo (apply concat (assoc args :x "blah"))))