在球拍中打印漂亮的二维阵列

Question

如何漂亮地打印二维数组b的内容？

下面的代码只返回：

#<array:srfi-9-record-type-descriptor>


(require srfi/25)
(require racket/pretty)

(define (board x y)
  (make-array (shape 0 x 0 y) 0))

(define b (board 7 7))
(pretty-print b)

还尝试了：

(array-map (lambda (n) (print n)) b) ...(我试图将其标记为代码，但它不起作用)

但它返回: 0000000000000000000000000000000000000000000000000

有没有办法让打印程序每x个字符插入一行？

Answer 1

你可以尝试使用你自己的漂亮的打印程序，试试这个：

(define (pretty-print board)
  (for ((i (in-range (array-length board 0))))
    (for ((j (in-range (array-length board 1))))
      (printf "~a\t" (array-ref board i j)))
    (newline)))

例如：

(pretty-print (board 3 3))

0   0   0   
0   0   0   
0   0   0