promise 确定性死锁

00 [clojure中的promise的死锁是确定性的].md

好消息， 死锁是确定性的.

deadlock.clj

;;
;;Executor线程池多次执行方法
;;
(import 'java.util.concurrent.Executors)

(def thread-pool (Executors/newFixedThreadPool (+ 2 (.availableProcessors (Runtime/getRuntime)))))

(defn dothreads! [f & {thread-count :threads
                       exec-count :times
                       :or {thread-count 1 exec-count 1}}]
  (dotimes [t thread-count]
    (.submit thread-pool #(dotimes [c exec-count] (f c)))))


;; 确定性死锁

(def alex (promise))

(def kate (promise))

(dothreads! (println "alex has " @alex) (deliver kate :thinking))

(dothreads! (println "kate has " @kate ) (deliver alex :fork))