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 mookie
2 days ago
tcl by dandyn
9 days ago
tcl by Bradipo
9 days ago
tcl by Bradipo
9 days ago
tcl by oldlaptop
33 days ago
tcl by oldlaptop
34 days ago
tcl by mookie
39 days ago
tcl by mookie
39 days ago
tcl by georgtree
40 days ago
tcl by georgtree
40 days ago
Submit
New paste
Documentation
From Jabber