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增删改查操作和上面一样。