从3个集合中获取值的每种组合的最有效方法是什么？

Question

正如标题所示，我正在尝试从3个集合中获取值的每种组合（然后创建一个包含每个值之一的关键字）。我想出的最好方法是：

（coord-seq函数生成一个我想生成值的集合）

(map
  (fn [x] (map
    (fn [y x] (map
      (fn [z y x] (keyword (str x "," y "," z " ")))
      (coord-seq game last radius)
      (repeat y)
      (repeat x)))
    (coord-seq game second radius)
    (repeat x)))
  (coord-seq game first radius)))

但是，在此示例中，我无法执行的操作是将所有生成的关键字添加到集合中。

是否有一种有效的方法来完成所有这些工作？