Esiste un modo migliore per mappare tutti tranne il primo elemento?

Question

Mi sembra che ci debba essere un modo più pulito per farlo, ma non lo vedo.

(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

destrutturazione e l'utilizzo di cons invece di concat: uscita

(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)