Pascal(fpc 3.0.2) 解法, 执行用时: 743ms, 内存消耗: 484K, 提交时间: 2018-09-09 07:52:35

var n,i,j:longint;
s:ansistring;
a:array[-1..10000] of longint;
begin
readln(n);
readln(s);
a[0]:=1;
for i:=1 to n do
  if s[i]='(' then
    for j:=n-i-1 downto 0 do
      a[j+1]:=(a[j+1]+a[j]) mod 1000000007
  else
    for j:=1 to n-i+1 do
      a[j-1]:=(a[j-1]+a[j]) mod 1000000007;
        write((a[0]-1)mod 1000000007)
end.

C++14(g++5.4) 解法, 执行用时: 126ms, 内存消耗: 492K, 提交时间: 2020-04-26 20:37:22

#include<iostream>
using namespace std;
int f[10005]={1},x;
int main(){
    int n,m=1e9+7;string s;
    cin>>n>>s;
    for(int i=0;i<n;i++) x+=(s[i]=='(');
    for(int i=1;i<=n;i++)
    if(s[i-1]=='(') for(int j=x-1;j>=0;j--) f[j+1]=(f[j+1]+f[j])%m;
    else for(int j=1;j<=x;j++) f[j-1]=(f[j-1]+f[j])%m;
    cout<<f[0]-1;
}

C++11(clang++ 3.9) 解法, 执行用时: 75ms, 内存消耗: 584K, 提交时间: 2018-09-08 22:52:43

#include <iostream>
using namespace std;
int f[10005]={1},x;
int main()
{
int n,m=1e9+7;string s;
cin>>n>>s;
for(int i=0;i<n;i++) x+=(s[i]=='(');
for(int i=1;i<=n;i++)
if(s[i-1]=='(')for(int j=x-1;j>=0;j--) f[j+1]=(f[j+1]+f[j])%m;
else for(int j=1;j<=x;j++) f[j-1]=(f[j-1]+f[j])%m;
cout<<f[0]-1;
}