RosettaCodeData/Task/Loops-While/Smalltalk/loops-while-2.st

5 lines
102 B
Smalltalk

number := 1024.
[ number > 0 ] whileTrue:
[ Transcript print: number; nl.
number := number // 2 ]