TCL整数比较

我想知道如何确认tcl中的两个整数彼此接近？ 换句话说，如果两个数字之间的值差小于或等于5，则结果为pass-else-FAIL

有人能告诉我怎么用tcl写吗？或者建议我可以使用哪个操作符来实现这一点

谢谢，

---

Kallesh

两个数字

a

和

b

之间的差值等于

$a-$b

。该差值可以是负数或正数（如果相等，则为零），但为了便于比较，您需要差值的绝对值（幅度），即忽略符号的值。你可以通过abs（$a-$b）获得。剩下要做的唯一一件事是将其与5进行比较：

abs（$a-$b）函数计算一个数字的大小，即，如果它是负数，则它将其取反。然后你只需要看看两个整数之间的差值大小，看看它是否在你关心的阈值范围内

if {abs($a - $b) <= 5} {
    # Values are indeed "close enough"
}

if{abs（$a-$b）
if{[expr{…}]}
？真的吗？哦，不。彼得·勒韦林被他自己的解释缠住了，第十七部分……为我辩护，时间还早，我昨晚有一个很热的约会（即一个好朋友和她的小狗）。
if {abs($a - $b) <= 5} {
    # Values are indeed "close enough"
}