Anonymous user
Binary digits: Difference between revisions
Simpler Tcl version
(→{{header|jq}}: modernize) |
(Simpler Tcl version) |
||
Line 4,707:
10001100101000
</pre>
<br>
Or you can use the builtin format:
<lang tcl>foreach n {0 1 5 50 9000} {
puts [format "%4u: %b" $n $n]
}</lang>
{{out}}
<pre> 0: 0
1: 1
5: 101
50: 110010
9000: 10001100101000</pre>
=={{header|TI-83 BASIC}}==
|