Posted to tcl by pooryorick at Sun May 27 16:15:42 GMT 2018view pretty
#! /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]
#! /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]