格式 - 帮助打印表格

Question

这个问题可能会以facepalm结束，但我已经尝试了一段时间，尽管通过hyperspec阅读，但仍然卡住了。

基本上就是我想要做的是一样的东西

(format t "~{|~{ ~5d~}|~%~}" '((1 23 2 312) (23 456 1 7890))) 

而是硬编码的5应该从列表来计算（从任何嵌套列表+ 1最长的元素的长度）得到的东西像

| 1 23  2 312| 
| 23 456  1 7890|  

也许我想太复杂这里还有一个更简单的方法做我想要的，但我觉得我跑自己变成了一个精神的角落，我不能离开。

Answer 1

假设所需宽度势必 width，则可以做到这一点：

(format t "~{|~{ ~Vd~}|~%~}" width '((1 23 2 312) (23 456 1 7890))) 

5已取代 V和 width已经被添加作为参数传递给 FORMAT/

编辑：原始答案没有正确解释嵌套指令

在格式中，可以使用控制字符串V来代替任何常量值，指示相应的值将从参数列表中取而代之。

你可以试试这个：

(setf width 5) 
(setf data '((1 23 2 312) (23 456 1 7890))) 

(format t "~{|~{ ~{~Vd~}~}|~%~}" 
    (mapcar #'(lambda (r) (mapcar #'(lambda (v) (list width v)) r)) data)) 

此格式字符串要求所需的宽度先于每个值。 (mapcar ...)表达式完成此操作。

Answer 2

我认为你有两个选择：让format魔法去使用其他循环结构或生成格式字符串本身：

(defun facepalm-printer (lol) 
    (format t (format nil "~~{|~~{ ~~~ad~~}|~~%~~}" 
        (longest-member lol)) 
      lol)) 

的longest-member的定义作为练习留给读者。