记录编号 19237 评测结果 AAAAAAAAAAAAAAAA
题目名称 翻译玛雅著作 最终得分 100
用户昵称 Gravatarwo shi 刘畅 是否通过 通过
代码语言 Pascal 运行时间 0.753 s
提交时间 2010-09-29 21:05:05 内存使用 2.97 MiB
显示代码纯文本
var

  n,p,i,total:longint;

  ch:char;

  f,b:array['A'..'z']of longint;

  s:array[0..3000000]of char;

function yes:boolean;

var

  i:longint;

  j:char;

begin

  for j:='A' to 'z' do

  if f[j]<>b[j] then exit(false);

  exit(true);

end;

begin

  assign(input,'writing.in'); reset(input);

  assign(output,'writing.out'); rewrite(output);

  readln(p,n);

  for i:=1 to p do

  begin

    read(ch);

    inc(b[ch]);

  end;

  readln;

  for i:=1 to p do
  begin
    read(s[i]);
    inc(f[s[i]]);
  end;

  if yes then inc(total);

  for i:=p+1 to n do
  begin
    read(s[i]);
    inc(f[s[i]]);
    dec(f[s[i-p]]);
    if yes then inc(total);
  end;

  writeln(total);

  close(input);

  close(output);

end.