thực hiện foreach (liều lượng) trong clojure

Question

Tôi đang làm việc thông qua SICP - một bài tập là thực hiện foreach (liều lượng). Đây là bài tập học thuật. Trong clojure, đây là những gì tôi đã đưa ra:

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

nhưng, tôi là một chút u ám về nếu do là lừa dối, bởi vì do là một hình thức đặc biệt trong clojure và tôi không nghĩ rằng bất cứ điều gì như thế có được giới thiệu trong SICP. có câu trả lời tối giản hơn không?

Đây là một nỗ lực mà chỉ thực hiện proc trên yếu tố cuối cùng:

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

Answer 1

Sử dụng doseq và bạn đã cài đặt xong. Ví dụ:

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

Sẽ in:

1 
2 
3 
nil 

EDIT:

Nếu bạn muốn thực hiện for-each bằng tay và sử dụng càng ít hình thức đặc biệt càng tốt, đây là một thay thế, mặc dù nó kết thúc gần như ngắn như của bạn:

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

Điều thú vị là thủ tục tương tự có thể được viết ngắn gọn hơn trong Đề án, phương ngữ Lisp sử dụng trong SICP:

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

Answer 2

Đây là nỗ lực của tôi. Nó chỉ mang chức năng thực hiện trong một vòng lặp bên trong.

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