Закрытие Clojure не ведет себя так, как ожидалось?

Question

РЕПЛ возвращает 2, когда ожидается возвращение 5.

(defn counter [] 
    (let [count 1] 
    (fn [] 
     (+ count 1) 
    ) 
) 
) 

(defn test-counter [] 
    (let [increment (counter)] 
    (increment) 
    (increment) 
    (increment) 
    (increment) 
) 
) 

Answer 1

count не изменяемая переменная так (+ count 1) не меняет своего значения. Если вы хотите мутации, вы можете сохранить счет в atom и обновить его, используя swap!:

(defn counter [] 
    (let [count (atom 0)] 
    (fn [] (swap! count inc))))