clojure 计算字符串md5

(defn get-str-md5 [s]
  (apply str
         (map (partial format "%02x")
              (.digest (doto (java.security.MessageDigest/getInstance "MD5")
                         .reset
                         (.update (.getBytes s)))))))

本来想上网找下clojure计算md5的代码,没想到找到了个各种语言计算字符串md5值的大全

84总语言md5计算的代码

http://rosettacode.org/wiki/MD5