smallest positive floating point number
Posted to
tcl
by pooryorick at Sun May 27 16:15:42 GMT 2018
view raw
#! /bin/env tclsh
proc
firstfloat {} {
while
1 {
set
x 0.[
string
repeat 0 [
incr
i]]1
if
{
$x
== 0} {
return
$best
}
set
best
$x
}
}
puts
[firstfloat]
Recent Posts
tcl by oldlaptop
8 days ago
tcl by oldlaptop
8 days ago
tcl by mookie
13 days ago
tcl by mookie
13 days ago
tcl by georgtree
15 days ago
tcl by georgtree
15 days ago
tcl by schelte
30 days ago
tcl by emiliano
37 days ago
tcl by fvogel
37 days ago
tcl by emiliano
37 days ago
Submit
New paste
Documentation
From Jabber