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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

27
Task/Loops-Wrong-ranges/AppleScript/loops-wrong-ranges.applescript Normal file
View file

@ -0,0 +1,27 @@
on looptest(start, finish, step)
set a to {}
try
repeat with i from start to finish by step
set a to a & i
if length of a = 10 then exit repeat
end repeat
return a
on error
return "Not allowed"
end try
end looptest
set test_cases to {{"Normal", -2, 2, 1}, ¬
{"Zero step", -2, 2, 0}, ¬
{"Step away from stop value", -2, 2, -1}, ¬
{"Step value > stop value", -2, 2, 10}, ¬
{"Start > stop, positive step", 2, -2, 1}, ¬
{"Start = stop, positive step", 2, 2, 1}, ¬
{"Start = stop, negative step", 2, 2, -1}, ¬
{"Start = stop, zero step", 2, 2, 0}, ¬
{"Start, stop, step all zero", 0, 0, 0}}
repeat with lst in test_cases
log item 1 of lst
log looptest(item 2 of lst, item 3 of lst, item 4 of lst)
end repeat