Mercurial > vba-clojure

comparison clojure/com/aurellem/rival_name.clj @ 143:cd930ed1fd4d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
determined location of sixth pokemon's name's first character.
author Robert McIntyre <rlm@mit.edu>
date Mon, 19 Mar 2012 20:30:37 -0500
parents 424510993296
children
comparison
equal deleted inserted replaced
142:b12d2408fd9b 143:cd930ed1fd4d
30 (fn [] 30 (fn []
31 (let [codes (range @i (+ 5 @i))] 31 (let [codes (range @i (+ 5 @i))]
32 (println codes) 32 (println codes)
33 (view-rival-name codes) 33 (view-rival-name codes)
34 (reset! i (+ 5 @i)))))) 34 (reset! i (+ 5 @i))))))
35 35
36 (def character-code->character
37 {
38 0x00 "end-of-name-sentinel"
39 0x60 "A-bold"
40 0x61 "B-bold"
41 0x62 "C-bold"
42 0x63 "D-bold"
43 0x64 "E-bold"
44 0x65 "F-bold"
45 0x66 "G-bold"
46 0x67 "H-bold"
47 0x68 "I-bold"
48 0x69 "V-bold"
49 0x6A "S-bold"
50 0x6B "L-bold"
51 0x6C "M-bold"
52 0x80 "A"
53 0x81 "B"
54 0x82 "C"
55 0x83 "D"
56 0x84 "E"
57 0x85 "F"
58 0x86 "G"
59 0x87 "H"
60 0x88 "I"
61 0x89 "J"
62 0x8A "K"
63 0x8B "L"
64 0x8C "M"
65 0x8D "N"
66 0x8E "O"
67 0x8F "P"
68 0x90 "Q"
69 0x91 "R"
70 0x92 "S"
71 0x93 "T"
72 0x94 "U"
73 0x95 "V"
74 0x96 "W"
75 0x97 "X"
76 0x98 "Y"
77 0x99 "Z"
78 0x9A "("
79 0x9B ")"
80 0x9C ":"
81 0x9D ";"
82 0xA0 "a"
83 0xA1 "b"
84 0xA2 "c"
85 0xA3 "d"
86 0xA4 "e"
87 0xA5 "f"
88 0xA6 "g"
89 0xA7 "h"
90 0xA8 "i"
91 0xA9 "j"
92 0xAA "k"
93 0xAB "l"
94 0xAC "m"
95 0xAD "n"
96 0xAE "o"
97 0xAF "p"
98 0xB0 "q"
99 0xB1 "r"
100 0xB2 "s"
101 0xB3 "t"
102 0xB4 "u"
103 0xB5 "v"
104 0xB6 "w"
105 0xB7 "x"
106 0xB8 "y"
107 0xB9 "z"
108 0xBA "e-with-grave"
109 0xE0 "'"
110 0xE1 "PK"
111 0xE2 "MN"
112 0xE6 "?"
113 0xE7 "!"
114 0xE8 "."
115 0xEF "male-symbol"
116 0xF0 "pokemon-money-symbol"
117 0xF1 "."
118 0xF2 "/"
119 0xF3 ","
120 0xF4 "female-symbol"
121 0xF6 "0 "
122 0xF7 "1"
123 0xF8 "2"
124 0xF9 "3"
125 0xFA "4"
126 0xFB "5"
127 0xFC "6"
128 0xFD "7"
129 0xFE "8"
130 0xFF "9"
131 })
132
133 (def character->character-code
134 (zipmap (vals character-code->character)
135 (keys character-code->character)))
136
137
138
36 139
37 140
38 ;; 0x00 : end-of-name-sentinel 141 ;; 0x00 : end-of-name-sentinel
39 ;; 0x01 : 142 ;; 0x01 :
40 ;; 0x02 : 143 ;; 0x02 :
291 ;; 0xFD : 7 394 ;; 0xFD : 7
292 ;; 0xFE : 8 395 ;; 0xFE : 8
293 ;; 0xFF : 9 396 ;; 0xFF : 9
294 397
295 398
399
400