Clojure：参考银行交易示例

Question

我仍然是 Clojure 的菜鸟，我知道我正在尝试解决涉及大学银行交易场景的问题。

问题很简单：我必须为信用、借记和转账开发一个解决方案。

我停在这里：

(def account
    (ref 100))

(defn credit [account amount]
  "Credit"
  (dosync
    (alter account + amount)))


(defn debit [account amount]
  "Debit"
  (dosync
    (if (> amount (balance account))
      (throw (Exception. "Insuficient Funds"))
      (alter account - amount))))

(defn transfer [from to amount]
  "Transfer"
  (dosync
    (if (<= amount (balance from)) 
      (do 
        (Thread/sleep 10)
        (debit from amount)


        (credit to amount))
      (throw
        (Exception. "Insuficient Funds")))))

我认为没有什么难理解的，上面的代码可以正常工作。

我应该在上面的每个函数中添加帐号、交易描述、数据和金额以及内存中的存储，例如：

 (defn credit [account description data amount]
  "Credit"
  (dosync
    (alter account + amount)))

我尝试过散列图、向量和其他东西，但没有用。我也试图在这本书中找到这个解决方案：Clojure Programming O'reilly，但仍然很难实现。

感谢您抽出宝贵时间，如果您需要更多信息，请告诉我。

Answer 1

我想我找到了开发这个场景的方法。

创建银行账户时，我使用 refs 和结构来保存所有需要的数据（姓名账户、号码账户和包含将创建的所有交易的操作列表）

(defn create-account [name account-number]
  "Create account"
  (ref (merge {:name name :account-number account-number :operations '()})))

(def joey 
  "Account for tests"
  (create-account "joey" 12345678))

Clojure：参考银行交易示例

Clojure: Refs example for bank transaction

concurrency

clojure

stm

refs