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