5 lines
102 B
Smalltalk
5 lines
102 B
Smalltalk
|
number := 1024.
|
||
|
|
[ number > 0 ] whileTrue:
|
||
|
|
[ Transcript print: number; nl.
|
||
|
|
number := number // 2 ]
|