在格式的迭代指令中使用变量填充

嵌套 format 功能,你可以做你想做的。

(format t (format nil "~~{~~~Aa~~}" 4) '("aa" "bb" "cc"))
;; returns: aa  bb  cc  

这里内部 格式 指令: 这个 nil 作为第一个论点, 格式 返回字符串。

(format nil "~~{~~~Aa~~}" 4)
;; returns: "~{~4a~}" - and this is exactly what you want to give
;; to the outer `format` as second argument!

当然,您可以为此编写函数:

(defun format-by-padding-over (lst padding)
  (format t (format nil "~~{~~~Aa~~}" padding) lst))

然后:

(format-by-padding-over '("aa" "bb" "cc") 4)
;; aa  bb  cc  
;; NIL

我学会了这个技巧 here 来自@sylvester(非常感谢!).

你也可以在列表中插入重复的填充:

(format t "~{~va~}"
        (mapcan (lambda (element)
                  (list 4 element))
                list))

您可以使用嵌套的格式函数构建格式控制字符串,但是必须注意转义tildes。使用正则表达式(使用cl-ppcre)时,可以使用树定义正则表达式,例如 (:alternation #\\ #\*) 这有助于防止与逃避特殊角色相关的bug和头痛。同样可以使用格式字符串,使用 format-string-builder ,在QuickLisp中提供:

(lambda (v)
  (make-format-string `((:map () (:str ,v)))))

返回一个闭包,可用于生成格式字符串:

(funcall * 10)
=> "~{~10a~}"