比赛 20140425 评测结果 AAAAAAAAAAAATT
题目名称 子序列 最终得分 85
用户昵称 .已注销 运行时间 2.002 s
代码语言 Pascal 内存使用 0.26 MiB
提交时间 2014-04-25 09:22:57
显示代码纯文本
PROGRAM subsequence;//COGS1610;
CONST
  fin='subsequence.in';
  fout='subsequence.out';
TYPE
  bb=string[53];
VAR
  a:array[1..100005]of char;
  b:bb;
  i,m,l,lb:longint;
FUNCTION pei:boolean;
  var i,j:longint;
  begin
    j:=0;
    for i:=1 to lb do
    begin
      repeat
        inc(j);
        if a[j]=b[i] then break;
      until j>l;
      if j>l then exit(false);
    End;
    exit(true);
  End;
BEGIN
  assign(input,fin);reset(input);
  assign(output,fout);rewrite(output);
  l:=0;
  repeat
    inc(l);
    read(a[l]);
  until eoln;
  readln;
  readln(m);
  for i:=1 to m do
  begin
    readln(b);
    lb:=length(b);
    if pei then writeln('Yes')
           else writeln('No');
  End;
  close(output);
END.