[英]update two value at the same time in clojure
我想知道如何同时更新两个值。 例如,我想同时增加月份并降低年龄。 我的代码是
user=>(def users {:month 1 :age 26})
user=>(update-in users [:month :age] inc dec)
我知道此语法不正确,但是如何解决呢? 而且我需要同时更新。 由于如果我先更新月份然后更新年龄,那么当我更新第二张地图时,第一张地图将丢失。 还是有其他方法可以解决这个问题?
update
不会修改值,它只会返回一个新值,因此它只是一个函数。 如果您需要更新地图的2个字段,则直接进行此操作的直接方法是两次调用update
,首先在原始地图上,然后在第一次更新的结果上:
(defn update-month-and-age [user]
(update (update user :month inc) :age dec))
使用->
看起来更好
(defn update-month-and-age [user]
(-> user
(update :month inc)
(update :age dec)))
在这种简单的情况下(没有附加参数的更新功能),您也可以这样做:
user> (def users {:month 1 :age 26 :records [1 2 3]})
#'user/users
user> (reduce-kv update users {:month inc :age dec :records reverse})
{:month 2, :age 25, :records (3 2 1)}
再加上其他参数,将会更加冗长:
user> (reduce-kv (partial apply update)
users
{:month [+ 2] :age [dec] :records [conj 101]})
{:month 3, :age 25, :records [1 2 3 101]}
好吧,比简单使用线程宏还要糟糕。
我很想通过编写一个采用map:keyword-> function的函数来解决这个问题,结果是将所有函数应用于相关记录/地图条目的函数。
这样的功能是
(defn field-updater [fn-map]
(fn [record]
(reduce
(fn [m [k f]] (assoc m k (f (m k))))
record
fn-map)))
我们使用它来生成您所需的字段更新程序:
(def update-in-users (field-updater {:month inc :age dec}))
...然后我们可以申请
(update-in-users users)
;{:month 2, :age 25}
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.