LISP：保持单词以给定字母开头

编程问答 2022-04-21

问题描述

我正在尝试编写一个函数，该函数应该返回以给定字母开头的每个单词，例如： 列表 (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 (将#修改为@）

clisplisplisplisp