Description
操作系统中一种重要的存储管理技术就是虚拟内存技术。操作系统中允许进程同时运行，也就是并行。每个进程都有其相对独立的数据块（进程运行的过程中将对其进行读写操作）。理想的情况下，这些数据块都应该存放在内存中，这样才能实现高效的读写操作。但事实上，内存的容量有限，每个进程只能把一部分数据放在内存中，为了解决这个矛盾，提出了虚拟内存技术。虚拟内存技术的基本原理是：对进程而言，内存空间是无限大的，进程可以随意地读写数据，而对操作系统内部而言，利用外存来模拟扩充的内存空间，进程要求访问某个内存单元时，交由操作系统处理，操作系统首先在内存中查找该单元是否存在，如果存在，查找成功，否则转入外存查找（一定存在于外存中）。就存储介质的物理性质而言，内存的访问速度相对于外存要快得多，因此对于每个进程来说操作系统应该把那些访问次数较多的数据存放在内存中，而把那些访问次数很少的数据放在外存中。如何选择内存中暂留的数据是一个很值得研究的问题，下面介绍一个内存管理中比较常用的算法：内存中的数据以页为基本存储单位，进程的读写操作都针对页来进行。实际内存空间被分割成n页，虚拟内存空间的页数往往要多得多。某一时刻，进程需要访问虚存编号为P的页，该算法的执行步骤如下： a. 首先在内存中查找，如果该页位于内存中，查找成功，转d，否则继续下面的操作； b. 寻找内存中是否存在空页（即没有装载任何数据页的页面），若有，则从外存中读入要查找页，并将该页送至内存中的空页进行存储，然后转d，否则继续下面的操作； c. 在内存中寻找一个访问次数最少的页面（如果存在多个页面的访问次数同时为最少，则选取最早读入数据进入内存的那个页面），从外存中读入要查找页，替换该页。 d. 结束所谓访问次数是指从当前页面进入内存到该时刻被访问的次数，如果该页面以前进入过内存并被其它页面替换，那么前面的访问次数不应计入这个时刻的访问次数中。你的任务是设计一个程序实现上述算法。测试数据将会提供m条读写内存的命令，每条命题提供要求访问的虚拟内存页的编号P。你的程序要求能够模拟整个m条命令的全部执行过程，所有的命令是按照输入的先后执行的，最开始的时候内存中的n页全为空。
Input
第1行为n<10000和m<1000000，分别表示内存页数和读写内存命令条数。接下来有m行，其中第i+1行有一个正整数Pi<=10^9，表示第i条读写内存命令需要访问的虚拟内存页的编号。
Output
仅包含一个正整数，表示在整个模拟过程中，在内存中直接查找成功的次数（即上面的算法只执行步骤a的次数）。
Sample Input
3 8
1
1
2
3
4
2
5
4
Sample Output
1
先离散化虚拟内存页，然后用堆来维护最小查询次数，又因为次数相同时还要比较时间，所以我们把次数乘以（m+1）再加上时间，就可以了
const
maxn=;
maxm=;
var
n,m,tot,time,ans:longint;
q:array[..maxn]of longint;
a,b,c,h:array[..maxm]of longint;
flag:array[..maxm]of int64; procedure swap(var x,y:longint);
var
t:longint;
begin
t:=x;x:=y;y:=t;
end; procedure sort(l,r:longint);
var
i,j,z:longint;
begin
i:=l;
j:=r;
z:=a[(l+r)>>];
repeat
while a[i]<z do
inc(i);
while a[j]>z do
dec(j);
if i<=j then
begin
swap(a[i],a[j]);
swap(b[i],b[j]);
inc(i);
dec(j);
end;
until i>j;
if i<r then sort(i,r);
if j>l then sort(l,j);
end; procedure init;
var
i:longint;
begin
read(n,m);
for i:= to m do
begin
read(a[i]);
b[i]:=i;
end;
sort(,m);
for i:= to m do
if a[i]<>a[i-] then c[b[i]]:=i
else c[b[i]]:=c[b[i-]];
end; procedure down(x:longint);
var
i:longint;
begin
i:=x<<;
while i<=tot do
begin
if (flag[q[i+]]<flag[q[i]])and(i<tot) then inc(i);
if flag[q[x]]>flag[q[i]] then
begin
swap(q[i],q[x]);
h[q[i]]:=i;
h[q[x]]:=x;
x:=i;
i:=x<<;
end
else break;
end;
end; procedure up(x:longint);
var
i:longint;
begin
while x> do
begin
i:=x>>;
if flag[q[i]]>flag[q[x]] then
begin
swap(q[i],q[x]);
h[q[i]]:=i;
h[q[x]]:=x;
x:=i;
end
else break;
end;
end; procedure insert(x:longint);
begin
inc(tot);
h[x]:=tot;
q[tot]:=x;
flag[x]:=time+m+;
up(tot);
end; procedure delete;
begin
flag[q[]]:=;
swap(q[],q[tot]);
h[q[]]:=;
h[q[tot]]:=;
dec(tot);
down();
end; procedure work;
var
i,j:longint;
begin
for i:= to m do
begin
inc(time);
{for j:=1 to m do
write(flag[j],' ');
writeln;
for j:=1 to m do
write(h[j],' ');
writeln;}
if flag[c[i]]<> then
begin
inc(ans);
inc(flag[c[i]],m+);
down(h[c[i]]);
end
else
if tot<n then insert(c[i])
else
begin
delete;
insert(c[i]);
end;
end;
write(ans);
end; begin
init;
work;
end.