sha-512 in clojure

sha-512.clj

;; (let [md (. java.security.MessageDigest getInstance "sha-512")]
;;   (. md update (.getBytes "helloworld"))
;;   (let [bytes (. md digest)]
;;     (reduce (fn [n x] (str n (format "%02x" x))) "" bytes)))

;; (let [md (. java.security.MessageDigest getInstance "sha-512")]
;;   (. md update (.getBytes "helloworld"))
;;   (let [bytes (. md digest)]
;;     (reduce #(str %1 (format "%02x" %2)) "" bytes)))

(defn sha-512 [data]
  (let [md (. java.security.MessageDigest getInstance "sha-512")]
    (. md update (.getBytes data))
    (let [bytes (. md digest)]
      (reduce #(str %1 (format "%02x" %2)) "" bytes))))