внедрение foreach (доза) в clojure

Question

Я работаю через SICP - одно упражнение - реализовать foreach (доза). Это академическое упражнение. В Clojure, это то, что я придумал:

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

, но я немного мутная о том, если do обман, потому что do является особой формой в Clojure и я не думаю, что что-то подобное есть был введен еще в SICP. есть более минималистский ответ?

Вот еще одна попытка, которая выполняет только прок от последнего элемента:

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

Answer 1

doseq Используйте и вы все сделали. Например:

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

Напечатает:

1 
2 
3 
nil 

EDIT:

Если вы хотите реализовать for-each вручную и с использованием в качестве несколько специальных форм, как это возможно, вот еще одна альтернатива, хотя он заканчивается почти таким коротким, как ваш:

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

Интересно, что та же самая процедура могла быть написана более сжато на схеме, лисповской диалекта в SICP:

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

Answer 2

Вот моя попытка. Он просто выполняет выполнение функции во внутреннем цикле.

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