时间戳

首页 > 解决方案 > Clojure 中的循环分发

algorithm - Clojure 中的循环分发

问题描述

我想知道是否有人有任何关于 Clojure 循环分发的资源？

我有一个函数将传递的数据拆分为单独的映射，如下所示：

(defn round-robin
  "Divides the dataset into distinct maps using 
round robin distribution"
  [data sets split]

  (partition split data)
 )

我的问题是我不确定如何将这些地图分配到定义的“集合”数量中。我想我可以用这样的东西事先创建地图：

(defn create-map-set
  "Creates a set of (count) maps"
  [count set]
  (if(= count 0) set (recur (- count 1) (conj set 
'())))
 )

但由于我无法引用索引，因此将数据与特定地图合并变得更加困难。

这就是我所期待的：

Input: ((2 5) (3 2) (7 3) (1 4) (3 7) (4 2))
Output: ((2 5 1 4) (3 2 3 7) (7 3 4 2))

向地图添加数据时，我基本上是 1 2 3, 1 2 3。

标签： algorithmclojureround-robin

解决方案

我将说明我如何解决这样的问题。Clojure 非常有利于这种实验。（leetwinski 在他的评论中有效地给出了这个答案。）

从数据开始。

'((2 5) (3 2) (7 3) (1 4) (3 7) (4 2))

将其放在线程宏中

(->> '((2 5) (3 2) (7 3) (1 4) (3 7) (4 2))) ===> ((2 5) (3 2) (7 3) (1 4) (3 7) (4 2))

中途分区

(->> '((2 5) (3 2) (7 3) (1 4) (3 7) (4 2))
     (partition 3)) ===> (((2 5) (3 2) (7 3)) ((1 4) (3 7) (4 2)))

在这一点上，我们得到两个元素（总是）。如果我们可以将这些传递给map，然后将每两个元素连接起来，我们就完成了。所以，

(->> '((2 5) (3 2) (7 3) (1 4) (3 7) (4 2))
     (partition 3)
     (apply map concat)) ===> ((2 5 1 4) (3 2 3 7) (7 3 4 2))

现在，删除硬编码的东西：

(defn round-robin [s]
  (let [half-len (quot (count s) 2)]
    (->> s
         (partition half-len)
         (apply map concat))))

请注意，如果输入是奇数长度，则函数将忽略最后一个元素。

我的经验是，任何时候您想对某些数据进行一些转换，只需将数据推送到最后一个线程的宏 ( ->>) 中并继续处理它是值得的。这个问题很简单，但该方法也适用于复杂的转换。

推荐阅读