kedu Travis,
(defn base26 [ n]
(let [seed-string "aaaa"
s (new StringBuilder seed-string)]
(loop [ pos (- (count seed-string) 1)
x n]
(if (and (> pos 0)(> x 0))
(do (. s setCharAt pos (char (+ (int \a) (mod x 26))))
(recur (- pos 1) (/ x 26)))))
(. s toString)))
(doseq [i (range (Math/pow 26 4))]
(base26 i))
Try the above.
Emeka
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to [email protected]
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
-~----------~----~----~----~------~----~------~--~---
