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

6 lines
225 B
Smalltalk

[s atEnd] whileFalse: [s next. ...].
[foo notNil] whileTrue: [s next. ...].
[...] doWhile: [ ... someBooleanExpression ].
[...] doUntil: [ ... someBooleanExpression ].
[:exit | ... cold ifTrue:[exit value]. ...] loopWithExit