RosettaCodeData/Task/Binary-digits/Tcl/binary-digits-3.tcl

4 lines
68 B
Tcl

foreach n {0 1 5 50 9000} {
puts [format "%4u: %b" $n $n]
}