Consider using partition-by. I can't type clojure on my phone, but the following link might help. https://clojuredocs.org/clojure.core/partition-by
--Ashton Sent from my iPhone > On Nov 6, 2014, at 3:22 PM, John Gabriele <jmg3...@gmail.com> wrote: > > Hi all, > > I've got this: `[1 3 4 5 7 9 10 11 12]` > and I'd like to turn it into this: `[[1] [3 4 5] [7] [9 10 11 12]]`. > > That is, I'd like to group consecutive numbers together (the final goal being > to produce something like `["1" "3-5" "7" "9-12"]`, but that's the easy part). > > I haven't found an easy way to do this. Here's what I've come up with in > Clojure: > > ~~~clojure > #!/usr/bin/env lein-exec > > (def v [1 3 4 5 7 9 10 11 12]) > > (defn congeal-consecutives > [coll] > (reduce (fn [accum x] > (if (= x (inc (last (last accum)))) > (concat (butlast accum) > [(conj (last accum) x)]) > (concat accum > [[x]]))) > [[(first coll)]] > (rest coll))) > > (prn (congeal-consecutives v)) > ~~~ > > and here's it done in Python: > > ~~~python > #!/usr/bin/python3 > > v = [1, 3, 4, 5, 7, 9, 10, 11, 12] > > def congeal_consecutives(coll): > accum = [[ coll[0] ]] > more = coll[1:] > for x in more: > if x == accum[-1][-1] + 1: > accum[-1].append(x) > else: > accum.append([x]) > return accum > > print(congeal_consecutives(v)) > ~~~ > > Can anyone suggest a better / simpler / more easily-understandable way to do > this in Clojure? > > Thanks, > -- John > > -- > 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/d/optout. -- 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/d/optout.
