Clojure的引用类型：var,ref,agent和atom

作为其他值的容器，也都可以解引用。

deref不会阻塞。

add-watch

(add-watch reference key fn)

可以定义引用值发生改变时的回调，fn是4个参数 :key （atom/var/agent） 旧状态 新状态

(def a (atom {}))

(add-watch a :watcher
  (fn [key atom old-state new-state]
    (prn "-- Atom Changed --")
    (prn "key" key)
    (prn "atom" atom)
    (prn "old-state" old-state)
    (prn "new-state" new-state)))

(reset! a {:foo "bar"})

;; "-- Atom Changed --"
;; "key" :watcher
;; "atom" #<Atom@4b020acf: {:foo "bar"}>
;; "old-state" {}
;; "new-state" {:foo "bar"}
;; {:foo "bar"}

watcher在每次修改时都会被调用，但是不保证真的有改变。因此可能需要自己比较新旧值

key用于给1个ref上添加多个不同watcher，移除watcher也要用key

(remove-watch reference key)

atom

用swap! 修改

;; make an atomic list
(def players (atom ()))
;; #'user/players

;; conjoin a keyword into that list
(swap! players conj :player1)
;;=> (:player1)

;; conjoin a second keyword into the list
(swap! players conj :player2)
;;=> (:player2 :player1)

;; take a look at what is in the list
(deref players)
;;=> (:player2 :player1)

swap! 接受函数 和参数，把atom里的作为第1个参数。后面参数不限

如果f的过程复杂，比如comp 几个函数计算时间会长， 在这期间atom的值可能被修改，而如果使用atom的老值计算，但是返回前atom改成了新值，此时，老值的计算结果会被放弃。

可以强行reset!

ref与STM

软件事务内存用于避免手工管理锁；

垃圾回收用于避免手工管理内存。

——自动化的手段封装那些领域无关，繁琐的细节

Clojure 满足了ACI  而D持久不是STM关心的，因为是纯内存。

alter commute ref-set 用于修改

书上例子是

角色：

(defn character
  [name & {:as opts}]
  (ref (merge {:name name :items #{} :health } opts))
)

从1个角色身上移动1个装备到另一个角色身上

(defn loot
  [from to]
  (dosync
    (when-let [item (first (:items @from))]
      (alter to update-in [:items] conj item)
      (alter from update-in [:items] disj item)
    )
  )
)

dosync表示一个事务

而when-let 如果[]里是nil 则不会执行body

disj从集合里去掉元素，返回剩余的集合

而alter，update-in  @  也都各有意义。

感觉读一块Clojure代码简直不是读代码，而是读古文。没有1个字多余，字认不齐，就1个完整句子都读不下来

alter: 记录ref在事务内第一个alter调用的值，按乐观方式提交，如果ref的值已经被别人改变，则整个事务失败。重试。

commute

可交换的计算，只关心最终结果

不会发生冲突，也不会重试，提高吞吐量，用ref最新值重算一遍

STM的事务如果耗时间太长，可能有活锁问题，总是提交失败（总有更快的任务来插队）。

write-skew 写偏差

在读、写之间 deref的其他值发生了改变。这时，把deref改成ensure，保证依赖的值被锁住，其他线程更新不了。

var

用def定义。var其实是ns级可变引用。不是“变量”

元数据修饰

私有和不可变

(def ^:private  X )
(def ^:const  X )

使用前声明

(def j)
;= #'user/j
j
;= #<Unbound Unbound: #'user/j>

主要是用于表示函数的占位符 ，比如引用其他位置的的公共API。

还可以直接用宏(declare j)表示这时使用前

动态作用域

(def ^:dynamic *X*)
(binding [*X* ]
　　(...)
)

习惯把这种变量两端加**,护耳。

给了函数一个隐式参数，在函数深层埋入需要改变的配置项。防止层层传递。

但坏处嘛，多少有点破坏封装的意思。

agent

每个agent维护1个action队列。

send在固定大小的线程池上执行，用于CPU密集任务

send-off不限制线程池大小，适合IO密集任务