On Fri, Jul 1, 2011 at 3:51 PM, David Nolen <dnolen.li...@gmail.com> wrote: > On Fri, Jul 1, 2011 at 3:28 PM, .Bill Smith <william.m.sm...@gmail.com> > wrote: >> >> I want a concise function that, given an arbitrary length sequence, >> determines whether the sequence is of consecutive integers starting with >> one. So: >> (f [1 2 3]) returns true >> (f [1 2 4]) returns false >> (f [0 1 2]) returns false >> My first try, which I am not proud of, follows: >> >> (defn f [numbers] >> (every? (fn [[x y]] (= x y)) (partition 2 (interleave (iterate inc 1) >> numbers)))) >> >> Can someone suggest something better? > > (defn f [xs] (every? #(apply = %) (map vector xs (iterate inc 1))))
(defn f [xs] (every? true? (map = xs (iterate inc 1)))) --Chouser -- 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
