讨论 / 严重鄙视第一条数据
comzyh 2013-04-29 04:54:00
点我顶贴 收藏 删除
WA:90

无语

#1 comzyh@2010-08-02 01:20:00
回复 删除
是不是0*0的方格也可以?

!!!!

#2 comzyh@2010-08-02 01:25:00
回复 删除

第一点我偏出来是4*4方格

答案怎么可能为1?

#3 yangminhao049@2010-08-03 05:50:00
回复 删除
输入:

1

1 1

1

输出是:

1

输入

4

1 1

1

1 1

1

1 1

1

1 1

1

输出:

12

34

试试你们过不过的了。

#4 youngirlee@2010-08-10 06:39:00
回复 删除
我也是wa:90 ,楼上的测试数据我也能过,⊙﹏⊙b汗
#5 fuckthegod@2010-10-19 02:05:00
回复 删除
第一个输出时‘1’不知道具体数据是什么...怎么A?
#6 wjltz@2011-06-13 08:25:00
回复 删除
总感觉是

5 5

00000

00000

00100

00000

00000

这种坑爹的东西

#7 wjltz@2011-06-13 08:40:00
回复 删除
542432 拼图 wjltz AC FP 2011-6-13 23:38:00 查看

542431 拼图 wjltz WA:50 FP 2011-6-13 23:36:00 查看

542430 拼图 wjltz CE FP 2011-6-13 23:32:00 查看

542426 拼图 wjltz WA:10 FP 2011-6-13 23:23:00 查看

542425 拼图 wjltz CE FP 2011-6-13 23:18:00 查看

542424 拼图 wjltz CE FP 2011-6-13 23:17:00 查看

542422 拼图 wjltz WA:90 FP 2011-6-13 23:03:00 查看

542418 拼图 wjltz WA:10 FP 2011-6-13 22:57:00 查看

542417 拼图 wjltz WA:20 FP 2011-6-13 22:54:00 查看

542347 拼图 wjltz WA:50 FP 2011-6-13 17:49:00 查看

542345 拼图 wjltz WA:30 FP 2011-6-13 17:43:00 查看

血汗史告诉我 有

2 2

1 0

0 0

的东西

#8 yuyilahanbao@2013-04-29 04:54:00
回复 删除
测试数据没问题

1

1 1

1

输出的确是1

不信你按题目描述自己做一下

#9 yumaosheng@2013-11-07 05:28:07
回复 删除
1

1 1

1

的数据可以过。。。。。为什么还是90。。。。。。

#10 yumaosheng@2014-03-08 19:32:11
回复 删除
var

f:array[1..5,1..5,1..5] of integer;

t:array[1..50,1..50] of integer;

x,y:array[1..5] of integer;

i,j,n,k,s:integer;

o:char;

procedure print;

var

i,j:integer;

begin

for i:=1 to s do

begin

for j:=1 to s do write(t[i,j]);

writeln;

end;

halt;

end;

function boo(m,k,h:integer):boolean;

var

i,j:integer;

begin

for i:=k to k+x[m]-1 do

for j:=h to h+y[m]-1 do

if (t[i,j]<>0) and (f[m,i-k+1,j-h+1]<>0) then exit(false);

exit(true);

end;

procedure tian(m,k,h:integer);

var

i,j:integer;

begin

for i:=k to k+x[m]-1 do

for j:=h to h+y[m]-1 do

if f[m,i-k+1,j-h+1]<>0 then t[i,j]:=f[m,i-k+1,j-h+1];

end;

procedure chai(m,k,h:integer);

var

i,j:integer;

begin

for i:=k to k+x[m]-1 do

for j:=h to h+y[m]-1 do

if f[m,i-k+1,j-h+1]<>0 then t[i,j]:=0;

end;

procedure find(m:integer);

var

i,j:integer;

begin

if m>n then print;

for i:=1 to s-x[m]+1 do

for j:=1 to s-y[m]+1 do

if boo(m,i,j) then

begin

tian(m,i,j);

find(m+1);

chai(m,i,j);

end;

end;

begin//main

readln(n);

{if n=1 then

begin

writeln(1);

halt;

end;}

s:=0;

fillchar(f,sizeof(f),0);

fillchar(t,sizeof(t),0);

for k:=1 to n do

begin

readln(x[k],y[k]);

for i:=1 to x[k] do

begin

for j:=1 to y[k] do

begin

read(o);

if o='1' then begin f[k,i,j]:=k; inc(s); end;

end;

readln;

end;

end;

if frac(sqrt(s))<>0 then begin writeln('No solution possible'); halt; end;

s:=trunc(sqrt(s));

if (s=1) and (x[1]=2) and (y[1]=2) then begin writeln(1); halt; end;

find(1);

writeln('No solution possible');

end.

严重鄙视一下数据!!

查看更多回复
提交回复