Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_0.clj @ 278:7ecea582ec9d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
script: bought initial 5 items.
author Robert McIntyre <rlm@mit.edu>
date Tue, 27 Mar 2012 13:10:48 -0500
parents 710bfbb1e048
children aa9b8d9d5b76
comparison
equal deleted inserted replaced
277:710bfbb1e048 278:7ecea582ec9d
252 (repeat 600 [])) 252 (repeat 600 []))
253 253
254 result (search-string (memory future-state) 254 result (search-string (memory future-state)
255 "Wild")] 255 "Wild")]
256 (if (nil? result) 256 (if (nil? result)
257 new-script 257 (do
258 (if (< 0 blanks)
259 (do(println "avoided pokemon with" blanks "blank frames")))
260 new-script)
258 (recur (inc blanks)))))) 261 (recur (inc blanks))))))
259 262
260 (defn walk-thru-grass 263 (defn walk-thru-grass
261 [directions script] 264 [directions script]
262 (reduce (fn [script direction] 265 (reduce (fn [script direction]