Mercurial > vba-clojure

diff 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
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/save_corruption.clj	Sat Mar 17 19:30:45 2012 -0500
     1.2 +++ b/clojure/com/aurellem/save_corruption.clj	Sat Mar 17 21:29:08 2012 -0500
     1.3 @@ -62,7 +62,34 @@
     1.4  (defn-memo start-game []
     1.5    (->> (skip-title-again)
     1.6         (advance [] [:start])
     1.7 -       (advance [] [:a])))       
     1.8 +       (advance [] [:a])
     1.9 +       (advance [:a] [:a :start])))
    1.10 +
    1.11 +(defn-memo destroy-item-end-of-list-marker []
    1.12 +  (->> (start-game)
    1.13 +       (play-moves
    1.14 +        [
    1.15 +         [:start] [] [] [] [] [] [] [] [] [] [] []
    1.16 +        [] [] [] [] [] [] [] [] [] [] [] [:a] [] [] [] [] [] [] [] []
    1.17 +        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [:d]
    1.18 +        [] [] [] [:a] [] [] [:d] [] [] [:a] [] [] [] [] [] [] [] [] []
    1.19 +        [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] []
    1.20 +        [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] [] [] [] [:d] [] []
    1.21 +        [] [] [:d] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
    1.22 +        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.23 +        [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:a] [] [] [:d]
    1.24 +        [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] [] [] [:u] [] []
    1.25 +        [] [] [:u] [] [] [] [:a] [] [] [] [] [] [] [] [] [] [] [] []
    1.26 +        [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.27 +        [] [] [] [] [] [] [] [] [] [] []
    1.28 +
    1.29 +        ;; [:b] [] [] [] [] [] [] [] []
    1.30 +        ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] [] []
    1.31 +        ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [:a] [] []
    1.32 +        ;; [] [] [] [] [] [] [] [] [] [] [] [] [] [:d] [] [] [] [:d] []
    1.33 +        ])))
    1.34 +        
    1.35 +
    1.36  
    1.37  (defn warp-to-elite-four
    1.38    "This is copied from speedrun-2942 to ensure that everything is good