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
9 hours ago
tcl by mookie
6 days ago
tcl by dandyn
13 days ago
tcl by Bradipo
13 days ago
tcl by Bradipo
13 days ago
tcl by oldlaptop
37 days ago
tcl by oldlaptop
37 days ago
tcl by mookie
42 days ago
tcl by mookie
43 days ago
tcl by georgtree
44 days ago
Submit
New paste
Documentation
From Jabber