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]
	}
}