clojure - 最初のアイテム以外のすべてをマップするより良い方法はありますか?

Question

これを行うためのよりクリーンな方法が必要なように感じますが、わかりません。

(defn map-rest
  "Passes through the first item in coll intact. Maps the rest with f."
  [f coll]
  (concat (list (first coll)) (map f (rest coll))))

Answer 1

consの代わりに破壊して使用するconcat：

(defn map-rest [f [fst & rst]] (cons fst (map f rst)))

REPL 出力:

user=> (map-rest inc [1 2 3 4 5])
(1 3 4 5 6)