hdu 4041 Eliminate Witches!

最新推荐文章于 2024-07-24 09:30:00 发布

原创最新推荐文章于 2024-07-24 09:30:00 发布 · 970 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string #c

水题专栏收录该内容

1 篇文章

订阅专栏

本文详细介绍了如何使用栈数据结构来解析和操作包含括号、逗号和非括号字符的字符串，通过读取输入、识别并处理不同类型的字符，最终输出解析后的字符串及其结构。

部署运行你感兴趣的模型镜像

用栈去模拟

弹栈出栈就做完了

当时还没转c

用p写的

program aaa;
var sl,n,m,i,j,k,tb,tc,x:longint;
    a:array[1..60000] of string;
    b,c,t:array[1..1000000] of longint;
    s,st:ansistring;
    flag:boolean;

begin
readln(k);
for x:=1 to k do
 begin

  fillchar(t,sizeof(t),0);
  fillchar(c,sizeof(c),0);
  fillchar(b,sizeof(b),0);
  readln(s);

  sl:=length(s);
  while s[sl]=' ' do  dec(sl);
  i:=1;st:='';m:=0;
  n:=0;tb:=0;tc:=0;
  while i<=sl do
   begin

    while (s[i]<>'(') and (s[i]<>')') and (s[i]<>',') and(i<=sl) do
     begin
      flag:=false;
      st:=st+s[i];
      i:=i+1;
     end;

     if (st<>'') then begin n:=n+1;a[n]:=st;tb:=tb+1;b[tb]:=n;m:=m+1;t[m]:=n;
                         st:='';
                       end;


     if s[i]='(' then
            begin
             tc:=tc+1;c[tc]:=tb;
            end;
     if s[i]=')' then
              begin
               tb:=c[tc];
               m:=m+1;
               t[m]:=b[tb];
               tc:=tc-1;
               end;
     if s[i]=',' then
               begin
                m:=m+1;
                t[m]:=b[c[tc]];
               end;

    inc(i);
   end;
   writeln(n);
   for i:=1 to n do
    writeln(a[i]);
   for i:=1 to m-1  do writeln(t[i],' ',t[i+1]);
   writeln;
  end;
 end.

您可能感兴趣的与本文相关的镜像

Stable-Diffusion-3.5

图片生成

Stable-Diffusion

Stable Diffusion 3.5 (SD 3.5) 是由 Stability AI 推出的新一代文本到图像生成模型，相比 3.0 版本，它提升了图像质量、运行速度和硬件效率