jzoj 1147. WING(wing)

最新推荐文章于 2020-05-31 12:30:43 发布

原创最新推荐文章于 2020-05-31 12:30:43 发布 · 421 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#jzoj 1147

水法专栏收录该内容

15 篇文章

订阅专栏

本文介绍了一个名为WING的拼图游戏算法挑战题，通过使用Pascal语言实现了一个程序来解决该问题。该程序读取输入文件wing.in，并将结果输出到wing.out。文章提供了一个示例代码，展示了如何通过数组记录状态并更新输出。

1147. WING(wing)
(File IO): input:wing.in output:wing.out

时间限制: 1000 ms 空间限制: 262144 KB 具体限制

Goto ProblemSet

题目描述

输入

输出

样例输入

对于这道题，如果把它理解为一个拼图游戏，其实很简单,代码如下：

var
 f:array[1..10,'A'..'Z']of longint;
 n,c,ans,i,j,k,l:longint;   s:string;

begin
 assign(input,'wing.in'); reset(input);
 assign(output,'wing.out'); rewrite(output);
 readln(n,c);
 for i:=1 to c do
  begin
   read(j,s);
   delete(s,1,1);
   l:=0;
   if j=1 then
    begin
     for k:=1 to n do
     begin
      if f[k,s[k]]=0 then begin l:=-1; break; end;
      if f[k,s[k]]>l then l:=f[k,s[k]];
     end;
    end
   else
    begin
     inc(ans);
     for k:=1 to n do
      if f[k,s[k]]=0 then f[k,s[k]]:=ans;
    end;
  if j=1 then  writeln(l);
 end;
 close(input); close(output);
end.