LISP：计算子字符串以检查出现次数答案

【问题标题】：LISP : Counting Sub strings to check occurrencesLISP：计算子字符串以检查出现次数
【发布时间】：2015-06-09 07:19:12
【问题描述】：

(defun count-sub (str pat)
 (loop with z = 0 with s = 0 while s do
       (when (setf s (search pat str :start6 s))
         (incf z) (incf s (length pat)))
       finally (return z))))

是的，我有这段代码用于计算子字符串，但它一次只需要子字符串输入，我如何让它接受更多输入？

即所以输入会是这样的：

(count-sub "abcde" "a" "d" "e" "c")

而不仅仅是： (count-sub "abcd" "a")

【问题讨论】：

(count-sub "abcde" "a" "b") 不等于 (+ (count-sub "abcde" "a") (count-sub "abcde" "b")) 吗？

标签： lisp

【解决方案1】：

我希望一元函数具有不同的名称：

(defun count-sub-1 (str pat)
 (loop with z = 0 with s = 0 while s do
       (when (setf s (search pat str :start2 s)) ;; :start6 typo fixed
         (incf z) (incf s (length pat)))
       finally (return z))))

那么 N-ary API 函数只是一个 reduce 工作：

(defun count-sub (str &rest patterns)
  (reduce #'+ patterns :key (lambda (item) (count-sub-1 str item))))

一些测试：

(count-sub "aabc") -> 0
(count-sub "aabc" "a") -> 2
(count-sub "aabc" "a" "a") -> 4
(count-sub "aabc" "b") -> 1
(count-sub "aabc" "a" "b") -> 3

但是，您的逻辑有错误。如果一个模式是空字符串，你会得到一个无限循环，因为(incf s (length pat)) 不会改变s 的值：

(count-sub "abc" "") -> #<non-termination!>

一个可能的解决办法是：

(incf s (min (length pat) 1))

在零长度匹配的情况下始终前进至少一个字符。在这种情况下，空字符串会在目标字符串中匹配很多次；如果这是不可取的（您希望空模式导致零），则必须对此进行检查：

(if (plusp (length pat))
  (loop ...)
  0)

那么(min (length pat) 1)的补偿就不需要了。

【讨论】：