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