【问题描述】
小晨的电脑上安装了一个机器翻译软件，他经常用这个软件来翻译英语文章。
这个翻译软件的原理很简单，它只是从头到尾，依次将每个英文单词用对应的中文含义
来替换。对于每个英文单词，软件会先在内存中查找这个单词的中文含义，如果内存中有，
软件就会用它进行翻译；如果内存中没有，软件就会在外存中的词典内查找，查出单词的中
文含义然后翻译，并将这个单词和译义放入内存，以备后续的查找和翻译。
假设内存中有M 个单元，每单元能存放一个单词和译义。每当软件将一个新单词存入
内存前，如果当前内存中已存入的单词数不超过M−1，软件会将新单词存入一个未使用的
内存单元；若内存中已存入M 个单词，软件会清空最早进入内存的那个单词，腾出单元来，
存放新单词。
假设一篇英语文章的长度为N 个单词。给定这篇待译文章，翻译软件需要去外存查找多
少次词典？假设在翻译开始前，内存中没有任何单词。

 

【解题报告】

就一模拟。

 1 program translate;
 2 var
 3   can:boolean;
 4   m,n,i,x,k,tt,l,r:integer;
 5   dui:array[0..1001]of integer;
 6 
 7 procedure init;
 8 begin
 9   assign(input,'translate.in');
10   reset(input);
11   assign(output,'translate.out');
12   rewrite(output);
13 end;
14 
15 procedure outit;
16 begin
17   close(input);
18   close(output);
19 end;
20 
21 procedure main;
22 begin
23   readln(m,n);
24   fillchar(dui,sizeof(dui),$ff);
25   l:=1; r:=1; tt:=1;
26   read(x);
27   dui[1]:=x;
28   for k:=2 to n do
29   begin
30     can:=false;
31     read(x);
32     for i:=l to r do if dui[i]=x then
33     begin
34       can:=true;
35       break;
36     end;
37     if can then continue;
38     if r-l+1>=m then
39     begin
40       inc(r);
41       dui[r]:=x;
42       inc(l);
43       inc(tt);
44     end
45     else
46     begin
47       inc(r);
48       dui[r]:=x;
49       inc(tt);
50     end;
51   end;
52   writeln(tt);
53 end;
54 
55 begin
56   init;
57   main;
58   outit;
59 end.
60 
61