Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
38
Task/Range-expansion/LiveCode/range-expansion-1.livecode
Normal file
38
Task/Range-expansion/LiveCode/range-expansion-1.livecode
Normal file
|
|
@ -0,0 +1,38 @@
|
|||
function range beginning ending stepping
|
||||
local tRange, tBegin, tEnd, tstep
|
||||
if stepping is empty or stepping is 0 then
|
||||
put 1 into tstep
|
||||
else
|
||||
put abs(stepping) into tstep
|
||||
end if
|
||||
|
||||
if ending is empty or isNumber(ending) is not true then
|
||||
put 0 into tEnd
|
||||
else
|
||||
put ending into tEnd
|
||||
end if
|
||||
|
||||
if beginning is empty or isNumber(beginning) is not true then
|
||||
put 0 into tBegin
|
||||
else
|
||||
put beginning into tBegin
|
||||
end if
|
||||
|
||||
repeat with r = tBegin to tEnd step tstep
|
||||
put space & r after tRange
|
||||
end repeat
|
||||
return word 1 to -1 of tRange
|
||||
end range
|
||||
|
||||
function expandRange rangeExpr
|
||||
put rangeExpr into tRange
|
||||
split tRange by comma
|
||||
repeat with n = 1 to the number of elements of tRange
|
||||
if matchText(tRange[n],"^(\-*\d+)\-(\-*\d+)",beginning, ending) then
|
||||
put range(beginning, ending, 1) & space after z
|
||||
else
|
||||
put tRange[n] & space after z
|
||||
end if
|
||||
end repeat
|
||||
return z
|
||||
end expandRange
|
||||
2
Task/Range-expansion/LiveCode/range-expansion-2.livecode
Normal file
2
Task/Range-expansion/LiveCode/range-expansion-2.livecode
Normal file
|
|
@ -0,0 +1,2 @@
|
|||
expandRange("-6,-3--1,3-5,7-11,14,15,17-20")
|
||||
-6 -3 -2 -1 3 4 5 7 8 9 10 11 14 15 17 18 19 20
|
||||
Loading…
Add table
Add a link
Reference in a new issue