Posted to tcl by pooryorick at Sun May 27 16:15:42 GMT 2018view raw

  1. #! /bin/env tclsh
  2.  
  3. proc firstfloat {} {
  4. while 1 {
  5. set x 0.[string repeat 0 [incr i]]1
  6. if {$x == 0} {
  7. return $best
  8. }
  9. set best $x
  10. }
  11. }
  12. puts [firstfloat]
  13.