Mercurial > vba-clojure

diff clojure/com/aurellem/gb/util.clj @ 314:073600cba28a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
scroll text works robustly but is slow
author Robert McIntyre <rlm@mit.edu>
date Mon, 02 Apr 2012 20:30:02 -0500
parents 5bcda2d6d135
children d263df762c59
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/gb/util.clj	Mon Apr 02 10:58:16 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/util.clj	Mon Apr 02 20:30:02 2012 -0500
     1.3 @@ -147,10 +147,12 @@
     1.4  
     1.5  (defn common-differences [& seqs]
     1.6    (let [backbone (range (count (first seqs)))]
     1.7 -    (filter
     1.8 -     (comp (partial apply distinct?) second)
     1.9 -     (zipmap backbone
    1.10 -             (apply (partial map list) seqs)))))
    1.11 +    (sort-by
    1.12 +     first
    1.13 +     (filter
    1.14 +      (comp (partial apply distinct?) second)
    1.15 +      (zipmap backbone
    1.16 +              (apply (partial map list) seqs))))))
    1.17  
    1.18  (defn temporal-compare [& states]
    1.19    (apply common-differences