aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Task/Loops-Wrong-ranges/Smalltalk/loops-wrong-ranges-1.st Normal file
View file

@ -0,0 +1 @@
startExpr to:stopExpr by:incExpr do:[..]

32
Task/Loops-Wrong-ranges/Smalltalk/loops-wrong-ranges-2.st Normal file
View file

@ -0,0 +1,32 @@
MAX_ITER := 15.
#(
(-2 2 1 'Normal')
(-2 2 0 'Zero increment')
(-2 2 -1 'Increments away from stop value')
(-2 2 10 'First increment is beyond stop value')
(2 -2 1 'Start more than stop: positive increment')
(2 2 1 'Start equal stop: positive increment')
(2 2 -1 'Start equal stop: negative increment')
(2 2 0 'Start equal stop: zero increment')
(0 0 0 'Start equal stop equal zero: zero increment')
) do:[:testParams |
|start stop inc info countIter|
start := testParams first.
stop := testParams second.
inc := testParams third.
info := testParams fourth.
Transcript show:(info paddedTo:50 with:$.).
countIter := 0.
[:exit |
start to:stop by:inc do:[:n |
Transcript space; show:n.
(countIter := countIter + 1) > MAX_ITER ifTrue:[
Transcript show:'...'.
exit value
].
].
] valueWithExit.
Transcript cr.
].