On 11 January 2014 01:03, Alan Forrester
<alanmichaelforres...@googlemail.com> wrote:
> 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)))
Actually, it doesn't work.
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.
