clojure - 如何使用对`map`的嵌套调用来构建数据结构

Question

我想使用对映射（函数）的嵌套调用来构建一系列映射（数据结构）。这就是我正在做的

(defn point [x y]
  {:x-coord x
   :y-coord y})

(defn grid [rows columns]
  (mapcat 
    (fn [x] map
              (fn [y] (point x y))
              (range columns))
    (range rows)))

编译得很好，但不能像我预期的那样工作。我预计对 grid 的调用会产生一系列地图：

user=>(grid 2 2)
({:x-coord 0, :y-coord 0} {:x-coord 0, :y-coord 1} {:x-coord 1, :y-coord 0} {:x-coord 1, :y-coord 1})

但我实际上得到的是一个整数序列：

user=> (grid 2 2)
(0 1 0 1)

所以我的问题是，我怎样才能得到我想要的序列？而且，为什么我得到了我得到的特定序列？

Answer 1

你需要打电话map。以您编写内部的方式，map没有被调用。您只是返回(range columns).

尝试这个：

(defn grid [rows columns]
  (mapcat (fn [x] 
            (map (fn [y] (point x y))
                 (range columns)))
          (range rows)))

你也可以这样打电话point：#(point x %). 可能比你写的方式更容易阅读。