Czy istnieje lepszy sposób odwzorowania wszystkich oprócz pierwszego elementu?

Question

Mam wrażenie, że musi to być czystszy sposób, ale nie widzę tego.

(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

rozpad i korzystania cons zamiast concat: wyjście

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