5 14特長生模擬 朋友

2021-08-01 06:14:59 字數 1390 閱讀 5056

mxy 即將前往新世界。

在前往新世界的過程中,ta 遇見了兩種人。一種是只和lowb 做朋友,即當且僅當自己

的能力值大於對方時他們會成為朋友,另一種是大神我們做朋友,即當且僅當自己的能力

值小於對方時他們會成為朋友。

現在告訴你兩種人的能力值。請你計算一共有多少對友好關係。

排序+二分,因為排好序了,答案直接累加

時間複雜度o(n log m)

type

arr=array[1..20000]of longint;

var m,n,i,j,k,l,r,s:longint;

a,b:arr;

procedure

qsort

(l,r:longint);

var i,j,key,t:longint;

begin

if l>=r then

exit;

i:=l;j:=r;

key:=b[(l+r) div

2]; repeat

while (b[i]do inc(i);

while (b[j]>key) do dec(j);

if i<=j then

begin

t:=b[i];b[i]:=b[j];b[j]:=t;

inc(i);dec(j);

end;

until i>j;

qsort(i,r);

qsort(l,j);

end;

begin

assign(input,'friend.in');

assign(output,'friend.out');

reset(input);rewrite(output);

readln(n,m);

for i:=1

to n do

read(a[i]);

for i:=1

to m do

read(b[i]);

qsort(1,m);

for i:=1

to n do

begin

l:=1;r:=m;k:=0;

while ldo

begin

j:=(l+r) div

2; if a[i]>b[j] then

begin k:=j;l:=j+1;end

else r:=j-1;

if (l=r)and(a[i]>b[r]) then inc(k);

end;

s:=s+k;

end;

writeln(s);

close(input);close(output);

end.

5 14特長生模擬 門票

mxy 正要經過新世界的大門。現在有很多人在門口排隊,每個人將會被發到乙個有效的通行密碼作為門票。乙個有 效的密碼由l 3 l 15 個小寫字母 a z 組成,至少有乙個母音 a e i o 或 u 和兩個子音 除去母音以外的音節 並且是按字母表順序出現的 例如,abc 是有效的,而 bac 不是 ...

特長生模擬 採藥

題目大意 凡凡要去採藥,他採的藥不僅要求揹包的總空間v能放得下所採的藥,還要求藥草的總質量不能超過凡凡所能承受的範圍m。現在給出n種珍惜的藥材,對於每個藥材凡凡都會精準地目測出其質量a i 體積b i 和價值c i 求凡凡所能採到的藥材的最大價值。注意 每種藥材只有乙個。30 資料,所有藥草質量a ...

特長生模擬 BIOtech(模擬)

2.1 題目描述 bob 發現了一群有趣的細胞。這群細胞排列成乙個n m 的矩陣。每個細胞有兩個狀態 放電狀態和平靜 狀態。它們每秒鐘都會按以下的規則轉換狀態 首先我們定義,乙個細胞的鄰居為它周圍的8 個細胞。同時設k 為某乙個細 胞的處於放電狀態的鄰居的個數。若k 2,則這個細胞在下一秒因電量不足...