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<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.