implementowanie foreach (doseq) w clojure

Question

pracuję przez SICP - jednym ćwiczeniem jest wdrożenie foreach (doseq). To jest ćwiczenie akademickie. W Clojure, to co wymyśliłem:

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

ale jestem trochę mętna o jeśli do oszukuje, bo do jest szczególną formą w Clojure i nie sądzę, że ma coś podobnego wprowadzono jeszcze w SICP. czy jest bardziej minimalistyczna odpowiedź?

Oto kolejna próba który tylko wykonuje proc ostatniego elementu:

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

Answer 1

Zastosowanie doseq i gotowe. Na przykład:

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

wypisze:

1 
2 
3 
nil 

EDIT:

Jeśli chcesz realizować for-each ręcznie i przy użyciu jak najmniejszej liczby specjalnych form, jak to możliwe, oto kolejna alternatywa, chociaż kończy się prawie tak krótko, jak twoje:

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

Co ciekawe, ta sama procedura mogła być bardziej zwięźle napisane na schemacie, Lisp dialekt używany w SICP:

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

Answer 2

Oto moja próba. Po prostu wykonuje wykonywanie funkcji w wewnętrznej pętli.

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