洛谷1540 机器翻译

题目

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

题解

  明明是蠢蠢的模拟，可是我提交了5遍才对

  因为数据真的很小，所以直接用s存放了哪些数，然后再弄一个头指针和一个尾指针，满了就把头指针右移，每读入一个s中没有的数都右移尾指针，最后输出尾指针。
  真的很简单！时间复杂度O(n)

代码

var
  n,m,i,j,k,ans,c:longint;
  s:array[1..2000]of longint;
  a:array[1..1000]of boolean;
begin
  readln(m,n);
  fillchar(a,sizeof(a),false);
  k:=1;c:=0;
  for i:=1 to n do
    begin
      read(j);
      if not a[j] then
        begin
          inc(c);
          s[c]:=j;
          a[j]:=true;
          if c-k+1>m then begin a[s[k]]:=false;inc(k);end;
        end;
    end;
  writeln(c);
end.