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
lilypond by Bradipo
1 days ago
tcl by cgm
11 days ago
tcl by dandyn
20 days ago
tcl by Stu
21 days ago
tcl by dandyn
23 days ago
tcl by Stu
25 days ago
tcl by philbr-t
30 days ago
tcl by arjen
32 days ago
tcl by brain
39 days ago
tcl by mjanssen
41 days ago
Submit
New paste
Documentation
From Jabber