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 Bradipo
1 days ago
tcl by Bradipo
1 days ago
tcl by apn
1 days ago
tcl by Bradipo
3 days ago
tcl by apn
21 days ago
tcl by apn
21 days ago
tcl by bohagan
22 days ago
tcl by archie12341234
27 days ago
tcl by kevin_walzer
28 days ago
tcl by cgm
51 days ago
Submit
New paste
Documentation
From Jabber