Numbers in base 10 that are palindromic in bases 2, 4, and 16: Difference between revisions
Numbers in base 10 that are palindromic in bases 2, 4, and 16 (view source)
Revision as of 15:54, 24 June 2021
, 3 years agoAdded Wren
(Added Wren) |
|||
Line 78:
Found 22 numbers
done...
</pre>
=={{header|Wren}}==
{{libheader|Wren-fmt}}
{{libheader|Wren-seq}}
<lang ecmascript>import "/fmt" for Conv, Fmt
import "/seq" for Lst
System.print("Numbers under 25,000 in base 10 which are palindromic in bases 2, 4 and 16:")
var numbers = []
for (i in 0..24999) {
var b2 = Conv.itoa(i, 2)
if (b2 == b2[-1..0]) {
var b4 = Conv.itoa(i, 4)
if (b4 == b4[-1..0]) {
var b16 = Conv.itoa(i, 16)
if (b16 == b16[-1..0]) numbers.add(i)
}
}
}
for (chunk in Lst.chunks(numbers, 8)) Fmt.print("$,6d", chunk)
System.print("\nFound %(numbers.count) such numbers.")</lang>
{{out}}
<pre>
Numbers under 25,000 in base 10 which are palindromic in bases 2, 4 and 16:
0 1 3 5 15 17 51 85
255 257 273 771 819 1,285 1,365 3,855
4,095 4,097 4,369 12,291 13,107 20,485 21,845
Found 23 such numbers.
</pre>
| |||