gistfile1.lisp

;;;; point-free SHA1 hash
(import java.security.MessageDigest)

(defmacro >> 
  "(>> 1 2 3 4 5) => (2 3 4 5 1)"
  [x & xs] 
  `(~@xs ~x))

(defn sha1 [#^String s]
  (-> (doto (MessageDigest/getInstance "SHA1")
          .reset
          (.update (.getBytes s)))
        .digest
        (>> map #(-> % (bit-and 0xff) Integer/toHexString))
        (>> apply str)))