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

m
(Added Arturo implementation)
Line 276:
print [
pad (to :string 0)++" :" 14
pad.right join to [:string] digits.base:2 0 3837 "->"
join to [:string] digits.base:3 0
]
Line 291:
print [
pad (to :string n)++" :" 14
pad.right join to [:string] digits.base:2 n 3837 "->"
join to [:string] digits.base:3 n
]
Line 306:
{{out}}
 
<pre> 0 : 0 -> 0
1 : 1 -> 1
6643 : 1100111110011 -> 100010001
1422773 : 101011011010110110101 -> 2200021200022
5415589 : 10100101010001010100101 -> 101012010210101
90396755477 : 1010100001100000100010000011000010101 -> 22122022220102222022122</pre>
 
=={{header|C}}==
1,532

edits