我应该如何在 clojure 中表示国际象棋位板？

Question

在 Clojure (/Java) 中表示棋盘的可能方式有哪些？

http://pages.cs.wisc.edu/~psilord/blog/data/chess-pages/rep.html

我需要能够访问各个位并执行按位运算。

我曾想过使用 java.lang.Long 但这会导致 1x10^63 出现问题，因为标牌。我也不确定如何访问特定索引处的位？

我也看过 BitSet，但理想情况下我需要一个固定长度。

Answer 1

没有理由不能使用直长。正如您所指出的，问题在于 java（以及因此 clojure）的 long 是有符号的，仅允许 63 位用于正数

默认情况下，Java 允许算术溢出而不会出错。 Clojure 默认情况下不允许算术溢出而没有错误（请参阅*unchecked-math* 标志）。它增加了对算术运算和强制转换的额外检查，因此，例如，(byte 128) 将导致异常。由于 clojure v1.3.0 有类似 (unchecked-byte) 的函数，它相当于 java 的功能......

(unchecked-byte 128)
;=> -128 ; 2s-complement of 10000000
(unchecked-byte 2r10000001)
;=> -127 ; 2s-complement of 10000001

有大量的unchecked-* 操作可用 (see clojuredocs)。

如果您使用直长和unchecked-* 操作，您大部分都在那里，然后您可以使用bit-* 操作来旋转/检查位。

最后将你的棋盘存储在一个原子中是有意义的，然后你用(swap! chessboard fn args)更新它

（2013 年 2 月 15 日更新，使用更惯用的 swap！调用）

例如

(inc Long/MAX_VALUE) ; java.lang.ArithmeticException

(unchecked-inc Long/MAX_VALUE) ; wraps.
-9223372036854775808

(def chessboard (atom 0))
@chessboard
;=> 0
(bit-test @chessboard 1)
;=> false
(swap! chessboard bit-flip 1)
;=> 2
(bit-test @chessboard 1)
;=> true
@chessboard
;=> 2
(reset! chessboard 0)
;=> 0
(swap! chessboard bit-flip 63)
;=> -9223372036854775808 
(bit-test @chessboard 63)
;=> true 

Answer 2

=> (def chessboard (byte-array 8))
#'user/chessboard

=> (vec chessboard)
[0 0 0 0 0 0 0 0]

=> (for [row (range 8)] (aset-byte chessboard row (rand-int 8)))
(3 0 6 6 2 3 6 7)

=> (bigint chessboard)
216179404987106823N

=> (defn bigint-to-array
 [bi]
 (.toByteArray (biginteger bi)))

=> (vec (bigint-to-array 216179404987106823N))
[3 0 6 6 2 3 6 7]

Clojure 以这种方式支持您需要的大多数功能。像所有 clojure 数字一样，clojure.lang.BigInt 支持二进制操作（位等）。在字节数组上，您可以使用 java.util.Arrays 中的所有方法（搜索、填充、排序）。

注意 bigint fn 强制转换为 clojure.lang.BigInt，而 biginteger fn 强制转换为 java.math.BigInteger。如果你想使用java.math.BigInteger的方法，你需要通过biginteger来强制你的bigint或者byte-array。