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 mjanssen
1 days ago
tcl by mjanssen
1 days ago
tcl by mjanssen
1 days ago
tcl by mjanssen
1 days ago
tcl by b0t
2 days ago
tcl by oldlaptop
2 days ago
tcl by aku
2 days ago
tcl by kbk
2 days ago
tcl by kbk
2 days ago
tcl by Jack
2 days ago
Submit
New paste
Documentation
From Jabber