On 10 January 2014 14:59, Colin Yates <colin.ya...@gmail.com> wrote:
> I have a sequence of file names and I want to make them unique. (uniquify
> ["a" "b" "c" "a"]) => ["a" "b" "c" "a_1"])
>
> This is what I have come up with, but surely there is a better way?
>
>
I would do something like:
(defn uniquify
([xs]
(uniquify xs (fn [x n] (str x "_" n))))
([xs formatter]
(letfn [(uniquify* [xs seen]
(lazy-seq
(when (not-empty xs)
(let [x (first xs)
n (seen x 0)]
(if (> n 0)
(cons (formatter x n) (uniquify* (rest xs) (assoc
seen x (inc n))))
(cons x (uniquify* (rest xs) (assoc seen x (inc
n)))))))))]
(uniquify* xs {}))))
--
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
---
You received this message because you are subscribed to the Google Groups
"Clojure" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to clojure+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/groups/opt_out.
