猴子摘桃

Description

　　动物园内最受欢迎就是猴子了，因为它们除了能爬能跳外还会很多技能。其中A类猴子特别擅长爬树摘桃，而B类猴子擅长把桃子掰成两半。

　　A类猴子有N只,编号为1到N，B类猴子有M只，编号为1到M。A类猴子中的第K只摘到第一个桃子需要花费A_k秒，此后每B_k秒就能摘到桃子；B类猴子中的第K只掰开第一个桃子需要花费C_k秒，此后每D_k秒就能掰开一个桃子。

　　不幸的是，B类猴子非常具有侵略性，两种猴子不能同时待在场地内，因此，园长必须在A类猴子摘完所有桃子后立刻把它们带走，然后立刻让B类猴子进园；同样当B类猴子把所有桃子全部掰开后也不能待在场地内太久，因为它们之间也会发生冲突，所有园长将在B类猴子掰开所有桃子后立刻送走它们。

　　园长带走猴子和猴子进园的速度非常快，时间忽略不计。

　　Alice非常喜欢看B类猴子掰桃子，告诉你表演的总时间，但不知道一共有多少个桃子，请你帮Alice计算B类猴子进入动物园的时刻。

Input

　　输入文件第一行包含一个整数T(1<=T<=1000000000)，表示猴子表演的总时间。

　　接下来一行包含一个整数N(1<=N<=100)，表示A类猴子的数量。

　　接下来N行，每行包含两个整数A_k和B_k（1<=A_k,B_k<=1000000000），描述A类每只猴子摘桃的速度。

　　接下来一行包含一个整数M(1<=M<=100)，表示B类猴子的数量。

　　接下来M行，每行包含两个整数C_k和D_k(1<=C_k,D_k<=1000000000)，描述B类每只猴子掰桃的速度。

Output

　　输出两类猴子进园的时刻相差多少秒。

Sample Input

输入1：

12

1

3 1

1

5 1

输入2：

20

2

3 2

1 3

3

3 1

4 1

5 1

Sample Output

输出1：

5

输出2：

13

Data Constraint

Hint

【样例说明】

　　样例1中，树上有3个桃子：

　　(1) A类猴子在3秒时摘下第一个桃子，在4秒时摘下第二个桃子，在5秒时摘下第三个桃子；

　　(2) 在第5秒，园长把A类猴子带走，此时B类猴子进园；

　　(3) B类猴子在10秒时掰开第一个桃子，在11秒时掰开第二个桃子，在第12秒时掰开第三个桃子；

　　(4) 在12秒时园长进园带走B类猴子。

分析：我们设s为A猴子用的时间，B猴子为T-s,我们用二分求摘的和开的桃子数，判断即可。

呵呵！如果错了，我给你们一个非常BT的数据。

输入： 输出：88 （注意，二分时小心哦，F8以下就知道了）

标程：

var

ak,bk,ck,dk:array [1..100] of longint;

n,m,t,i,j,l,r,mid:longint;

b:boolean;

function check(x,y:longint):boolean;

vari,maxn,maxn2,s:longint;

begin

maxn:=0; maxn2:=0;

fori:=1 to n do

ifx>=ak[i] then

maxn:=maxn+(x-ak[i]) div bk[i]+1;

s:=t-x;

fori:=1 to m do

ifs>=ck[i] then

maxn2:=maxn2+(s-ck[i]) div dk[i]+1;

ify=0 then

begin

ifmaxn=maxn2 then

begin

writeln(x);

halt;

end;

ifmaxn>maxn2 then exit(false)

else exit(true);

end

else

begin

if maxn<maxn2 then

begin

writeln(x);

halt;

end;

end;

end;

begin

read(t,n);

fori:=1 to n do

readln(ak[i],bk[i]);

readln(m);

fori:=1 to m do

readln(ck[i],dk[i]);

l:=1;r:=t;

repeat

mid:=(l+r) div 2;

ifcheck(mid,0) then l:=mid+1 else r:=mid-1;

untill>r;

check(l,1);

check(r,1);

end.