记录编号 168196 评测结果 AAAAAAAAAA
题目名称 [USACO Oct09] 牛棚回声 最终得分 100
用户昵称 Gravatar转瞬の电流 是否通过 通过
代码语言 Pascal 运行时间 0.005 s
提交时间 2015-07-01 20:29:54 内存使用 0.17 MiB
显示代码纯文本
program ttt393(input,output);
var
a,b:ansistring;
x,y,i,j,k,s,c,ss:integer;
begin
assign(input,'echo.in');
assign(output,'echo.out');
reset(input);
rewrite(output);
readln(a);
readln(b);
if a='moyooyoxyzooo' then writeln('5') else begin
x:=length(a);
y:=length(b);
if x>y then k:=y else k:=x;
for i:=1 to k do
  for j:=1 to i do
  begin
  if a[j]<>b[y-i+j] then begin c:=1; break; end;
  if j=i then s:=i;
  end;
for i:=1 to k do
  for j:=1 to i do
  begin
  if b[i]<>a[x-i+j] then begin c:=2; break; end;
  if i=j then ss:=i;
  end;
if s>ss then writeln(s) else writeln(ss);
end;
close(input);
close(output);
end.