(defn coord-pairs [coords]
(for [number2 coords]
(for [number coords]
(vector (get coords number2) number)))
)
输出:
(([0 0] [0 1]) ([1 0] [1 1]))
我希望输出像
[[0 0] [0 1] [1 0] [1 1]]
答案 0 :(得分:0)
将此排队到您的输出
#(mapv vec (partition 2 (flatten %)))
或
#(vec (apply concat %))
我对代码的意图不太确定,但是......
(fn [coords] (vec (for [x coords y coords] [(get coords x) y])))