Mercurial > vba-clojure
comparison clojure/com/aurellem/run/bootstrap_0.clj @ 278:7ecea582ec9d
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] |