uuid.cljs

(defn uuid []
  "Return an RFC1422 ver.4 compliant UUID"
  (let [format  "xxxxxxxx-xxxx-4xxx-yxxx-xxxxxxxxxxxx"
        hex     "0123456789abcdef"
        gen     #(case %
                   \x (get hex (rand-int 16))
                   \y (get hex (bit-or 0x8 (bit-and 0x3 (rand-int 16))))
                   %)]
    (apply str (map gen format))))