Mercurial > vba-clojure

comparison clojure/com/aurellem/title.clj @ 91:613353b7e012

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
got original speedrun to work with modified beginning
author Robert McIntyre <rlm@mit.edu>
date Sun, 11 Mar 2012 13:53:27 -0500
parents 2f478abe57d0
children
comparison
equal deleted inserted replaced
90:778cb84a2244 91:613353b7e012
45 scroll-text 45 scroll-text
46 scroll-text 46 scroll-text
47 scroll-text 47 scroll-text
48 scroll-text 48 scroll-text
49 scroll-text 49 scroll-text
50 (advance [] [:a]))) 50 ))
51 51
52 (defn-memo name-entry [] 52 (defn-memo name-entry-rlm []
53 (->> (oak) 53 (->> (oak)
54 (advance [] [:a])
54 (advance [] [:r] DE) 55 (advance [] [:r] DE)
55 (play-moves 56 (play-moves
56 [[] 57 [[]
57 [:r] [] [:r] [] [:r] [] [:r] [] 58 [:r] [] [:r] [] [:r] [] [:r] []
58 [:r] [] [:r] [] [:r] [] [:d] [:a] 59 [:r] [] [:r] [] [:r] [] [:d] [:a]
59 [:l] [] [:l] [] [:l] [] [:l] [] 60 [:l] [] [:l] [] [:l] [] [:l] []
60 [:l] [] [:l] [:a] [] [:r] [:a] 61 [:l] [] [:l] [:a] [] [:r] [:a]
61 [:r] [] [:r] [] [:r] [] [:r] [] 62 [:r] [] [:r] [] [:r] [] [:r] []
62 [:r] [] [:d] [] [:d] [] [:d] [:a] 63 [:r] [] [:d] [] [:d] [] [:d] [:a]
63 ]))) 64 ])))
64 65
65 (defn-memo rival-name-entry [] 66 (defn-memo name-entry-ash []
66 (->> (name-entry) 67 (->> (oak)
68 (advance [] [:d])
69 (advance [] [:d])
70 (advance [] [:a])))
71
72 (defn-memo rival-name-entry-gary []
73 (->> (name-entry-ash)
67 scroll-text 74 scroll-text
68 scroll-text 75 scroll-text
69 scroll-text 76 scroll-text
70 scroll-text 77 scroll-text
71 scroll-text 78 scroll-text
72 (advance [] [:d]) 79 (advance [] [:d])
73 (advance [] [:d]) 80 (advance [] [:d])
74 (advance [] [:a]))) 81 (advance [] [:a])))
75 82
83 (defn-memo rival-name-entry-blue []
84 (->> (name-entry-ash)
85 scroll-text
86 scroll-text
87 scroll-text
88 scroll-text
89 scroll-text
90 (advance [] [:d])
91 (advance [] [:a])))
92
76 (defn-memo finish-title [] 93 (defn-memo finish-title []
77 (->> (rival-name-entry) 94 (->> (rival-name-entry-blue)
78 scroll-text 95 scroll-text
79 scroll-text 96 scroll-text
80 scroll-text 97 scroll-text
81 scroll-text 98 scroll-text
82 scroll-text 99 scroll-text