#908099 (cLay) No.2446 完全列

• 問題: No.2446 完全列
• ユーザー: tails
• 提出日時: 2023-08-25 23:22:34
• 言語: cLay (20240104-1)
• 結果: AC
• 実行時間: 2 ms / 2,000 ms
• コード長: 550 bytes
• コンパイル時間: 3,145 ms
• コンパイル使用メモリ: 178,204 KB
• 実行使用メモリ: 4,380 KB
• 最終ジャッジ日時: 2023-08-26 01:35:10
• 合計ジャッジ時間: 4,374 ms
• ジャッジサーバーID （参考情報）: judge15 / judge13

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	1 ms; 4,380 KB
testcase_01	AC	1 ms; 4,380 KB
testcase_02	AC	1 ms; 4,380 KB
testcase_03	AC	1 ms; 4,376 KB
testcase_04	AC	1 ms; 4,380 KB
testcase_05	AC	2 ms; 4,380 KB
testcase_06	AC	2 ms; 4,380 KB
testcase_07	AC	2 ms; 4,376 KB
testcase_08	AC	1 ms; 4,376 KB
testcase_09	AC	1 ms; 4,380 KB
testcase_10	AC	1 ms; 4,380 KB
testcase_11	AC	1 ms; 4,380 KB
testcase_12	AC	1 ms; 4,376 KB
testcase_13	AC	1 ms; 4,376 KB
testcase_14	AC	2 ms; 4,380 KB
testcase_15	AC	1 ms; 4,380 KB
testcase_16	AC	1 ms; 4,376 KB
testcase_17	AC	2 ms; 4,376 KB
testcase_18	AC	1 ms; 4,380 KB
testcase_19	AC	1 ms; 4,376 KB
testcase_20	AC	1 ms; 4,376 KB
testcase_21	AC	2 ms; 4,380 KB
testcase_22	AC	2 ms; 4,380 KB
testcase_23	AC	1 ms; 4,380 KB
testcase_24	AC	1 ms; 4,380 KB
testcase_25	AC	1 ms; 4,380 KB
testcase_26	AC	1 ms; 4,380 KB
testcase_27	AC	2 ms; 4,380 KB
testcase_28	AC	2 ms; 4,380 KB
testcase_29	AC	1 ms; 4,376 KB

ソースコード

ll f(Matrix<Mint>a){
	ll y=0,x=0;
	while(y<a.r&&x<a.c){
		ll u=y;
		while(a[u][x]==0){
			++u;
			if(u==a.r){
				u=y;
				++x;
				if(x==a.c){
					return a.r-y;
				}
			}
		}
		if(u!=y){
			rep(i,a.c){
				swap(a[y][i],a[u][i]);
			}
		}
		rep(j,y+1,a.r){
			rep(i,x+1,a.c){
				a[j][i]-=a[j][x]/a[y][x]*a[y][i];
			}
		}
		y+=1;
		x+=1;
	}
	return a.r-y;
}

{
	ll@l,@m,@n;
	Matrix<Mint>a(l,m),b(m,n),c;
	rd(a(l,m),b(m,n));
	c=a*b;
	rep(i,l)rep(j,n)if(c[i][j]){
		wt("No");
		exit(0);
	}
	if(f(a)+f(b)!=l){
		wt("No");
		exit(0);
	}
	wt("Yes");
}