Mercurial > vba-clojure
diff clojure/com/aurellem/gb/util.clj @ 320:9637a0f52e7b
located item-list related addresses.
author | Robert McIntyre <rlm@mit.edu> |
---|---|
date | Tue, 03 Apr 2012 23:17:33 -0500 |
parents | d263df762c59 |
children | af86b5ba622b |
line wrap: on
line diff
1.1 --- a/clojure/com/aurellem/gb/util.clj Tue Apr 03 04:16:20 2012 -0500 1.2 +++ b/clojure/com/aurellem/gb/util.clj Tue Apr 03 23:17:33 2012 -0500 1.3 @@ -159,10 +159,26 @@ 1.4 (map (comp vec memory) 1.5 states))) 1.6 1.7 +(defn different-every-time [& seqs] 1.8 + (let [backbone (range (count (first seqs)))] 1.9 + (sort-by 1.10 + first 1.11 + (filter 1.12 + (comp (fn [seq] (reduce #(not= %1 %2) seq)) second) 1.13 + (zipmap backbone 1.14 + (apply (partial map list) seqs)))))) 1.15 + 1.16 + 1.17 +(defn harmonic-compare [& states] 1.18 + (apply different-every-time 1.19 + (map (comp vec memory) 1.20 + states))) 1.21 + 1.22 (defn mid-game [] 1.23 (read-state "mid-game")) 1.24 1.25 - 1.26 +(defn watch-memory [address] 1.27 + (loop [] (step) (view-memory address) (recur))) 1.28 1.29 (defn disect-bytes-2 1.30 "return a vector consiting of the last 16 bytes of the