如何解决LISP：保持单词以给定字母开头
我正在尝试编写一个函数，该函数应该返回以给定字母开头的每个单词，例如： 列表 (y1,y2,y3,x1,x2,x3 (function 'x list) => (x1,x3)
我能够编写一个执行相同操作的函数，但是对于最后一个字母，但我无法恢复它，我不知道为什么。 这是功能：
(defun F (LETTER L)
(cond
((atom L) nil)
((equal (char (string (car L)) (- (length (string (car L)) )1 )) (char (string LETTER) 0) )
(rplacd L (F LETTER(cdr L))) )
((F LETTER(cdr L))) ) )
返回以我在参数中给出的字母结尾的每个单词。 谢谢你的建议:)
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
