Lisp 格式过程应用于数组

发布于 2024-10-05 23:34:32 字数 377 浏览 6 评论 0原文

我需要一些有关 format 函数和数组的帮助。

我的目标是将 N·N 个整数值的二维数组打印为每行 N 个整数。例如：

#2A((1 2 3)
    (4 5 6)
    (7 8 9))

应该打印，因为

1 2 3 
4 5 6
7 8 9

我找不到任何有关如何使用 format 打印数组的文档。它实际上可以完成吗？或者我应该将数组转换为列表并使用类似以下内容的内容：

(format t "~{~%~{~A~^ ~}~}"  list)

原文

I need some help with the format function and arrays.

My objective is to print a 2 dimensional array of N·N integer values as N integers per line. For example:

#2A((1 2 3)
    (4 5 6)
    (7 8 9))

should be printed as

1 2 3 
4 5 6
7 8 9

I couldn't find any documentation on how to use format to print arrays. Can it actually be done, or should I convert my array into a list and use something like:

(format t "~{~%~{~A~^ ~}~}"  list)

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

将军与妓 2024-10-12 23:34:32

(defun show-board (board)
  (loop for i below (car (array-dimensions board)) do
        (loop for j below (cadr (array-dimensions board)) do
          (let ((cell (aref board i j)))
            (format t "~a " cell)))
        (format t "~%")))

(defun show-board (board)
  (loop for i below (car (array-dimensions board)) do
        (loop for j below (cadr (array-dimensions board)) do
          (let ((cell (aref board i j)))
            (format t "~a " cell)))
        (format t "~%")))

回复收藏 0 原文

Smile简单爱 2024-10-12 23:34:32

如果我没记错的话，format 没有直接的方法来“进入”数组。您可以编写自己的函数，由波浪号斜杠使用（~/function/，请参阅CLHS)，或者您可以将数组强制到一个列表并使用您建议的指令，或者 ~/pprint-tabular/。如果您想定义自己的，CLHS 有 pprint-tabular 的示例代码，您可以针对数组进行修改。