9 lines
113 B
Tcl
9 lines
113 B
Tcl
|
% set a 1.0000000000000001
|
||
|
|
1.0000000000000001
|
||
|
|
% expr $a
|
||
|
|
1.0
|
||
|
|
% IsNumberIntegral $a
|
||
|
|
1
|
||
|
|
% puts $a
|
||
|
|
1.0000000000000001
|