clojure 新手指南（14）:Hash-Maps ,Array-Maps & Sorted...

hash-map

创建

在clojure中，哈希表是最通用的一种Map，和java中的HashMap一样，它们在处理大量数据方面效率非常高，但是不保证顺序。我们可以使用函数hash-map来创建哈希表:

=>(hash-map :truck "Toyota" :car "Subaru" :plane "de Havilland")
{:plane "de Havilland", :truck "Toyota", :car "Subaru"}

=>(class (hash-map :truck "Toyota" :car "Subaru" :plane "de Havilland"))
clojure.lang.PersistentHashMap 

在clojure中，所有的类型对象都可以作为map的键，甚至是函数对象也可以。但是我们推荐使用关键字类型（以冒号开头）作为map的键，因为关键字作为键时哈希表性能最好。创建哈希表时不一定非得用hash-map 函数，下面就是一个更简便的方式：

;;直接使用{}来创建哈希表
=>{:truck "Toyota" :car "Subaru" :plane "de Havilland"}
{:truck "Toyota", :car "Subaru", :plane "de Havilland"} 

不过，用上面这种方式，如果传入的键值对少于9个，它实际上创建的是ArrayMap而不是HashMap:

=>(class {:truck "Toyota" :car "Subaru" :plane "de Havilland"})
clojure.lang.PersistentArrayMap 

一旦你把它绑定到一个变量上，它自动就转换成了hashMap：

=> (def map {test: 1})
#'user/map

=> (class map)
clojure.lang.PersistentHashMap

ArrayMap 和 HashMap这种转换，看起来很诡异。但是不要担心，因为大部分情况下，这都不会引起问题。我见过的所有函数对这两种map的操作都是一样的，没有任何区别。

创建map时，如果你想让键值对之间的分隔更清晰，可以使用逗号分隔符：

;;使用hash-map函数
=> (hash-map :key1 1 , :key2 2)
{:key2 2, :key1 1}

;;直接创建
=>{:key1 1 , :key2 2}
{:key2 2, :key1 1}

我们再来看看和map相关的操作

读取

;;如果是map的键是关键字类型，关键字直接可以当做函数使用

=> (def m {:key1 1, :key2 2})
{:key1 1, :key2 2}

;;获取:key1对应的值
=> (:key1 m)
1

;;map本身也可以用于取值，这种适应于任意类型的key
=> (m :key1)
1

一种更好的方式是使用get函数，因为可以设置缺省值。(get 也可以用于向量，把key变成索引值即可）

=> (def m {:key1 1 :key2 :2})

;;获取 :key1对应的值
=> (get m :key1)
1

;;如果 :key3不存在，返回缺省值
=> (get m :key3 "default")
"default"

我们可以使用get-in 获取嵌套map的值

;;创建嵌套map
user=> (def m {:username "sally"
               :profile {:name "Sally Clojurian"
                         :address {:city "Austin" :state "TX"}}})

'user/m

user=> (get-in m [:profile :name])
"Sally Clojurian"

user=> (get-in m [:profile :address :city])
"Austin"

user=> (get-in m [:profile :address :zip-code])
nil

;;如果键不存在，可以设置默认值 
user=> (get-in m [:profile :address :zip-code] "no zip code!")
"no zip code!"

我敢说这是json好么！！！(get-in 函数可不只是用于map，向量也可以使用get-in操作）

增加/修改

;;没则增加，有则修改 
=>(conj {:name "qh" :age 20} {:age 30} {:gender 'male})
{:gender mail, :age 30, :name "qh"}

;;没则增加，有则修改
=>(merge {:name "qh" :age 20} {:age 30} {:gender 'male})
{:gender mail, :age 30, :name "qh"}

;;assoc是操作map和对应的元素，上面两个操作的是多个map，注意区别
=>(assoc {:name "qh" :age 20} :age 30 :gender 'male)
{:gender mail, :age 30, :name "qh"}

删除

;;删除:name对应的键值对
=>(dissoc {:name "qh" :age 30} :name)
{:age 30}

;;给m绑定一个map
=> (def m {:name "qh" :age 30})
#'user/m

;;执行删除操作
=>(dissoc m :name)
{:age 30}

;;m没有变化
=>m
{:name "qh" :age 30}

我们的删除操作只是返回一个新的map，并不会对原有的map造成影响。这点要注意。这也是函数式编程中强调的"消除副作用"。之前的添加和修改都是如此。

获取所有的key

;;使用keys函数
=> (keys {:name "clo" :age 30})
(:name :age)

获取所有的value

;;使用vals函数获取所有value
=> (vals {:name "clo" , :age 30})
("clo" 30)

Sorted Maps

如果我们想要创建一个有序的map（按照key的自然顺序），可以使用sorted-map函数来创建一个有序map。

user=> (def sm (sorted-map :c 1 :b 2 :f 3 :a 3))
#'user/sm
user=> sm
{:a 3, :b 2, :c 1, :f 3}

有序map增删改查操作和上面一样。