39 lines
674 B
Plaintext
39 lines
674 B
Plaintext
dim sys ints(100)
|
|
ints=>
|
|
0, 1, 2, 4, 6, 7, 8, 11, 12, 14,
|
|
15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
|
|
25, 27, 28, 29, 30, 31, 32, 33, 35, 36,
|
|
37, 38, 39
|
|
|
|
function ShowRange(sys*i) as string
|
|
'==================================
|
|
pr=""
|
|
n=0
|
|
e=0
|
|
j=0
|
|
k=-1
|
|
do
|
|
j++
|
|
n=i(j)
|
|
e=i(j+1)
|
|
if e<j then
|
|
exit do
|
|
end if
|
|
if e=n+1 and i(j+2)=n+2 then 'LOOKAHEAD
|
|
if k=-1 then k=n
|
|
else
|
|
if k>=0 then
|
|
pr+=k "-" i(j+1) ", " 'RANGE OF VALUES
|
|
j++
|
|
k=-1
|
|
else
|
|
pr+=n ", " 'SINGLE VALUES
|
|
end if
|
|
end if
|
|
end do
|
|
return left pr, len(pr)-2
|
|
end function
|
|
|
|
|
|
print ShowRange ints
|