Posted to tcl by Bradipo at Tue Jan 29 18:06:58 GMT 2013view pretty
% expr {$t == 0 ? "JACK" : "JILL"} JACK % expr {$t == 0 ? "JACK" : [format %8.2f [expr $t / 3600.0]]} JACK % expr {$t == 0 ? "INF" : [format %8.2f [expr $t / 3600.0]]} floating-point value too large to represent