Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
19
Task/Loops-Nested/AppleScript/loops-nested-2.applescript
Normal file
19
Task/Loops-Nested/AppleScript/loops-nested-2.applescript
Normal file
|
|
@ -0,0 +1,19 @@
|
|||
on loopDemo(array, stopVal)
|
||||
set out to {}
|
||||
repeat with i from 1 to (count array)
|
||||
set inRow to item i of array
|
||||
set len to (count inRow)
|
||||
set n to beginning of inRow
|
||||
set outRow to {n}
|
||||
set j to 2
|
||||
repeat until ((j > len) or (n = stopVal)) # <--
|
||||
set n to item j of inRow
|
||||
set end of outRow to n
|
||||
set j to j + 1
|
||||
end repeat
|
||||
set end of out to outRow
|
||||
if (n = stopVal) then exit repeat # <--
|
||||
end repeat
|
||||
|
||||
return out
|
||||
end loopDemo
|
||||
Loading…
Add table
Add a link
Reference in a new issue