用TCL编写Stein算法求GCD时，&位运算遇非数字字符串操作数报错求助

报错原因 #

你遇到的can't use non-numeric string as operand of '&'错误，核心是参与位与运算&的操作数不是TCL能识别的整数类型。TCL的位运算要求操作数必须是整数，如果你的变量是字符串格式（比如从输入读取的原始内容、带引号的非数字赋值），就会触发这个错误。

解决步骤 #

1. 强制转换变量为整数类型 #

所有要参与运算的变量，必须先转换为整数。常用两种方式：

• 用expr {int($var)}强制转换：

  set num1 [expr {int($num1)}]
  

• 用scan解析字符串为整数：

  scan $num1 "%d" num1
  

2. 避免错误的变量赋值 #

不要给数值变量加多余的引号，比如：

• 错误写法：set a "123"（这会把a设为字符串类型）
• 正确写法：set a 123 或 set a [expr {123}]

修正后的Stein算法示例代码 #

proc stein_gcd {a b} {
    # 转换为非负整数，处理负数和字符串输入
    set a [expr {abs(int($a))}]
    set b [expr {abs(int($b))}]

    if {$a == $b} {
        return $a
    }
    if {$a == 0} {
        return $b
    }
    if {$b == 0} {
        return $a
    }

    # 判断奇偶性（此时a、b已确保是整数，可正常使用&运算）
    set a_even [expr {($a & 1) == 0}]
    set b_even [expr {($b & 1) == 0}]

    if {$a_even && $b_even} {
        return [expr {2 * [stein_gcd [expr {$a >> 1}] [expr {$b >> 1}]]}]
    } elseif {$a_even && !$b_even} {
        return [stein_gcd [expr {$a >> 1}] $b]
    } elseif {!$a_even && $b_even} {
        return [stein_gcd $a [expr {$b >> 1}]]
    } else {
        # 均为奇数，取差值的一半递归
        if {$a > $b} {
            return [stein_gcd [expr {($a - $b) >> 1}] $b]
        } else {
            return [stein_gcd [expr {($b - $a) >> 1}] $a]
        }
    }
}

# 测试交互
puts "输入第一个数："
gets stdin num1
set num1 [expr {int($num1)}]

puts "输入第二个数："
gets stdin num2
set num2 [expr {int($num2)}]

set result [stein_gcd $num1 $num2]
puts "$num1 和 $num2 的最大公约数是：$result"

关键说明 #

• 在stein_gcd过程开头，先用int()转换输入参数，再用abs()处理负数（因为最大公约数针对非负数），确保后续所有位运算的操作数都是整数。
• Genus环境下的TCL语法和标准TCL基本一致，这个修正逻辑可以直接适用。

内容的提问来源于stack exchange，提问作者Roba-Barham