Range modifications: Difference between revisions
m
→{{header|Phix}}: added high range
m (→{{header|Phix}}: moved a printf(), added ^^ markers) |
m (→{{header|Phix}}: added high range) |
||
Line 350:
<lang Phix>requires("0.8.2") -- (uses latest apply() functionality)
function add(sequence ranges,
--
-- eg {} + 9 --> {{9,9}} -- [1]
Line 366:
if i>l then ranges &= {{v,v}} exit -- [1]
end if
if v>=lo and v<=hi then exit -- [2]
elsif v=lo-1 then ranges[i][1] = v exit -- [3]
Line 386:
end function
function del(sequence ranges,
--
-- eg {{1,2}} - 1 --> {{2,2}} -- [1]
Line 395:
--
for i=1 to length(ranges) do
if v>=lo and v<=hi then
if v=lo then
Line 430:
remove 9
remove 7
Start with "13-14,22-22,100000999999-100001000000"
remove 22
remove 100000999999
remove 100001000000
add 100001000001
remove 100001000001
""","\n",no_empty:=true)
Line 440 ⟶ 446:
ranges = split(range,",")
ranges = vslice(apply(true,scanf,{ranges,{"%d-%d"}}),1)
printf(1,"\
-- ^^ ^^
else
{{string op,
integer rid = routine_id(substitute(op,"remove","del"))
ranges = rid(ranges,v)
range = join(apply(true,sprintf,{{"%d-%d"},ranges}),",")
printf(1," %9s %
-- ^^ ^^
end if
end for</lang>
Line 454 ⟶ 460:
<small>(Note that all double-quotes in the output were deliberately added in the last two printf() statements, mainly to prove there are no unnecessary spaces, etc, and are (see ^^) obviously trivial to remove.)</small>
<pre>
add 77 -> "77-77"
add 79 -> "77-77,79-79"
add 78 -> "77-79"
remove 77 -> "78-79"
remove 78 -> "79-79"
remove 79 -> ""
add
remove
add
add
add
remove
add 26 -> "1-5,10-30"
add
add
remove 26 -> "1-5,7-7,9-25,27-30"
remove
remove
Start range: "13-14,22-22,100000999999-100001000000"
remove 22 -> "13-14,100000999999-100001000000"
remove 100000999999 -> "13-14,100001000000-100001000000"
remove 100001000000 -> "13-14"
add 100001000001 -> "13-14,100001000001-100001000001"
remove 100001000001 -> "13-14"
</pre>
|