Skip to content

Instantly share code, notes, and snippets.

@mwmitchell

mwmitchell/uuid_to_long.clj

Created April 16, 2013 00:51
Show Gist options
  • Save mwmitchell/5392520 to your computer and use it in GitHub Desktop.
Save mwmitchell/5392520 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
uuid_to_long.clj
(:import [java.util UUID])
(defn uuid->long [uuid]
(if (string? uuid)
(try (when-let [x (UUID/fromString uuid)] (uuid->long x))
(catch Exception e nil))
(bit-xor (.getLeastSignificantBits uuid) (.getMostSignificantBits uuid))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment