Numbers in base-16 representation that cannot be written with decimal digits: Difference between revisions

Add BCPL
(Add BASIC)
(Add BCPL)
Line 52:
239 250 251 252 253
254 255</pre>
 
=={{header|BCPL}}==
<lang bcpl>get "libhdr"
 
let lownybble(hi) be
for lo=#XA to #XF do
writef("%N*N", hi<<4 | lo)
 
let start() be
$( lownybble(0)
for hi=#XA to #XF do
lownybble(hi)
$)</lang>
{{out}}
<pre style="height:24em">10
11
12
13
14
15
170
171
172
173
174
175
186
187
188
189
190
191
202
203
204
205
206
207
218
219
220
221
222
223
234
235
236
237
238
239
250
251
252
253
254
255</pre>
 
=={{header|Factor}}==
2,114

edits