Find palindromic numbers in both binary and ternary bases: Difference between revisions

Content added Content deleted
(Added Arturo implementation)
Line 276: Line 276:
print [
print [
pad (to :string 0)++" :" 14
pad (to :string 0)++" :" 14
pad.right join to [:string] digits.base:2 0 38 "->"
pad.right join to [:string] digits.base:2 0 37 "->"
join to [:string] digits.base:3 0
join to [:string] digits.base:3 0
]
]
Line 291: Line 291:
print [
print [
pad (to :string n)++" :" 14
pad (to :string n)++" :" 14
pad.right join to [:string] digits.base:2 n 38 "->"
pad.right join to [:string] digits.base:2 n 37 "->"
join to [:string] digits.base:3 n
join to [:string] digits.base:3 n
]
]
Line 306: Line 306:
{{out}}
{{out}}


<pre> 0 : 0 -> 0
<pre> 0 : 0 -> 0
1 : 1 -> 1
1 : 1 -> 1
6643 : 1100111110011 -> 100010001
6643 : 1100111110011 -> 100010001
1422773 : 101011011010110110101 -> 2200021200022
1422773 : 101011011010110110101 -> 2200021200022
5415589 : 10100101010001010100101 -> 101012010210101
5415589 : 10100101010001010100101 -> 101012010210101
90396755477 : 1010100001100000100010000011000010101 -> 22122022220102222022122</pre>
90396755477 : 1010100001100000100010000011000010101 -> 22122022220102222022122</pre>


=={{header|C}}==
=={{header|C}}==
Retrieved from "https://rosettacode.org/wiki/Find_palindromic_numbers_in_both_binary_and_ternary_bases"