天天和不可描述（UNKNOWN）

【问题描述】
天天和 () 是好朋友，然而总是唱反调。对于一个有 () 的字符串，天天
总是会把 () 内的所有东西都倒过来读。
比如对于字符串 abc(def) ，天天看到的就是 abcfed 。
括号里面可能是空的，也有可能套有多个括号，比如说 abc(hello)(world)lcy()x(owq(zrt))
，天天看到的就是 abcollehdlrowlcyxzrtqwo 。
因为 (owq(zrt)) 首先变成了 (trz)qwo ，接下来变成了 zrtqwo ，zrt 被反转了两次，所以天天看到的还是 zrt。
现在给你一个字符串，问你天天看到的是什么样子的？
【输入格式】
一行一个字符串，表示原始的字符串。保证字符串内只有小写字母和 (以及) 组成。保证括号总是配对的。
【输出格式】
一行一个字符串，表示天天看到的字符串。
【样例输入 1】
abc(hello)(world)lcy()x(owq(zrt))
【样例输出 1】
abcollehdlrowlcyxzrtqwo
【样例输入 2】
(y(g(el)da)nis)
4
【样例输出 2】
singleday
【样例输入 3】
mian()
【样例输出 3】
mian
【数据规模和约定】
对于 10% 的数据，保证只出现一对括号，字符串长度小于 100, 000。
对于另外 30% 的数据，保证字符串长度小于 100。
对于另外 40% 的数据，保证字符串长度小于 100, 000。
对于剩余的 20% 的数据，保证字符串长度小于 500, 000。

我先在这扯一下，这 tmd就是一个坑，你看这最后的20%数据。。。考的时候没注意，直到交了才发现。。。无奈— —|||

我（蒟蒻） 的想法是这样子滴~：

首先搞一个栈，把数据扔进这个垃圾筒(stract1)，一边扔一边做标记。And then，if 扔到了“）”，把“垃圾们”一个个取出来扔进另一个垃圾桶(stract2);

然后再把“垃圾”倒回去~~~~\(≧▽≦)/~~~~啦啦啦，然后输出它，你就成功啦。哇咔咔！！！

const maxn=500020;

procedure fin;
begin
 assign(input,'unknown.in');
 assign(output,'unknown.out');
 reset(input); rewrite(output);
end;
procedure fout;
begin
close(input); close(output);
end;
var
  left:array[1..maxn]of longint;
  strack1,strack2:array[0..maxn]of char;
  L,flag,flag1,flag2,i,j,k,top1,top2:longint;
begin
fin;
  top1:=1; top2:=1; flag:=0; L:=1;
  while not eoln do
    begin
       read(strack1[top1]); inc(top1);
       inc(k);
       if strack1[top1-1]='(' then begin left[L]:=top1-1; inc(L);end
       else if strack1[top1-1]=')'then begin
         for j:=top1 downto left[L-1] do
         begin
                strack2[top2]:=strack1[j];
                inc(top2);
         end;
         for j:=top1 downto left[L-1] do
         begin
                strack1[j]:=strack2[top2];
                dec(top2);
         end;
         dec(L);for i:=1 to k do strack2[i]:=' ';
      end;
  end;
  for i:=1 to k do begin if (strack1[i]='(') or (strack1[i]=')')or(strack1[i]=' ') then continue;
  write(strack1[i]); end;
fout;

end.

仅供参考，大佬勿喷。如有更好的方法，请在下方留言哦~