floating-point - 检查 float 是否为 tcl 中的整数

Question

我是tcl的新人。我正在尝试检查给定数字是否为整数，但似乎找不到一种简单的方法来执行此操作。

所以我有一个 number2，它正在检查它是否在网格上。如果不是整数，则它不在网格上。

set numberOne 7.5
set grid 2.5
set numberTwo [expr ($numberOne/$grid) ]

if {[string is integer -strict $numberTwo} {
    do something
} else {
    do something else
}

上面的代码对我不起作用，因为 numberTwo 将作为 float 返回(在本例中为 3.0)

Python 有这样的东西:

x = 7.5
y = 2.5
z = x/y

if z%1 == 0
   then do something
else
   do something else

有没有办法在 tcl 中做类似的事情？如果不是另一种选择可能是 -

• 取 numberTwo 的十进制值并检查它是 0 还是非 0

所以取 6.555 的东西返回 555，取 6.0 返回 0。然后我可以这样做:

if {$value == 0} {then do something} else {do something else}

Answer 1

看来你可能不知道Tcl math functions .

if {$value == floor($value)} {

    // ...
}