8、Clojure 中的懒序列与递归优化技巧

Clojure 中的懒序列与递归优化技巧

1. 比懒更懒：利用现有序列函数解决问题

在编程中，Clojure 的懒序列是语言层面上一种出色的懒加载形式。作为程序员，我们可以通过寻找无需显式进行序列操作的解决方案，变得更加“懒惰”。通常，我们可以组合现有的序列函数来解决问题，而不必亲自处理 recur 或懒序列的细节。

以一个具体问题为例：给定一个硬币抛掷结果的序列，其中正面用 :h 表示，反面用 :t 表示，如 [:h :t :t :h :h :h] ，我们要计算序列中连续出现两次正面的次数。在这个例子中，答案是 2，因为第 3 次和第 4 次抛掷都是正面，第 4 次和第 5 次抛掷也都是正面。

以下是使用 recur 实现的解决方案：

(defn count-heads-pairs [coll]
  (loop [cnt 0 coll coll] 
    (if (empty? coll) 
      cnt
      (recur (if (= :h (first coll) (second coll)) 
               (inc cnt)
               cnt)
             (rest coll)))))

这个函数的工作原理是：在 loop 中引入一个初始值为 0 的 cnt 绑定，用于记录连续两