列表差异函数

Question

是否有任何现有的编程语言，特别是在 Lisp 或 ML 系列中，有一个库函数来计算“第一个直到第二个开始”意义上的列表差异 - 我不确定它应该准确地称为什么 -例如，将字符串视为字符列表，如果输入是:

abcdef
def

那么输出就是

abc

Answer 1

Common Lisp 中的代码:

CL-USER 1 > (defun fusos (s1 s2)
              (let ((pos (search s2 s1)))
                (when pos (subseq s1 0 pos))))
FUSOS

CL-USER 2 > (fusos '(a b c d e f) '(d e f))
(A B C)