implementazione foreach (doseq) in clojure

Question

sto lavorando attraverso SICP - un esercizio è quello di implementare foreach (doseq). Questo è un esercizio accademico. In clojure, questo è ciò che mi si avvicinò con:

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

ma, io sono un po 'torbida circa se do è barare, perché do è una forma speciale di clojure e non penso nulla di simile che ha stato introdotto ancora in SICP. c'è una risposta più minimalista?

Ecco un altro tentativo che esegue solo proc sull'ultimo elemento:

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

Answer 1

Usa doseq ed è tutto pronto. Per esempio:

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

stamperà:

1 
2 
3 
nil 

EDIT:

Se si desidera implementare for-each a mano e utilizzando il minor numero di forme speciali possibili, ecco un'altra alternativa, anche se finisce per essere quasi il più breve del tuo:

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

È interessante notare che la stessa procedura potrebbe essere stata scritta più succintamente in Scheme, il dialetto Lisp utilizzato in SICP:

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

Answer 2

Ecco il mio tentativo. Porta semplicemente l'esecuzione della funzione in un loop interno.

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