Non-decimal radices/Output: Difference between revisions

m
(Added Arturo implementation)
Line 1,022:
end</lang>
 
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>Scan[Print[IntegerString[#, 2], ",", IntegerString[#, 8],
",",#, ",",IntegerString[#, 16],",", IntegerString[#, 36]]&, Range[38]]</lang>
{{out}}
 
<pre>1,1,1,1,1
Output:
 
<pre>
1,1,1,1,1
10,2,2,2,2
11,3,3,3,3
1,111

edits