字符串

1. 字符串

(string.cpp/c/pas)

【问题描述】

小熊有一个由小写英文字母组成的字符串s = s₁s₂...s_n。小熊想要计算s中有多少子串包含字符串“bear”，也就是找出满足字符串x(i, j)= s_is_i+1…s_j包含至少一个字符串“bear”的     (i, j)对数（1≤i≤j≤n）。

字符串x(i,j)包含字符串“bear”定义为存在一个整数k（i≤k≤j-3），满足s_k=b，s_k+1=e，s_k+2=a，s_k+3=r。

请帮助小熊解决这个问题。

 

【输入】

输入文件名为string.in。

输入共1行，包含一个非空字符串s。数据保证字符串s中只包含小写英文字母。

 

【输出】

输出文件名为string.out。

输出共1行，包含一个整数，表示这个问题的答案。

 

【输入输出样例】

string.in

string.out

bebearar

9

 

【输入输出样例说明】

符合条件的9对(i,j)为：(1，6)，(1，7)，(1，8)，(2，6)，(2，7)，(2，8)，(3，6)，(3，7)，(3，8)。

 

【数据说明】

对于50%的数据，1≤n≤200。

对于100%的数据，1≤n≤3000。

 

分析：

暴力解决。

代码：

var
  s:ansistring;
  f,a:array[0..5000]of longint;
  i,j,n,ans:longint;


begin
  assign(input,'string.in');reset(input);
  assign(output,'string.out');rewrite(output);
  readln(s);
  n:=length(s);
  for i:=1 to n do
    begin
      f[i]:=f[i-1];
      if(s[i]='b')and(s[i+1]='e')and(s[i+2]='a')and(s[i+3]='r')
        then begin
               inc(f[i]);
               a[i]:=1;
             end;
    end;
 for i:=1 to n-3 do
    for j:=i+3 to n do
      if f[j]-a[j]-a[j-1]-a[j-2]-f[i-1]>0 then inc(ans);
  writeln(ans);
  close(input);close(output);
end.