clj 将字符串 “a,b,c,d“ 转换为 {:A a1 :B b1 :C c1}
(def s "a,b,c,d")(let [vs (str/split s #",")ks (map #(keyword (str/upper-case %)) vs)vs1 (map #(str % 1) vs)](dissoc (zipmap ks vs1) :D))
(def s "a,b,c,d")(let [vs (str/split s #",")ks (map #(keyword (str/upper-case %)) vs)vs1 (map #(str % 1) vs)](dissoc (zipmap ks vs1) :D))