5 lines
104 B
Smalltalk
5 lines
104 B
Smalltalk
|
number := 1024.
|
||
|
|
[ number <= 0 ] whileFalse:
|
||
|
|
[ Transcript print: number; nl.
|
||
|
|
number := number // 2 ]
|