I did consider that but I want to preserve the order of the incoming
sequence.
On Friday, 10 January 2014 15:22:29 UTC, Laurent PETIT wrote:
>
> Hi,
>
> Use frequencies to get a map of path => nb of occurrences, then for each
> entry of the map, create unique names.
> Cannot provide an impl on the uPhine, sorry
>
> Le vendredi 10 janvier 2014, Colin Yates a écrit :
>
>> 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?
>>
>> What would you all do? Feedback welcome (including the word 'muppet' as
>> I am sure I have missed something simple) :)
>>
>> (defn uniquify
>> "Return a sequence, in the same order as s containing every element
>> of s. If s (which is presumed to be a string) occurs more than once
>> then every subsequent occurrence will be made unique.
>>
>> Items will be updated to include an incrementing numeric count using
>> the specified formatter function. The formatter function will be
>> given the name and the number and should return a combination of the
>> two.
>>
>> The set of unique s's in the returned sequence will be the count of
>> s's in s."
>> ([s] (uniquify s (fn [item duplicates] (str item "_" duplicates))))
>> ([s formatter]
>> (let [occurrences (atom {})
>> register-occurrence (fn [item]
>> (if (get @occurrences item)
>> (swap! (get @occurrences item) inc)
>> (swap! occurrences assoc item (atom
>> 1)))
>> @(get @occurrences item))
>> process (fn [item]
>> (let [duplicates (dec (register-occurrence item))]
>> (if (> duplicates 0)
>> (formatter item duplicates)
>> item)))
>> unique-s (map process s)]
>> unique-s)))
>>
>> --
>> --
>> 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
>> ---
>> 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 [email protected].
>> For more options, visit https://groups.google.com/groups/opt_out.
>>
>
--
--
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
---
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 [email protected].
For more options, visit https://groups.google.com/groups/opt_out.
