Bit manipulation in Cloure

bit.clj

(require '[clojure.pprint :refer [pprint]])

(defn binary-str [bitmap]
  (let [s (Integer/toBinaryString bitmap)]
    (if (= 32 (count s))
      s
      (str (apply str (repeat (- 32 (count s)) \0))
           s))))

;; get a feel for 2's complement
(pprint (mapv (juxt identity (comp (juxt identity count #(count (filter #{\0} %)) #(count (filter #{\1} %))) binary-str))
              (range -512 512)))