连接Common Lisp中的两个列表

作者: ࿏自ོ༾由ོ༽人͙⃡⌇
发布时间: 2025-01-09 06:32:04 (23天前)
转自：

3 条回复

0#
回复此人
滔滔江水 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 我确实理解你对'减少'的要求。还有其他选择： </p> <P> CL也有'concatenante' </p> <P> <code> (concatenate 'list '(1 2 3) '(4 5 6)) </code> </p> <P> 还有其他不那么复杂的（恕我直言），而不是那么优雅。 </p> <P> <code> (defun concat-lists (list1 list2) (let ((a (copy-list list1)) (b (copy-list list2))) (rplacd (last a) b) a)) </code> </p> <P> 要么 </p> <P> <code> (defun concat-lists (list1 list2) (let ((a (copy-list list1)) (b (copy-list list2))) (nconc a b))) </code> </p> </DIV>

编辑
1#
回复此人
咿呀哟 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <pre> <code> CL-USER 39 > (reduce #'cons '(1 2 3 4 5) :initial-value '(a b c d e) :from-end t) (1 2 3 4 5 A B C D E) </code> </pre> </DIV>

编辑

登录后才能参与评论