Mercurial > cortex

comparison org/self_organizing_touch.clj @ 548:0b891e0dd809

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
version 0.2 of thesis complete.
author Robert McIntyre <rlm@mit.edu>
date Thu, 01 May 2014 23:41:41 -0400
parents 01934317b25b
children 1943a5313f40
comparison
equal deleted inserted replaced
547:5d89879fc894 548:0b891e0dd809
97 (< (- (count (union other-set x)) c) (* oc 0.1)))) 97 (< (- (count (union other-set x)) c) (* oc 0.1))))
98 xs) 98 xs)
99 (recur result xs) 99 (recur result xs)
100 (recur (cons x result) xs)))))) 100 (recur (cons x result) xs))))))
101 101
102 (def all-touch-coordinates
103 (concat
104 (rect-region [0 15] [7 22])
105 (rect-region [8 0] [14 29])
106 (rect-region [15 15] [22 22])))
107 102
108 (defn view-touch-region 103 (defn view-touch-region
109 ([coords out] 104 ([coords out]
110 (let [touched-region 105 (let [touched-region
111 (reduce 106 (reduce