2384 字符串

题目

小熊有一个由小写英文字母组成的字符串s = s1s2…sn。小熊想要计算s中有多少子串包含字符串“bear”，也就是找出满足字符串x(i, j)= sisi+1…sj 包含至少一个字符串“bear”的 (i, j)对数（1≤i≤j≤n）。
字符串x(i, j)包含字符串“bear”定义为存在一个整数k（i≤k≤j-3），满足sk=b，sk+1=e，sk+2=a，sk+3=r。
请帮助小熊解决这个问题。

题解

枚举i，暴力找到i之后第一个出现的“bear”的位置，然后更新答案。

时间复杂度：O（n2）
空间复杂度：O（n）

代码

var
  s:ansistring;
  i,j,len,k,t,n:longint;
  a:array[1..10000,1..2]of longint;
begin
  readln(s);
  len:=length(s);
  for i:=1 to len-3 do
    if (s[i]='b')and(s[i+1]='e')and(s[i+2]='a')and(s[i+3]='r') then
      begin
        inc(t);
        a[t,1]:=i;a[t,2]:=i+3;
      end;
  if t=0 then begin writeln('0');exit;end;
  for i:=1 to len-3 do
    for j:=i+3 to len do
      if j-i>=3 then
        for k:=1 to t do
          if (i<=a[k,1])and(j>=a[k,2]) then
            begin inc(n);break;end;
  writeln(n);
end.