Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_1.clj @ 593:daa3497bbe12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
increased speed to travel to floor two of celadon dept. store.
author Robert McIntyre <rlm@mit.edu>
date Sat, 01 Sep 2012 12:38:26 -0500
parents cd557c922cec
children ea448eecb615
comparison
equal deleted inserted replaced
592:db61317863a7 593:daa3497bbe12
148 148
149 (def desired-zero-quantities 149 (def desired-zero-quantities
150 (map second (filter (comp (partial = 0) first) 150 (map second (filter (comp (partial = 0) first)
151 (partition 2 (pc-item-writer-program))))) 151 (partition 2 (pc-item-writer-program)))))
152 152
153 (defn-memo bootstrap-corrupt-save 153 (defn bootstrap-corrupt-save
154 ([] (bootstrap-corrupt-save (to-room-pc))) 154 ([] (bootstrap-corrupt-save (to-room-pc)))
155 ([script] 155 ([script]
156 (->> script 156 (->> script
157 (do-save-corruption 3) 157 (do-save-corruption 3)
158 (corrupt-item-list 0) 158 (corrupt-item-list 0)
273 273
274 (defn-memo go-to-floor-two 274 (defn-memo go-to-floor-two
275 ([] (go-to-floor-two (to-celadon))) 275 ([] (go-to-floor-two (to-celadon)))
276 ([script] 276 ([script]
277 (->> script 277 (->> script
278 (walk [↑ → → → → → → → → → → → 278 (walk [→ → ↑
279 ↑ ↑ ↑ ↑ ↑ ↑ 279 ↑ ↑ ↑ ↑
280 ← ← ← ←
281 ↑ ↑
280 ← ← ← ← 282 ← ← ← ←
281 ↓ ↓ ↓ 283 ↓ ↓ ↓
282 ← ←]) 284 ← ←])
283 (first-difference [] ↑ AF)))) 285 (first-difference [] ↑ AF))))
284 286