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 schelte
9 days ago
tcl by emiliano
16 days ago
tcl by fvogel
16 days ago
tcl by emiliano
16 days ago
tcl by rmax
33 days ago
tcl by oldlaptop
33 days ago
tcl by schelte
34 days ago
tcl by Bradipo
46 days ago
tcl by kbk
56 days ago
tcl by oldlaptop
59 days ago
Submit
New paste
Documentation
From Jabber