SGU 121 AC!
终于AC了~~~修正了非常多的小BUG，使用随机测试非常多次，终于AC了~从最初的100行左右，涨到了22x行~~~新年新气象啊~下面是验证程序~ 不过不判无解的~const maxn=100; var c,t,p,q,n:longint; l,r:array[1..maxn,1..maxn]of longint; d:array[1..maxn]of longint; col:array[1..maxn,1..2]of byte; s:string; begin assign(input,’sgu121.in’);reset(input); readln(n); for t:=1 to n do begin read(p); while p<>0 do begin inc(d[t]); l[t,d[t]]:=p; read(p); end; end; close(input); p:=0; assign(input,’sgu121.out’);reset(input); readln(s); if s=’No solution’ then begin writeln(‘Reported No solution…’); exit; end; reset(input); for t:=1 to n do begin read(p);c:=0; while p<>0 …