vba-clojure: clojure/com/aurellem/run/bootstrap

comparison clojure/com/aurellem/run/bootstrap_0.clj @ 337:2dd40f6b6a1f

restore memoization.

author	Robert McIntyre <rlm@mit.edu>
date	Sat, 07 Apr 2012 07:43:17 -0500
parents	25b7bb7da3b1
children	92f0011925d2

comparison

equal deleted inserted replaced

-:25b7bb7da3b1
+:2dd40f6b6a1f
 (->> script
 (wait-until (partial set-cursor-relative 1))
 (play-moves [[:a] []])))
 (defn restart
-"Two button presses after a restart event are lost when converting to
-VBM format.  To compensate, step the state forward two steps."
-[[moves state :as script]]
-(->> [(concat moves [[:restart]])
-(run-moves state [[:restart]
-;;[] []
-])]
-(do-nothing 2)))
-(defn restart
 "The two button presses after a restart event are converted to
 blanks. Due to weirdness with the VBM format. To compensate, ensure
 that the two button presses after restart are both blanks."
 [script]
 (play-moves [[:restart] [] []] script))
-(defn restart-wrong
-[[moves state :as script]]
-[(concat moves [[:restart] [] []])
-(run-moves state [[:restart]])])
-(defn do-save-corruption
+(defn-memo do-save-corruption
 ([] (do-save-corruption
 (walk-to-counter)))
 ([script]
 (->> script
 activate-start-menu
 (first-difference [] [:a] AF)
 scroll-text
 select-menu-entry
 scroll-text))
-(defn corrupt-item-list
+(defn-memo corrupt-item-list
 "Corrupt the num-of-items variable by switching a corrupted pokemon
 into out-of-bounds memory."
 ([] (corrupt-item-list
 ;;(corrupted-checkpoint)
 (do-save-corruption)
 (set-cursor 9)
 select-menu-entry     ; switch 6th with 10th
 close-menu
 close-menu)))
-(defn get-lots-of-money
+(defn-memo get-lots-of-money
 "Sell 0xFE cancel buttons to make a tremendous amount of money."
 ([] (get-lots-of-money (corrupt-item-list)))
 ([script]
 (->> script
 (first-difference [] [:a] AF) ; talk to shopkeep
 close-menu)))
 (defn note [str script]
 (println str) script)
-(defn buy-bootstrapping-items
+(defn-memo buy-bootstrapping-items
 "Buy items that will become part of the bootstrapping
 program."
 ([] (buy-bootstrapping-items (get-lots-of-money)))
 ([script]
 (->> script
 close-menu               ; stop talking to shopkeep
 (wait-until select-menu-entry)
 (play-moves [[:b]])
 end-text)))
-(defn corrupt-item-list-again
+(defn-memo corrupt-item-list-again
 ([] (corrupt-item-list-again (buy-bootstrapping-items)))
 ([script]
 (->> script
 activate-start-menu
 (set-cursor-relative 0)
 (set-cursor 9)                  ; goto 10th pokemon
 select-menu-entry               ; do switch
 close-menu
 close-menu)))
-(defn leave-viridian-store
+(defn-memo leave-viridian-store
 ([] (leave-viridian-store (corrupt-item-list-again)))
 ([script]
 (->> script
 ;; leave store
 (walk [↓ ↓ → ↓]))))
 (delayed-improbability-search
 600
 #(search-string % "Wild")
 (partial move direction) script))
-(defn fight-wild-pokemon
+(defn-memo fight-wild-pokemon
 ([] (fight-wild-pokemon (leave-viridian-store)))
 ([script]
 (->> script
 (walk [↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
 ← ← ← ← ← ← ← ←
 ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓])
 (force-encounter →))))
-(defn run-from-pokemon
+(defn-memo run-from-pokemon
 ([] (run-from-pokemon (fight-wild-pokemon)))
 ([script]
 (->> script
 (scroll-text)
 (play-moves [[:a]])
 (set-cursor 1)
 (first-difference [] → AF)
 (scroll-text)
 (scroll-text))))
-29952
+(defn-memo to-poke-center-computer
-(defn to-poke-center-computer
 ([] (to-poke-center-computer
 (run-from-pokemon)))
 ([script]
 (->> script
 (walk-thru-grass [→ → ↑])

Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_0.clj @ 337:2dd40f6b6a1f