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：参考银行交易的例子

1 个答案: