Numbers in base-16 representation that cannot be written with decimal digits: Difference between revisions
Numbers in base-16 representation that cannot be written with decimal digits (view source)
Revision as of 23:07, 12 January 2022
, 2 years agoAdd CLU
Not a robot (talk | contribs) (Add Cowgol) |
Not a robot (talk | contribs) (Add CLU) |
||
Line 345:
10 11 12 13 14 15 26 27 28 29 30 31 42 43 44 45 46 47 58 59 60 61 62 63 74 75 76 77 78 79 90 91 92 93 94 95 106 107 108 109 110 111 122 123 124 125 126 127 138 139 140 141 142 143 154 155 156 157 158 159 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|CLU}}==
<lang clu>lownybble = proc (s: stream, hi: int)
for lo: int in int$from_to(10, 15) do
stream$putl(s, int$unparse(hi*16 + lo))
end
end lownybble
start_up = proc ()
po: stream := stream$primary_output()
lownybble(po, 0)
for hi: int in int$from_to(10, 15) do
lownybble(po, hi)
end
end start_up</lang>
{{out}}
<pre style='height:50ex;'>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|COBOL}}==
<lang cobol> IDENTIFICATION DIVISION.
| |||