7 lines
177 B
Tcl
7 lines
177 B
Tcl
% binary scan [binary format q nan] q nan
|
|
1
|
|
% puts $nan
|
|
NaN
|
|
% # Show that it is a real NaN in there
|
|
% expr {$nan+0}
|
|
can't use non-numeric floating-point value as operand of "+"
|