NOIP2010 机器翻译 题解

描述

小晨的电脑上安装了一个机器翻译软件，他经常用这个软件来翻译英语文章。

这个翻译软件的原理很简单，它只是从头到尾，依次将每个英文单词用对应的中文含义来替换。对于每个英文单词，软件会先在内存中查找这个单词的中文含义，如果内存中有，软件就会用它进行翻译；如果内存中没有，软件就会在外存中的词典内查找，查出单词的中文含义然后翻译，并将这个单词和译义放入内存，以备后续的查找和翻译。

假设内存中有M个单元，每单元能存放一个单词和译义。每当软件将一个新单词存入内存前，如果当前内存中已存入的单词数不超过M-1，软件会将新单词存入一个未使用的内存单元；若内存中已存入M个单词，软件会清空最早进入内存的那个单词，腾出单元来，存放新单词。

假设一篇英语文章的长度为N个单词。给定这篇待译文章，翻译软件需要去外存查找多少次词典？假设在翻译开始前，内存中没有任何单词。

格式

输入格式

输入文件共2行。每行中两个数之间用一个空格隔开。

第一行为两个正整数M和N，代表内存容量和文章的长度。

第二行为N个非负整数，按照文章的顺序，每个数（大小不超过1000）代表一个英文单词。文章中两个单词是同一个单词，当且仅当它们对应的非负整数相同。

输出格式

包含一个整数，为软件需要查词典的次数。

样例1

样例输入1[复制]

3 71 2 1 5 4 4 1

样例输出1[复制]

5

限制

每个测试点1s

提示

对于10%的数据有M=1，N≤5。

对于100%的数据有0<=N<=100，0<=M<=1000。

整个查字典过程如下：每行表示一个单词的翻译，冒号前为本次翻译后的内存状况：
空：内存初始状态为空。

1． 1：查找单词1并调入内存。

2． 1 2：查找单词2并调入内存。

3． 1 2：在内存中找到单词1。

4． 1 2 5：查找单词5并调入内存。

5． 2 5 4：查找单词4并调入内存替代单词1。

6． 2 5 4：在内存中找到单词4。

7． 5 4 1：查找单词1并调入内存替代单词2。

共计查了5次词典。

解一：

队列，范围很小，所以暴力查找+暴力维护左右端点就行了，不用循环队列。

var

  q:array[-1000..2000] of longint;  s,e,i,j,w,ans,m,n:longint;  flag:boolean;function size:longint;begin  exit(e-s+1);end;begin  readln(m,n);  s:=1;  e:=0;  ans:=0;  fillchar(q,sizeof(q),0);  for i:=1 to n do  begin    read(w);    flag:=false;        for j:=s to e do      if q[j]=w then flag:=true;    if not flag   //内存中没有    then begin           ans:=ans+1;           e:=e+1;           q[e]:=w;           if size>m then s:=s+1;  //出队列         end;  end;  writeln(ans);end.

解二：字符串优化

var ram:ansistring;  i,j,k,l,m,n,sum,num:longint;function sr(x:longint):string;begin  str(x,sr);end;beginassign(input,'translate.in');reset(input);assign(output,'translate.out');reset(output);readln(m,n);  num:=0;  sum:=0;  ram:='';  for i:=1 to n do begin    read(k);    if pos('('+sr(k)+')',ram)=0 then begin      inc(sum);      if num=m then begin        delete(ram,1,pos(')',ram));        dec(num);      end;      ram:=ram+'('+sr(k)+')';      inc(num);    end;  end;  readln;  writeln(sum);  close(input);  close(output);  end.