Posted to tcl by siqsuruq at Sun Aug 22 15:37:53 GMT 2021view pretty
proc is_float_whole { float } { set a [expr abs($float - int($float)) > 0 ? 0 : 1] if {$a == 1} { return [expr int($float)] } else { return [string trimright $float 0] } }
proc is_float_whole { float } { set a [expr abs($float - int($float)) > 0 ? 0 : 1] if {$a == 1} { return [expr int($float)] } else { return [string trimright $float 0] } }