题目描述 Description
小晨的电脑上安装了一个机器翻译软件，他经常用这个软件来翻译英语文章。 这个翻译软件的原理很简单，它只是从头到尾，依次将每个英文单词用对应的中文含义 来替换。对于每个英文单词，软件会先在内存中查找这个单词的中文含义，如果内存中有， 软件就会用它进行翻译；如果内存中没有，软件就会在外存中的词典内查找，查出单词的中 文含义然后翻译，并将这个单词和译义放入内存，以备后续的查找和翻译。 假设内存中有M个单元，每单元能存放一个单词和译义。每当软件将一个新单词存入 内存前，如果当前内存中已存入的单词数不超过M?1，软件会将新单词存入一个未使用的 内存单元；若内存中已存入M个单词，软件会清空最早进入内存的那个单词，腾出单元来， 存放新单词。 假设一篇英语文章的长度为N个单词。给定这篇待译文章，翻译软件需要去外存查找多 少次词典？假设在翻译开始前，内存中没有任何单词。
输入描述 Input Description
输入共2行。每行中两个数之间用一个空格隔开。 第一行为两个正整数M和N，代表内存容量和文章的长度。 第二行为N个非负整数，按照文章的顺序，每个数（大小不超过1000）代表一个英文 单词。文章中两个单词是同一个单词，当且仅当它们对应的非负整数相同。
输出描述 Output Description
输出共1行，包含一个整数，为软件需要查词典的次数。
样例输入 Sample Input
3 7
1 2 1 5 4 4 1
样例输出 Sample Output
5
数据范围及提示 Data Size & Hint
【输入输出样例1说明】 整个查字典过程如下：每行表示一个单词的翻译，冒号前为本次翻译后的内存状况： 空：内存初始状态为空。 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次词典。
【数据范围】 对于10%的数据有M=1，N≤5。 对于100%的数据有0≤100，0≤1000。
解题思路
本题是2010年中最水的一个题，利用队列来操作，查询一个单词使其入队，队伍已满试第一个字母出队，不断查询更改……不过要特别注意队列初始化，因为输入数据中有0（第一次就是错在这）。
program translate;
uses math;
var a,b:array[0..1000] of longint;
m,n,flag,sum,i,j,ans,k:longint;
begin
read(m,n);
for i:=1 to n do read(a[i]);
fillchar(b,sizeof(b),byte(-1));
for i:=1 to n do
begin
flag:=0;
k:=max(1,sum-m+1);
for j:=k to k+m-1 do
begin
if b[j]=a[i] then
begin
flag:=1;
break;
end;
end;
if flag=0 then
begin
inc(ans);
inc(sum);
b[sum]:=a[i];
end;
end;
writeln(ans);
end.