Simple version compare using clojure

version-compare.clj

(defn- normalize-verison
  [version]
  (let [[x y z] (map read-string (clojure.string/split version #"\."))
        z (or z 0)]
    (+ (* x 10000) (* y 100) z)))

(defn version-compare
  [a b]
  (let [left (normalize-verison a)
        right (normalize-verison b)]
    (cond
      (< left right) -1
      (> left right)  1
      :else           0)))


(version-compare "1.3.1" "1.3.0")
;; 1 
(version-compare "1.3.1" "1.3.2")
;; -1 
(version-compare "1.3.1" "1.3.1")
;; 0 
(version-compare "1.10.1" "1.3.0")
;; 1