Clojure STM 中用于银行交易的大数据结构 LOOP答案

【问题标题】：Large Data Structure in Clojure STM for Banking Transactions LOOPClojure STM 中用于银行交易的大数据结构 LOOP
【发布时间】：2012-03-03 14:00:22
【问题描述】：

我是函数式编程和 Clojure 的新手，所以我不太确定在大学里为项目做什么。该项目应展示 Clojure STM 在银行交易中的优势（将资金从账户 A 转移到账户 B）。所以我打算这样进行：

定义初始数据，例如 Refs 矩阵或其他更好的东西
生成随机操作来执行：[ random-account-source-id(0, N_MAX) , random-account-destination-id(0, N_MAX), random-money (0, 1000) ]
将事务插入数据结构中

为所有人同步资金从源 ID 到目的地 ID 的转移矩阵中的插入，例如：


for i=0; i lt N; i++;
    synchronize: transfer (matrix[i].source,matrix[i].dest,matrix[i].money)

我不确定，那么，也许：

(defn do-all[]
  (dosync
    (when (pos? N)
      (transfer (get matrix [pos 1], get matrix [pos 2], get matrix [pos 3])))))

【问题讨论】：

标签： clojure stm

【解决方案1】：

用 Ref 表示帐户，即每个帐户的 Ref 并在 dosync 操作中执行汇款操作。还要确保在 dosync 操作中不要做任何副作用操作（除了那些 Refs），因为在更新 refs 时可能会在发生冲突的情况下重试。

更新： 如果您将固定帐户数量，则可以使用向量的 ref，其中向量中的每个 ref 都是一个帐户，每个帐户由向量中的索引标识。

例如：

(def total-accounts 100)
(def accounts (vec (map (fn [_] (ref 100)) (range total-accounts))))

如果您必须动态添加新帐户并通过名称识别它们，那么您可以使用哈希映射，其中键是帐户 ID（唯一值），值是帐户余额的 Ref。您需要将此映射包装在 Ref 中，以防您想要执行并发操作以从多个线程中添加/删除帐户。

【讨论】：

非常感谢您的回答，但我不确定您的意思...您能举个例子吗？我的意思是，我可以处理少量（比如说 2 个）帐户，为每个帐户创建一个 ref，并且我知道如何对它们进行操作，例如： (def account-1 (ref 1000)) (def account-2 ( ref 1000)) ...然后... (transfer-function account-1 account-2 100) (transfer-function account-2 account-1 100) 但我真正想做的是管理大量（输入N个账户）并动态创建一个可以在STM下同步工作的结构......

【解决方案2】：

您可能对我在回答另一个问题时发布的this example of Clojure's STM used for banking transactions 感兴趣。

【讨论】：

你将如何将你的函数放入一个循环中：“（transfer-from-all [（accounts 0）（accounts 1）（accounts 2）]（accounts 3）5）”之类的...... .我真的不知道 sintax (transfer-from-all dotimes [i NMAX] [(accounts i) inc i)"
(doseq [x collection] (transfer-from x ....)) 如果要对每个元素执行命令式操作，可能是循环遍历集合中每个元素的最简单方法。