Mercurial > vba-clojure
comparison clojure/com/aurellem/rival_name.clj @ 143:cd930ed1fd4d
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 |