Numbers in base 10 that are palindromic in bases 2, 4, and 16: Difference between revisions
Content added Content deleted
(Added Algol 68) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: fix template syntax error) |
||
| Line 134: | Line 134: | ||
<lang perl6>put "{+$_} such numbers:\n", .batch(10)».fmt('%5d').join("\n") given |
<lang perl6>put "{+$_} such numbers:\n", .batch(10)».fmt('%5d').join("\n") given |
||
(^25000).grep: -> $n { all (2,4,16).map: { $n.base($_) eq $n.base($_).flip } }</lang> |
(^25000).grep: -> $n { all (2,4,16).map: { $n.base($_) eq $n.base($_).flip } }</lang> |
||
{{out} |
{{out}} |
||
<pre>23 such numbers: |
<pre>23 such numbers: |
||
0 1 3 5 15 17 51 85 255 257 |
0 1 3 5 15 17 51 85 255 257 |
||