设置列表格式

发布于 2024-10-06 03:48:13 字数 230 浏览 0 评论 0原文

我有以下列表： (XXO NIL NIL O NIL NIL O)

我想将其格式化为如下所示：

X | X | O
--+---+--
  |   | O
--+---+--
  |   | O

我可能可以用我对 Lisp 和 的了解来拼凑一些东西>FORMAT，但这可能会很糟糕。任何指示将不胜感激。

原文

I have the following list: (X X O NIL NIL O NIL NIL O)

I'd like to format it to look like this:

X | X | O
--+---+--
  |   | O
--+---+--
  |   | O

I could probably cobble something together with what little I know about Lisp and FORMAT, but it would probably be pretty gross. Any pointers would be greatly appreciated.

分享到QQ

分享到微博

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

发布评论

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

青衫负雪 2024-10-13 03:48:13

* (format t "~{~A | ~A | ~A~%~^--+---+--~%~}"
    (mapcar (lambda (x) (or x " ")) '(X O X NIL X X O X NIL)))
X | O | X
--+---+--
  | X | X
--+---+--
O | X |
NIL

* (format t "~{~A | ~A | ~A~%~^--+---+--~%~}"
    (mapcar (lambda (x) (or x " ")) '(X O X NIL X X O X NIL)))
X | O | X
--+---+--
  | X | X
--+---+--
O | X |
NIL

回复收藏 0 原文

淡墨 2024-10-13 03:48:13

* (format t "~{~A | ~A | ~A~%~^--+---+--~%~}"
    (mapcar (lambda (x) (or x " ")) '(X O X NIL X X O X NIL)))
X | O | X
--+---+--
  | X | X
--+---+--
O | X |
NIL

关于上面的格式字符串的一些解释。这里至关重要的是“~{”、“~}”和“~^”。一对匹配的波浪号大括号将列表作为输入参数并对其进行迭代。如果正在迭代的列表为空，则 ~^ 控制从该循环中提前退出。
相关文档 ~{ 和 ~^。

* (format t "~{~A | ~A | ~A~%~^--+---+--~%~}"
    (mapcar (lambda (x) (or x " ")) '(X O X NIL X X O X NIL)))
X | O | X
--+---+--
  | X | X
--+---+--
O | X |
NIL

A little explanation about the format string in the above. Crucial here are the '~{' '~}' and '~^'. A pair of matching Tilde braces take a list as input argument and iterate over it. The ~^ controls an early escape from this loop, if the list being iterated over is empty.
Relevant documentation ~{ and ~^.

回复收藏 0 原文

~没有更多了~