Contents

(ns binary)

(defn- pow [x n]
  (loop [x (bigint x) n (bigint n) r 1]
    (cond
      (= n 0) r
      (even? n) (recur (* x x) (/ n 2) r)
      :else (recur x (dec n) (* r x)))))

(defn- power [[exponent bit]]
  (if (= "1" bit)
      (pow 2 exponent)
      0))

(defn- bits [string]
  (->> string
       (re-seq #"[10]")
       reverse
       (map-indexed vector)))

(defn to-decimal [string]
  (->> string
       bits
       (map power)
       (apply +)))

Version data entries

396 entries across 396 versions & 1 rubygems

Version	Path
trackler-2.2.1.180	tracks/clojure/exercises/binary/src/example.clj
trackler-2.2.1.179	tracks/clojure/exercises/binary/src/example.clj
trackler-2.2.1.178	tracks/clojure/exercises/binary/src/example.clj
trackler-2.2.1.177	tracks/clojure/exercises/binary/src/example.clj
trackler-2.2.1.176	tracks/clojure/exercises/binary/src/example.clj
trackler-2.2.1.175	tracks/clojure/exercises/binary/src/example.clj
trackler-2.2.1.174	tracks/clojure/exercises/binary/src/example.clj
trackler-2.2.1.173	tracks/clojure/exercises/binary/src/example.clj
trackler-2.2.1.172	tracks/clojure/exercises/binary/src/example.clj
trackler-2.2.1.171	tracks/clojure/exercises/binary/src/example.clj
trackler-2.2.1.170	tracks/clojure/exercises/binary/src/example.clj
trackler-2.2.1.169	tracks/clojure/exercises/binary/src/example.clj
trackler-2.2.1.167	tracks/clojure/exercises/binary/src/example.clj
trackler-2.2.1.166	tracks/clojure/exercises/binary/src/example.clj
trackler-2.2.1.165	tracks/clojure/exercises/binary/src/example.clj
trackler-2.2.1.164	tracks/clojure/exercises/binary/src/example.clj
trackler-2.2.1.163	tracks/clojure/exercises/binary/src/example.clj
trackler-2.2.1.162	tracks/clojure/exercises/binary/src/example.clj
trackler-2.2.1.161	tracks/clojure/exercises/binary/src/example.clj
trackler-2.2.1.160	tracks/clojure/exercises/binary/src/example.clj