comparison clojure/com/aurellem/gb/util.clj @ 316:d263df762c59

greatly speed up scroll-text by using binary-search.
author Robert McIntyre <rlm@mit.edu>
date Mon, 02 Apr 2012 21:20:54 -0500
parents 073600cba28a
children 9637a0f52e7b
comparison
equal deleted inserted replaced
315:363b650a77cc 316:d263df762c59
152 (filter 152 (filter
153 (comp (partial apply distinct?) second) 153 (comp (partial apply distinct?) second)
154 (zipmap backbone 154 (zipmap backbone
155 (apply (partial map list) seqs)))))) 155 (apply (partial map list) seqs))))))
156 156
157 (defn temporal-compare [& states] 157 (defn memory-compare [& states]
158 (apply common-differences 158 (apply common-differences
159 (map (comp vec memory) 159 (map (comp vec memory)
160 states))) 160 states)))
161 161
162 (defn mid-game [] 162 (defn mid-game []