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 oldlaptop
10 days ago
tcl by oldlaptop
11 days ago
tcl by mookie
15 days ago
tcl by mookie
16 days ago
tcl by georgtree
17 days ago
tcl by georgtree
17 days ago
tcl by schelte
32 days ago
tcl by emiliano
40 days ago
tcl by fvogel
40 days ago
tcl by emiliano
40 days ago
Submit
New paste
Documentation
From Jabber