我正在尝试使用 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))))
我喜欢它,因为它是一个更通用的解决方案。如果它完全错误,或者可以改进,请随时说出来。
最佳答案
为每个单元格使用 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 库进行互操作。
关于java - 俄罗斯方 block 的 vector 或 Java 数组?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/2823432/