如何并排打印LISP列表？

作者: 林老爷的日常
发布时间: 2024-06-29 07:42:11 (10天前)
转自：

3 条回复

0#
回复此人
清月 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 你可以使用循环，例如： </p> <pre> <code> (defvar product-list (list "apple" "banana") ) (defvar price-list (list 5 10) ) (loop for product in product-list for price in price-list do (format t "~A : ~A~%" product price)) </code> </pre> </DIV>

编辑
1#
回复此人
易米烊光 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 没有 <code> loop </code> ： </p> <pre> <code> (format nil "~{~{~A~T:~T~A~}~^~%~}" (mapcar (function list) (list "apple" "banana") (list 5 10))) </code> </pre> <P> 返回： </p> <pre> <code> "apple : 5 banana : 10" </code> </pre> <P> 参考： </p> <P> 一些格式食谱： <a href="http://www.gigamonkeys.com/book/a-few-format-recipes.html" rel="nofollow noreferrer"> http://www.gigamonkeys.com/book/a-few-format-recipes.html </A> </p> </DIV>

编辑

登录后才能参与评论