Write the Hamming Distance algorithm in clojureSolution Usin

Write the Hamming Distance algorithm in clojure

Solution

;; Using Dijkstra merge solution
(defn dijkstra_merge [xs ys]
(lazy-seq
(let [x (first xs),
y (first ys),
[z xs* ys*]
(cond
(< x y) [x (rest xs) ys]
(> x y) [y xs (rest ys)]
:else [x (rest xs) (rest ys)])]
(cons z (dijkstra_merge xs* ys*)))))

(def hamming_distance
(lazy-seq
(->> (map #(*\' 5 %) hamming)
(dijkstra_merge (map #(*\' 3 %) hamming_distance))
(dijkstra_merge (map #(*\' 2 %) hamming_distance))
(cons 1))))