क्लोजर

Question

में फोरैच (डोसेक) को कार्यान्वित करना मैं एसआईसीपी के माध्यम से काम कर रहा हूं - एक अभ्यास foreach (doseq) को लागू करना है। यह एक अकादमिक अभ्यास है। clojure में, यह है कि मैं क्या के साथ आया है:

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

लेकिन, मैं एक छोटे से संदिग्ध अगर do के बारे में धोखा दे रही है हूँ, क्योंकि do clojure में एक विशेष रूप है और मुझे नहीं लगता है कि ऐसा कुछ है एसआईसीपी में अभी तक पेश किया गया है। क्या कोई और न्यूनतम उत्तर नहीं है?

यहाँ एक और प्रयास है जो केवल पिछले तत्व पर proc निष्पादित करता है:

(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 

संपादित करें:

आप 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)))