按部分搜索单词

Question

我必须编写一个程序，通过搜索给定的子字符串来搜索列表中的所有“单词”。例如:(monday thursday friday) search "ida" = friday.

像这样:

(nth iday '(monday hello sup friday))

但它一直标记错误。

Answer 1

你的表达毫无意义。 nth用于通过索引访问元素。

您可以使用 remove-if-not从您的列表中仅获取匹配的字符串:

(defun find-matching-substr (substr-sym list-of-symbols)
  (remove-if-not (lambda (sym)
                   (search (string substr-sym)
                           (string sym)))
                 list-of-symbols))

CL-USER> (find-matching-substr 'day '(monday hello sup friday))
(MONDAY FRIDAY)