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 egavilan
19 hours ago
tcl by bch
6 days ago
tcl by Bradipo
6 days ago
tcl by aspect
6 days ago
tcl by Bradipo
6 days ago
tcl by Bradipo
6 days ago
tcl by Bradipo
7 days ago
lilypond by Bradipo
8 days ago
tcl by cgm
18 days ago
tcl by dandyn
27 days ago
Submit
New paste
Documentation
From Jabber