Le vendredi 10 janvier 2014, Colin Yates a écrit :
> 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 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.
>>>
>>
Then call frequencies for the nbr of occurrences per entry, then
reduce over the initial sequence, including the map in the accumulator,
decrement info the nbr every time you find an occurrence ?
--
> --
> 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<javascript:_e({}, 'cvml',
> '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 <javascript:_e({}, 'cvml',
> 'clojure%2bunsubscr...@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 <javascript:_e({}, 'cvml',
> 'clojure%2bunsubscr...@googlegroups.com');>.
> 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 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.
