1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
|
[ [ ( NormalTok , "#lang racket" ) ]
, [ ( NormalTok , "(" )
, ( ExtensionTok , "define" )
, ( FunctionTok , " block-strings" )
]
, [ ( NormalTok , " (" )
, ( KeywordTok , "list" )
, ( NormalTok , " " )
, ( StringTok , "\"BO\"" )
, ( NormalTok , " " )
, ( StringTok , "\"XK\"" )
, ( NormalTok , " " )
, ( StringTok , "\"DQ\"" )
, ( NormalTok , " " )
, ( StringTok , "\"CP\"" )
, ( NormalTok , " " )
, ( StringTok , "\"NA\"" )
]
, [ ( NormalTok , " " )
, ( StringTok , "\"GT\"" )
, ( NormalTok , " " )
, ( StringTok , "\"RE\"" )
, ( NormalTok , " " )
, ( StringTok , "\"TG\"" )
, ( NormalTok , " " )
, ( StringTok , "\"QD\"" )
, ( NormalTok , " " )
, ( StringTok , "\"FS\"" )
]
, [ ( NormalTok , " " )
, ( StringTok , "\"JW\"" )
, ( NormalTok , " " )
, ( StringTok , "\"HU\"" )
, ( NormalTok , " " )
, ( StringTok , "\"VI\"" )
, ( NormalTok , " " )
, ( StringTok , "\"AN\"" )
, ( NormalTok , " " )
, ( StringTok , "\"OB\"" )
]
, [ ( NormalTok , " " )
, ( StringTok , "\"ER\"" )
, ( NormalTok , " " )
, ( StringTok , "\"FS\"" )
, ( NormalTok , " " )
, ( StringTok , "\"LY\"" )
, ( NormalTok , " " )
, ( StringTok , "\"PC\"" )
, ( NormalTok , " " )
, ( StringTok , "\"ZM\"" )
, ( NormalTok , "))" )
]
, [ ( NormalTok , "(" )
, ( ExtensionTok , "define" )
, ( FunctionTok , " BLOCKS " )
, ( NormalTok , "(map " )
, ( KeywordTok , "string->list" )
, ( NormalTok , " block-strings))" )
]
, []
, [ ( NormalTok , "(" )
, ( ExtensionTok , "define" )
, ( FunctionTok , " " )
, ( NormalTok , "(" )
, ( FunctionTok , "can-make-word? " )
, ( NormalTok , "w)" )
]
, [ ( NormalTok , " (" )
, ( ExtensionTok , "define" )
, ( FunctionTok , " " )
, ( NormalTok , "(" )
, ( FunctionTok , "usable-block " )
, ( NormalTok , "blocks word-char)" )
]
, [ ( NormalTok
, " (for/first ((b (in-list blocks)) #:when (memf (curry "
)
, ( KeywordTok , "char-ci=?" )
, ( NormalTok , " word-char) b)) b))" )
]
, [ ( NormalTok , " " ) ]
, [ ( NormalTok , " (" )
, ( ExtensionTok , "define" )
, ( FunctionTok , " " )
, ( NormalTok , "(" )
, ( FunctionTok , "inner " )
, ( NormalTok , "word-chars blocks tried-blocks)" )
]
, [ ( NormalTok , " (" ) , ( KeywordTok , "cond" ) ]
, [ ( NormalTok , " " )
, ( OperatorTok , "[" )
, ( NormalTok , "(" )
, ( KeywordTok , "null?" )
, ( NormalTok , " word-chars) " )
, ( DecValTok , "#t" )
, ( OperatorTok , "]" )
]
, [ ( NormalTok , " " )
, ( OperatorTok , "[" )
, ( NormalTok , "(usable-block blocks (" )
, ( KeywordTok , "car" )
, ( NormalTok , " word-chars))" )
]
, [ ( NormalTok , " " ) , ( OperatorTok , "=>" ) ]
, [ ( NormalTok , " (" )
, ( KeywordTok , "lambda" )
, ( NormalTok , " (b)" )
]
, [ ( NormalTok , " (" ) , ( KeywordTok , "or" ) ]
, [ ( NormalTok , " (inner (" )
, ( KeywordTok , "cdr" )
, ( NormalTok , " word-chars) (" )
, ( KeywordTok , "append" )
, ( NormalTok , " tried-blocks (" )
, ( KeywordTok , "remove" )
, ( NormalTok , " b blocks)) null)" )
]
, [ ( NormalTok , " (inner word-chars (" )
, ( KeywordTok , "remove" )
, ( NormalTok , " b blocks) (" )
, ( KeywordTok , "cons" )
, ( NormalTok , " b tried-blocks))))" )
, ( OperatorTok , "]" )
]
, [ ( NormalTok , " " )
, ( OperatorTok , "[" )
, ( KeywordTok , "else" )
, ( NormalTok , " " )
, ( DecValTok , "#f" )
, ( OperatorTok , "]" )
, ( NormalTok , "))" )
]
, [ ( NormalTok , " (inner (" )
, ( KeywordTok , "string->list" )
, ( NormalTok , " w) BLOCKS null))" )
]
, []
, [ ( NormalTok , "(" )
, ( ExtensionTok , "define" )
, ( FunctionTok , " WORD-LIST " )
, ( NormalTok , "'(" )
, ( StringTok , "\"\"" )
, ( NormalTok , " " )
, ( StringTok , "\"A\"" )
, ( NormalTok , " " )
, ( StringTok , "\"BARK\"" )
, ( NormalTok , " " )
, ( StringTok , "\"BOOK\"" )
, ( NormalTok , " " )
, ( StringTok , "\"TREAT\"" )
, ( NormalTok , " " )
, ( StringTok , "\"COMMON\"" )
, ( NormalTok , " " )
, ( StringTok , "\"SQUAD\"" )
, ( NormalTok , " " )
, ( StringTok , "\"CONFUSE\"" )
, ( NormalTok , "))" )
]
, [ ( NormalTok , "(" )
, ( ExtensionTok , "define" )
, ( FunctionTok , " " )
, ( NormalTok , "(" )
, ( FunctionTok , "report-word " )
, ( NormalTok , "w)" )
]
, [ ( NormalTok , " (printf " )
, ( StringTok , "\"Can we make: ~a? ~a~%\"" )
]
, [ ( NormalTok , " (~s w #:min-width " )
, ( DecValTok , "9" )
, ( NormalTok , ")" )
]
, [ ( NormalTok , " (" )
, ( KeywordTok , "if" )
, ( NormalTok , " (can-make-word? w) " )
, ( StringTok , "\"yes\"" )
, ( NormalTok , " " )
, ( StringTok , "\"no\"" )
, ( NormalTok , ")))" )
]
, []
, [ ( NormalTok , "(module+ main" ) ]
, [ ( NormalTok , " (" )
, ( KeywordTok , "for-each" )
, ( NormalTok , " report-word WORD-LIST)) " )
]
, []
, [ ( NormalTok , "(module+ test" ) ]
, [ ( NormalTok , " (require rackunit)" ) ]
, [ ( NormalTok , " (check-true (can-make-word? " )
, ( StringTok , "\"\"" )
, ( NormalTok , "))" )
]
, [ ( NormalTok , " (check-true (can-make-word? " )
, ( StringTok , "\"A\"" )
, ( NormalTok , "))" )
]
, [ ( NormalTok , " (check-true (can-make-word? " )
, ( StringTok , "\"BARK\"" )
, ( NormalTok , "))" )
]
, [ ( NormalTok , " (check-false (can-make-word? " )
, ( StringTok , "\"BOOK\"" )
, ( NormalTok , "))" )
]
, [ ( NormalTok , " (check-true (can-make-word? " )
, ( StringTok , "\"TREAT\"" )
, ( NormalTok , "))" )
]
, [ ( NormalTok , " (check-false (can-make-word? " )
, ( StringTok , "\"COMMON\"" )
, ( NormalTok , "))" )
]
, [ ( NormalTok , " (check-true (can-make-word? " )
, ( StringTok , "\"SQUAD\"" )
, ( NormalTok , "))" )
]
, [ ( NormalTok , " (check-true (can-make-word? " )
, ( StringTok , "\"CONFUSE\"" )
, ( NormalTok , ")))" )
]
]
|
