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 Bradipo
1 days ago
tcl by Bradipo
1 days ago
tcl by apn
1 days ago
tcl by Bradipo
3 days ago
tcl by apn
21 days ago
tcl by apn
21 days ago
tcl by bohagan
22 days ago
tcl by archie12341234
27 days ago
tcl by kevin_walzer
28 days ago
tcl by cgm
51 days ago
Submit
New paste
Documentation
From Jabber