jamiltron · October 13, 2011 19:07
diff --git a/baseconv.clj b/baseconv.clj
 (def base62-alphabet
     "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")

 (defn num->base62 [x]
  (letfn [(base-conv [curr q]
                    (if (>= 0 q) curr
                        (recur (conj curr (nth base62-alphabet (rem q 62))) (quot q 62))))]
    (base-conv '() x)))
	(def base62-alphabet
	"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")

	(defn num->base62 [x]
	(letfn [(base-conv [curr q]
	(if (>= 0 q) curr
	(recur (conj curr (nth base62-alphabet (rem q 62))) (quot q 62))))]
	(base-conv '() x)))