懒惰序列捕获延迟递归。
我是clojure的新手，遇到了一个问题，说将序列中的前n个元素乘以某个数字"x"（非递归）。例如
(multiply-n-by-x [1 2 3 4 5] 2 10) => [10 20 30 4 5]
所以在这里我明白了，我需要在这个序列上循环n次，然后停止，但我无法做到这一点。如果有人能指导我怎么做，那就太好了。
与Shawn的答案相同，但有析构函数和split-at（冗余度稍低）：
(defn multiply-n-by-x [s n x]
(let [[s1 s2] (split-at (inc n) s)]
(concat (map #(* x %) s1) s2)))
我认为简单的方法是：
(defn multiply-n-by-x [seq n m]
(concat (map #(* m %) (take (inc n) seq)) (drop (inc n) seq) )
)
这就是你想要的：
(defn multiply-n-by-x [sq n x]
(for [i (range (count sq)) ;for i in range 0 to number of elements in sq
:let [element (nth sq i)]] ;bind element to the nth item in sq
(if (<= i n) ;if index below n, return the multiplied element, otherwise return the element as is
(* x element)
element)))
在for宏中返回的任何内容都将被放入一个序列中，因此最终结果是集合。
take、drop、split和for是惰性结构。我们可以通过急切地计算改变后的序列头来避免它们，如下所示：
(defn multiply-n-by-x [coll n x]
(loop [head [], coll coll, n n]
(if (and (seq coll) (>= n 0))
(recur (conj head (* (first coll) x)) (rest coll) (dec n))
(concat head coll))))
例如，
(multiply-n-by-x [1 2 3 4 5] 2 10)
;(10 20 30 4 5)
顺便说一句，Clojure中的约定是给出切片的计数，而不是最后一个元素的索引，后者少了一个。
(range 3)
;(0 1 2)