Mercurial > cortex

comparison org/self_organizing_touch.clj @ 412:cc9957241076

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix laziness error.
author Robert McIntyre <rlm@mit.edu>
date Wed, 19 Mar 2014 13:21:49 -0400
parents a331d5ff73e0
children 5205535237fb
comparison
equal deleted inserted replaced
411:a331d5ff73e0 412:cc9957241076
103 (assoc m k [0.0 0.1])) 103 (assoc m k [0.0 0.1]))
104 (zipmap all-touch-coordinates (repeat [0.1 0.1])) coords) 104 (zipmap all-touch-coordinates (repeat [0.1 0.1])) coords)
105 data 105 data
106 [[(vec (keys touched-region)) (vec (vals touched-region))]] 106 [[(vec (keys touched-region)) (vec (vals touched-region))]]
107 touch-display (view-touch)] 107 touch-display (view-touch)]
108 (repeatedly 5 #(touch-display data)) data)) 108 (dorun (repeatedly 5 #(touch-display data)))))
109 109
110 (defn learn-touch-regions [] 110 (defn learn-touch-regions []
111 (let [experiences (atom []) 111 (let [experiences (atom [])
112 world (apply-map 112 world (apply-map
113 worm-world 113 worm-world