什麼是在ref中彈出PersistentQueue的慣用方法？

Question

由於在裁判一PersistentQueue：

(def pq (ref clojure.lang.PersistentQueue/EMPTY)) 

什麼是彈出隊列，並得到結果的慣用方法是什麼？

我對你的批評最好的嘗試：

(defn qpop [queue-ref] 
    (dosync 
     (let [item (peek @queue-ref)] 
      (alter queue-ref pop) 
      item)) 

ALTER回報這已經是彈出隊列中，交易價值，所以你不能只是做了改變由本身。

Answer 1

我想不出更多的習慣，把你的dosync的身體抽象掉。

但是，如果您正在進行特技活動，您可以嘗試off-by-one hack：始終將PQ的頭部視爲垃圾（它包含之前彈出的項目）。由此可見，你可以重寫qpop：

(defn qpop [queue-ref] 
    (peek (alter queue-ref pop)) 

它即被添加特殊檢查空虛（特別是當你連詞）。這也意味着要保持對該項目的引用時間超過它應該的時間（但是，如果你看看PQ的impl，你會發現它可能會導致對彈出項目的引用時間過長，所以活躍性已經很模糊）。

我用這個hack here。

Answer 2

您的dosync正文可以使用Common Lisp的prog1宏來簡化，儘管核心Clojure似乎缺少它。有一個簡單的實現on the Google group，以及一些關於如何在Clojure中將它變成函數（而不是宏）的討論。