Posted to tcl by Bradipo at Tue Jan 29 18:06:58 GMT 2013view raw

  1. % expr {$t == 0 ? "JACK" : "JILL"}
  2. JACK
  3. % expr {$t == 0 ? "JACK" : [format %8.2f [expr $t / 3600.0]]}
  4. JACK
  5. % expr {$t == 0 ? "INF" : [format %8.2f [expr $t / 3600.0]]}
  6. floating-point value too large to represent
  7.