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 Stu
5 hours ago
tcl by emiliano
9 hours ago
tcl by Stu
18 hours ago
tcl by Stu
20 hours ago
tcl by Stu
20 hours ago
tcl by Stu
22 hours ago
tcl by de
2 days ago
tcl by Stu
6 days ago
tcl by mookie
12 days ago
tcl by Stu
14 days ago
Submit
New paste
Documentation
From Jabber