TCL：将整数转换为任意长度的二进制字符串

Question

我需要一种将整数从小数形式转换为二进制形式的方法。我必须有可能指定输出位字符串的位长度。如果长度超过输入表示所需的长度，则根据输入的符号，额外的位将用0或1填充。如果指定的位长度太小，无法用于输入号，则该过程必须生成错误。

我认为应该使用TCL中的“二进制格式”程序存在解决方案，但我感到困惑。似乎该过程转化为十六进制。我不确定TCL是否可以按照内置功能进行直接转换，或者我必须编写自定义过程并逐步进行。

Answer 1

>命令可以将一个数字表示为二进制：

set num 42
set width 10
puts [format "%0*b" $width $num]
# => 0000101010

set num -42
puts [format "%0*b" $width $num]
# => 1111111111111111111111111111111111111111111111111111111111010110

格式是TCL的sprintf

---

％b在TCL 8.6中介绍。

该代码改编自 http://rosettacode.org/wiki/wiki/binary_digits

proc num2bin {num width} {
    binary scan [binary format "I" $num] "B*" binval
    return [string range $binval end-$width end]
}

num2bin 42 10
# => 00000101010

be be告诉我，我发现二进制格式/扫描也令人困惑。

---

另一种方法：

set num 42
set wid
set bin_digits {}

while {$num > 0} {
    lappend bin_digits [expr {$num % 2}]
    set n [expr {$num / 2}]
}
set binval [join [lreverse $bin_digits] ""]

puts [format {%0*s} $width $binval]

Answer 2

如果您使用的是TCL的版本太旧了，无法支持％B格式，则可以使用一次查看一位的PROC模拟它：

# Positive numbers only
proc num2binary {n width} {
    set bin ""
    while {$n > 0} {
        # Or set bin [string cat [expr {$n & 1}] $bin] in 8.6
        set bin "[expr {$n & 1}]$bin" 
        set n [expr {$n >> 1}]
    }
    format "%0*s" $width $bin
}

puts [num2binary 42 10]

此版本使用位操作和字符串而不是Modulo/部门和Glenn的列表。如果这是一个问题，可能会更有效。