Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_0.clj @ 258:2a46422902be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
script: got pikachu.
author Robert McIntyre <rlm@mit.edu>
date Mon, 26 Mar 2012 18:01:39 -0500
parents 8d1a354f7471
children 11cfe6dcb803
comparison
equal deleted inserted replaced
257:8d1a354f7471 258:2a46422902be
116 (play-moves 116 (play-moves
117 (concat 117 (concat
118 (repeat 51 []) 118 (repeat 51 [])
119 [[:a] []])) 119 [[:a] []]))
120 (walk [↓ ↓ → → ↑]) 120 (walk [↓ ↓ → → ↑])
121 (play-moves [[:a]])))) 121 (play-moves
122 (concat [[] [:a]]
123 (repeat 100 [])))
124 (scroll-text 9)
125 (end-text)
126 (scroll-text 7)
127
128 (play-moves
129 (concat
130 (repeat 42 [])
131 [[:b]])))))
132
133 (defn-memo begin-battle-with-rival
134 ([] (begin-battle-with-rival
135 (obtain-pikachu)))
136 ([script]
137 (->> script
138 (play-moves
139 (repeat 200 [:b]))
140 (play-moves
141 (repeat 200 []))
142 (walk [↓ ↓ ↓]))))
143
144
122 145
123 146
124 147
125 148