Is it good solution or may be there is better one
Posted to
tcl
by siqsuruq at Sun Aug 22 15:37:53 GMT 2021
view raw
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]
}
}
Recent Posts
tcl by schelte
8 days ago
tcl by emiliano
16 days ago
tcl by fvogel
16 days ago
tcl by emiliano
16 days ago
tcl by rmax
32 days ago
tcl by oldlaptop
33 days ago
tcl by schelte
33 days ago
tcl by Bradipo
46 days ago
tcl by kbk
56 days ago
tcl by oldlaptop
59 days ago
Submit
New paste
Documentation
From Jabber