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

Added Perl
(Added Perl)
Line 93:
42 such numbers found.
</pre>
 
=={{header|Perl}}==
<lang perl>use strict;
use warnings;
 
print join( ' ', grep sprintf("%x", $_) !~ /[0-9]/, 1 .. 500 ) =~ s/.{71}\K /\n/gr, "\n";</lang>
{{out}}
<pre>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|Phix}}==
2,392

edits