Mercurial > vba-clojure

comparison clojure/com/aurellem/save_corruption.clj @ 131:7f7cc8858d2e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
added rival-name letter-map
author Robert McIntyre <rlm@mit.edu>
date Sat, 17 Mar 2012 21:29:08 -0500
parents 613353b7e012
children
comparison
equal deleted inserted replaced
130:69f241de436d 131:7f7cc8858d2e
60 (first (title))))) 60 (first (title)))))
61 61
62 (defn-memo start-game [] 62 (defn-memo start-game []
63 (->> (skip-title-again) 63 (->> (skip-title-again)
64 (advance [] [:start]) 64 (advance [] [:start])
65 (advance [] [:a]))) 65 (advance [] [:a])
66 (advance [:a] [:a :start])))
67
68 (defn-memo destroy-item-end-of-list-marker []
69 (->> (start-game)
70 (play-moves
71 [
72 [:start] [] [] [] [] [] [] [] [] [] [] []
73 [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []
74 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d]
75 [] [] [] [:a] [] [] [:d] [] [] [:a] [] [] [] [] [] [] [] [] []
76 [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] []
77 [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] []
78 [] [] [:d] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
79 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
80 [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:a] [] [] [:d]
81 [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [:u] [] []
82 [] [] [:u] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
83 [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
84 [] [] [] [] [] [] [] [] [] [] []
85
86 ;; [:b] [] [] [] [] [] [] [] []
87 ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
88 ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [:a] [] []
89 ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:d] []
90 ])))
91
92
66 93
67 (defn warp-to-elite-four 94 (defn warp-to-elite-four
68 "This is copied from speedrun-2942 to ensure that everything is good 95 "This is copied from speedrun-2942 to ensure that everything is good
69 up to this point." 96 up to this point."
70 [] 97 []