implementando foreach (doseq) en clojure

Question

estoy trabajando a través de SICP - un ejercicio es implementar foreach (doseq). Este es un ejercicio académico. En clojure, esto es lo que ocurrió:

(defn for-each [proc, items] 
    (if (empty? items) nil 
     (do 
     (proc (first items)) 
     (recur proc (rest items))))) 

pero, yo soy un poco turbia sobre si do está engañando, porque do es una forma especial en clojure y no creo que nada de eso tiene sido introducido aún en el SICP. ¿hay una respuesta más minimalista?

Aquí hay otro intento que sólo ejecuta proc en el último elemento:

(defn for-each-2 [proc, items] 
    (let [f (first items) 
     r (rest items)] 
    (if (empty? r) 
     (proc f) 
     (recur proc r)))) 

Answer 1

Uso doseq y ya está todo listo. Por ejemplo:

(doseq [e '(1 2 3)] 
     (prn e)) 

imprimirá:

1 
2 
3 
nil 

EDIT:

Si desea implementar for-each a mano y usando el menor número de formas especiales como sea posible, aquí hay otra alternativa, aunque termina siendo casi tan corto como el tuyo:

(defn for-each [f l] 
    (cond (empty? l) nil 
     :else (do (f (first l)) 
        (recur f (rest l))))) 

Curiosamente, el mismo procedimiento podría haber sido escrito de forma más sucinta en el esquema, el dialecto de Lisp utilizado en SICP:

(define (for-each f l) 
    (cond ((null? l) null) 
     (else (f (first l)) 
       (for-each f (rest l))))) 

Answer 2

Aquí está mi intento. Solo lleva la ejecución de funciones en un bucle interno.

(defn for-each [fun, xs] 
    (loop [fun fun 
     xs xs 
     action nil] 
    (if (first xs) 
     (recur fun (rest xs) (fun (first xs))) 
     xs)))