clojure解构（clojure destructuring）

【转】http://rritw.com/a/JAVAbiancheng/JAVAzonghe/20130615/370731.html

由于在clojure中如果只靠一些集合到操作函数如first、last、nth等函数，不能够简洁的获取一些嵌套集合中的元素，所以需要destructuring来使我们可以简洁快速的去获取集合中的元素。

由于在clojure中如果只靠一些集合到操作函数如first、last、nth等函数，不能够简洁的获取一些嵌套集合中的元素，所以需要destructuring来使我们可以简洁快速的去获取集合中的元素。 clojure支持的结构有：有顺序集合(sequential collection)的解构和map的解构。

 一、Sequential destructuring 有序集合包括：clojure的list，vector以及sequence。所有实现java.util.List接口的集合：java数组、字符串 

1、根据位置对应来解构

(def v [42 "foo" 99.2 [5 12]])(let [[xyz] v]  (+ xz));= 141.2;;使用下划线占位(let [[x _ _ [yz]] v]   (+ xyz));= 59

2、收集剩余的元素(Gathering extra-positional sequential values​​) 

;;使用&来收集(let [[x & rest] v]   rest);= ("foo" 99.2 [5 12])

3、保留解构的值（retaining the destructured value） 

;;使用as来保留解构的值(let [[x _ z :as original-vector] v]   (conj original-vector (+ xz)));= [42 "foo" 99.2 [5 12] 141.2]

二、Map destructuring 可以进行map解构的类型有：   clojure hash-map，array-map，record。   所有实现java.util.Map接口的集合   支持get函数获取相应值的对象，如：clojure vector，string，array1、位置对应来解构 

(def m {:a 5 :b 6         :c [7 8 9]         :d {:e 10 :f 11}        "foo" 88        42 false});;注意：这里key不单是:key类型，也可以是其他类型(let [{a :ab :b} m]   (+ ab));= 11;;注意：如果是数组、字符串或vector，解构的key是下标(let [{x 3 y 8} [12 0 0 -18 44 6 0 0 1]]   (+ xy));= -17;;顺序解构和map解构混合(let [{[x _ y] :c} m]   (+ xy));= 16(def map-in-vector ["James" {:birthday (java.util.Date. 73 1 6)}]);= #'user/map-in-vector(let [[name {bd :birthday}] map-in-vector]  (str name " was born on " bd));= "James was born on Thu Feb 06 00:00:00 EST 1973"

2、保留解构的值（retaining the destructured value） 
和顺序解构一样用as来保存。 

(let [{r1 :x r2 :y :as randoms}       (zipmap [:x :y :z] (repeatedly (partial rand-int 10)))](assoc randoms :sum (+ r1 r2)));= {:sum 17, :z 3, :y 8, :x 9}

3、默认值(Default values​​) 

(let [k :unkown x :a        :or {k 50}       m]  (+ kx));;= 55     

4、绑定值到对应的key上(binding values​​ to their key's name) 

;;这里的可以用:keys、:strs、:syms来指定key的类型;;但是通常使用:keys类型;;在很多框架中，经常会看到:keys,:or,:as的组合使用(def chas {:name "Chas" :age 31 :location "Massachusetts"}) (let [{name :name age :age location :location} chas]  (format "%s is %s years old and lives in %s." name age location)) ;= "Chas is 31 years old and lives in M​​assachusetts."

5、对剩余部分像map一样解构（Destructuring rest sequences as map key/value pairs) 

;;这个代码太乱，有洁癖的人受不鸟(def user-info ["robert8990" 2011 :name "Bob" :city "Boston"])(let [[username account-year & extra-info] user-info       {:keys [name city]} (apply hash-map extra-info)]   (format "%s is in %s" name city));= "Bob is in Boston";;如果剩余部分的参数个数是偶数个的话，可以用map解构;;有洁癖的人现在觉得世界清静多了(let [[username account-year & {:keys [name city]}] user-info]   (format "%s is in %s" name city));= "Bob is in Boston"

最后，虽然以上的例子只是用let，但是解构用在fn、defn等地方都是可以的。 
    

参考文档：《clojure programming》