java - 俄罗斯方 block 的 vector 或 Java 数组？

Question

我正在尝试使用 Clojure 创建类似俄罗斯方 block 的游戏，但在决定游戏环境的数据结构时遇到了一些问题。我想将运动场定义为可变网格。各个 block 也是网格，但不需要是可变的。

我的第一个尝试是将网格定义为 vector 的 vector 。例如，S block 看起来像这样:

:s-block {
    :grids [
      [ [ 0 1 1 ]
        [ 1 1 0 ] ]

      [ [ 1 0 ]
        [ 1 1 ]
        [ 0 1 ] ] ]
}

但事实证明，对于像迭代和绘画这样的简单事情来说，这是相当棘手的(见下面的代码)。

为了使网格可变，我最初的想法是让每一行成为一个引用。但是后来我真的想不出如何连续更改特定单元格的值。一种选择是为每个单独的单元格创建一个 ref 而不是每一行。但这感觉像是一种不干净的方法。

我现在正在考虑使用 Java 数组。 Clojure 的 aget 和 aset 函数可能会简单得多。

然而，在深入研究之前，我想询问一些想法/见解。你会如何推荐实现一个可变的二维网格？也请随意分享替代方法。

源代码当前状态:Tetris.clj (rev452)

更新
在您的建议的帮助下，经过一些 self 修修补补，我得出了以下结论:

(defstruct grid :width :height)

(defn create-grid [w h initial-value]
  (struct-map grid
    :width  w
    :height h
    :data   (ref (vec (repeat (* w h) initial-value)))))

(defn create-grid-with-data [w h gdata]
  (struct-map grid
    :width w
    :height h
    :data (ref gdata)))

(defn get-grid [g x y]
  (let [gdata (g :data)
        idx   (+ x (* (g :width) y)) ]
    (gdata idx)))

(defn set-grid [g x y value]
  (let [data  (deref (g :data))
        idx   (+ x (* (g :width) y)) ]
    (dosync (alter (g :data) (fn [_] (assoc data idx value))))))

(defn get-grid-rows [g]
  (partition (g :width) (deref (g :data))))

我喜欢它，因为它是一个更通用的解决方案。如果它完全错误，或者可以改进，请随时说出来。

Answer 1

为每个单元格使用 ref 不一定是个坏主意。将所有网格突变放入 dosync 中，Clojure 应该注意每个多单元更新都是自动完成的。 (我不知道您是否计划让多个线程同时冲击您的网格，但这样做是安全的。)

下面我使用散列映射作为网格中每个单元格的值，因为您可能希望它不仅仅是一个占用/未占用的 boolean 值；也许你想存储颜色信息或其他东西。不过，我保留了您定义 block 的符号。

(此版本的 indexed 目前可与前沿的 Clojure 配合使用。在旧版本中，您可以在 clojure.contrib 中找到 indexed。)

(def indexed (partial map-indexed vector))

(defn make-grid [x y]
  (let [f #(vec (repeatedly %1 %2))
        r #(ref {:occupied? false})]
    (f y #(f x r))))

(defn draw-block [grid x y block]
  (dosync
   (doseq [[i row] (indexed block)
           [j square] (indexed row)]
     (alter (get-in grid [(+ y i) (+ x j)])
            assoc :occupied? (= 1 square)))))

(defn print-grid [grid]
  (doseq [row grid]
    (doseq [cell row]
      (print (if (cell :occupied?) "X" ".")))
    (println)))

(def *grid* (make-grid 5 5))

user> (draw-block *grid* 2 1 [[1 1 0] 
                              [0 1 1]])
nil
user> (print-grid *grid*)
.....
..XX.
...XX
.....
.....
nil

Java 数组可能看起来更简单，但它们不是线程安全的，并且大多数对 seqs 进行操作的优秀 Clojure 函数无论如何都会取消排列您的数组。改变一堆数组和对象绝对不是惯用的 Clojure。 Java 数组通常用于与 Java 库进行互操作。