记录编号 135276 评测结果 AAAAAAAAAAAAAAAA
题目名称 翻译玛雅著作 最终得分 100
用户昵称 GravatarFoolMike 是否通过 通过
代码语言 Pascal 运行时间 0.293 s
提交时间 2014-10-31 21:11:25 内存使用 0.17 MiB
显示代码纯文本
var
g,l,wei,t,ans:longint;
w,s:ansistring;
f,f1:array['A'..'z']of longint;
ch:char;
begin
assign(input,'writing.in');
assign(output,'writing.out');
reset(input);
rewrite(output);
readln(g,l);
readln(w);
readln(s);
for wei:=1 to g do
  begin
  inc(f1[w[wei]]);
  inc(f[s[wei]]);
  end;
repeat
  t:=1;
  for ch:='A' to 'z' do
  if f[ch]<>f1[ch] then
    begin
    t:=0;
    break;
    end;
  ans:=ans+t;
  if wei<>l then
    begin
    inc(wei);
    dec(f[s[wei-g]]);
    inc(f[s[wei]]);
    end
  else
    break;
  until 1>2;
writeln(ans);
close(input);close(output);
end.