# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1333419924 18000
# Node ID 3c5bf2221ea02c3706088aa8bd28e5925c63eb4e
# Parent  d263df762c59c69996c096ab7e45128380abc7e9
remove crufty functions.

diff -r d263df762c59 -r 3c5bf2221ea0 clojure/com/aurellem/run/util.clj
--- a/clojure/com/aurellem/run/util.clj	Mon Apr 02 21:20:54 2012 -0500
+++ b/clojure/com/aurellem/run/util.clj	Mon Apr 02 21:25:24 2012 -0500
@@ -79,41 +79,6 @@
         new-state (run-moves (generator len) [alt])]
     [new-moves new-state]))
 
-(defn delayed-difference
-  [base alt delay difference-metric [moves root :as script]]
-  (loop [branch-point root
-         actions moves]
-    (let [base-branch (step branch-point base)
-          base-val
-          (difference-metric
-           (run-moves base-branch
-                      (repeat delay base)))
-          alt-branch (step branch-point alt)
-          alt-val
-          (difference-metric
-           (run-moves alt-branch
-                      (repeat delay base)))]
-      (if (not= base-val alt-val)
-        [(conj actions alt) alt-branch]
-        (recur base-branch (conj actions base))))))
-
-
-            
-
-
-
-  
-;; (defn advance
-;;   ([base alt difference-metric [commands state]]
-;;      (let [[c s]
-;;            (first-difference base alt difference-metric state)]
-;;        [(concat commands c) s]))
-;;   ([base alt [commands state]]
-;;      (advance base alt AF [commands state]))
-;;   ([alt [commands state]]
-;;      (advance [] alt [commands state])))
-
-
 (def x-position-address 0xD361)
 (def y-position-address 0xD362)
 
@@ -140,13 +105,6 @@
   (reduce (fn [script dir]
             (move dir script)) script directions))
 
-(defn menu
-  [directions script]
-  (reduce (fn [script direction]
-            (move direction script))
-          script directions))
-
-
 (defn search-string
   [^SaveState state string]
   (let [codes
@@ -172,15 +130,6 @@
               (+ text-address 82))))
   ([] (displayed-text @current-state)))
 
-;; (defn scroll-text
-;;   ([script]
-;;      (first-difference [:b] [:a :b] AF script))
-;;   ([n script]
-;;      (reduce (fn [script _]
-;;                (scroll-text script))
-;;              script
-;;              (range n))))
-
 (defn scroll-text
   ([script]
      (delayed-difference
@@ -191,25 +140,6 @@
              script
              (range n))))
 
-
-(defn end-text [script]
-  (->> script
-       (scroll-text)
-       (play-moves [[] [:a]])))
-
-
-
-(memory-compare 
- (step (talk-to-oak) [:a])
- (step (talk-to-oak) [])
- (step (oak-battle) [])
- (step (oak-battle) [:a]))
-
- 
-
-
-
-
 (defn do-nothing [n script]
   (->> script
        (play-moves