6 lines
68 B
Tcl
6 lines
68 B
Tcl
|
set i 1024
|
||
|
|
while {$i > 0} {
|
||
|
|
puts $i
|
||
|
|
set i [expr {$i / 2}]
|
||
|
|
}
|