1.1 --- a/clojure/com/aurellem/run/util.clj	Wed Apr 04 14:55:43 2012 -0500
     1.2 +++ b/clojure/com/aurellem/run/util.clj	Thu Apr 05 12:59:30 2012 -0500
     1.3 @@ -9,6 +9,11 @@
     1.4  
     1.5  [↑ ↓ ← →]
     1.6  
     1.7 +(defn do-nothing [n script]
     1.8 +  (->> script
     1.9 +       (play-moves
    1.10 +        (repeat n []))))
    1.11 +
    1.12  (defn first-difference
    1.13    [base alt difference-metric [moves root :as script]]
    1.14    (loop [branch-point root
    1.15 @@ -150,11 +155,6 @@
    1.16        (do-nothing 150)
    1.17        (play-moves [[:b]]))))
    1.18  
    1.19 -(defn do-nothing [n script]
    1.20 -  (->> script
    1.21 -       (play-moves
    1.22 -        (repeat n []))))
    1.23 -
    1.24  (defn delayed-improbability-search
    1.25    "insert blank frames before calling script-fn until
    1.26     metric returns true."