Объявление аргументов функции как атомов

Question

Можно ли объявлять аргументы функции как атомы?

Например,

(defn make-withdraw [(atom balance)] 
    (fn [amount] 
    (if (>= @balance amount) 
     (do (swap! balance #(- % amount)) @balance) 
     "Insufficient funds") 
)) 

Спасибо!

Answer 1

Clojure - это динамически типизированный язык, поэтому параметр - это то, что вы передаете ему, как вы его используете внутри функции.

Так просто передать атом в функцию, и вы готовы отправиться:

(make-withdraw (atom 1000)) 

Или создать атом внутри make-withdraw функции с let:

(defn make-withdraw 
    [balance] 
    (let [state (atom balance)] 
    (fn [amount] 
     (if (>= @state amount) 
     (do (swap! state #(- % amount)) @state) 
     "Insufficient funds"))))