clojure正整数到二进制转换

(defn get-binary
  "version:0.1
   doc:Transfer a number to a binary format. 
       You need give a positive number or zero, 
       it will return a list which consists of one or zero;
       You can give an expected length for the results,
       but if the length of your need is smaller than the results, 
       it will take from the front numbers for you."
  ([your-num]
   (loop [quotient (int (/ your-num 2)), bin-seq (list (mod your-num 2))]
     (if (zero? quotient)
       bin-seq
       (recur (int (/ quotient 2)) (conj bin-seq (mod quotient 2))))))
  ([your-num expect-len]
   (let [bin-seq (get-binary your-num)
         bin-len (count bin-seq)]
     (if (> expect-len bin-len)
       (apply conj bin-seq (repeat (- expect-len bin-len) 0))
       (take expect-len bin-seq)))))

运行测试：

(get-binary 4 10)
=> (0 0 0 0 0 0 0 1 0 0)
(get-binary 4 2)
=> (1 0)
(get-binary 4)
=> (1 0 0)