क्लोजर

Question

में एन अंकों की बाइनरी संख्याएं उत्पन्न करना मैं n 0 से 2^एन -1 के बाइनरी संख्याएं उत्पन्न करना चाहता हूं। 3 अंकों के उदाहरण के लिए, "000", "001", "010", ..., "111" (दशमलव में 0 से 7)। , मैं उत्पन्न कर सकते हैं क्या मैं इस तरह चाहते हैं तो इस कोड के साथ

(defn pad-zero [s n] 
    (str (reduce str (repeat (- n (count s)) "0")) s)) 

(defn binary-permutation [n] 
    (map (fn [s] (pad-zero s n)) 
     (map #(Integer/toBinaryString %) (range 0 (Math/pow 2 n))))) 

: जिस तरह से मैं इस्तेमाल किया java.lang.Integer.toBinaryString() विधि का उपयोग करें और शून्य जोड़ने यदि आवश्यक हो तो निम्नलिखित की तरह है। 3 अंकों के लिए:

(binary-permutation 3) 
=> ("000" "001" "010" "011" "100" "101" "110" "111") 

लेकिन यह कोड थोड़ा वर्बोज़ देखते हैं। क्या ऐसा करने के लिए बेहतर या अधिक क्लोजर तरीका नहीं हैं?

Answer 1

आप clojure.pprint से स्वरूपण cl-format का उपयोग कर को आसान बनाने में कर सकते हैं:

(defn binary-permutation [n] 
    (map (partial cl-format nil "~v,'0B" n) (range 0 (Math/pow 2 n)))) 

तुम भी पता चला है कि (Math/pow 2 n)(bit-shift-left 1 n) के बराबर है दिलचस्पी हो सकती है।

एक और तरीका है व्यक्त करने के लिए इस clojure.math.combinatorics से selections की अवधि में होगा:

(defn binary-permutation [n] 
    (map (partial apply str) (selections [0 1] n))) 

Answer 2

(defn binary-permutation [n] 
    (for [x (range (Math/pow 2 n))] 
    (apply str (reverse (take n (map #(bit-and 1 %) (iterate #(bit-shift-right % 1) x))))))) 

(defn pad-zero [s n] 
    (apply str (take-last n (concat (repeat n \0) s))))