On 10 January 2014 21:06, Colin Yates <colin.ya...@gmail.com> wrote: > Gosh - my public humiliation continues. Here is one that actually works: > > (first (reduce (fn [[results seen] item] > (let [cnt (get seen item 0)] > [(conj results (if (> cnt 0) (format-fn item cnt) > item)) > (assoc seen item (inc cnt))])) > [[] {}] > items)) > (fact "strings can be made unique" > (s/uniquify ["a" "b" "c"]) => ["a" "b" "c"] > (s/uniquify ["a" "b" "a" "c" "b" "b" "b" "b" "a"]) => ["a" "b" "a_1" "c" > "b_1" "b_2" "b_3" "b_4" "a_2"])
My first two suggestions produce unique titles. They don't do what you want but they are brief: (defn uniquify [a] (map #(str (gensym %)) a)) (defn uniquify [a] (map-indexed (fn [ind el] (str el "_" ind)) a)) My last suggestion does what you want (defn uniquify [a] (loop [res [(first a)] leftover (rest a)] (if-not (empty? leftover) (let [freqy (frequencies res) fl (first leftover) ffl (freqy fl)] (if ffl (recur (concat res [(str fl "_" ffl)]) (rest leftover)) (recur (concat res [fl]) (rest leftover)))) res))) Alan -- -- 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.