結果

問題 No.2509 Beam Shateki
ユーザー 👑 p-adic
提出日時 2023-10-20 21:49:13
言語 cLay
(20241019-1)
結果
WA  
実行時間 -
コード長 759 bytes
コンパイル時間 5,622 ms
コンパイル使用メモリ 184,364 KB
実行使用メモリ 6,944 KB
最終ジャッジ日時 2024-09-20 18:14:32
合計ジャッジ時間 6,611 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 57 WA * 4
権限があれば一括ダウンロードができます

ソースコード

diff # 

ll@H,@W,M=200,A[M][M]{},x=0;rep(i,H)rep(j,W){ll@a;A[i][j]=a;}
rep(i,H)rep(j,W)x>?=sum[k,0,W](A[i][k])+sum[k,0,H](A[k][j])-A[i][j];
rep(i,H)rep(j,i+1,H)x>?=sum[k,0,W](A[i][k])+sum[k,0,W](A[j][k]);
rep(i,W)rep(j,i+1,W)x>?=sum[k,0,H](A[k][i])+sum[k,0,H](A[k][j]);
rep(i,M)rep(j,M)x>?=sum[k,0,W](A[i][k])+sum[k,max(-i,-j),min(H-i,W-j)](A[i+k][j+k])-A[i][j];
rep(i,M)rep(j,M)x>?=sum[k,0,W](A[i][k])+sum[k,max(-i,j-W+1),min(H-i,j)](A[i+k][j-k])-A[i][j];
rep(i,M)rep(j,M)x>?=sum[k,0,H](A[k][j])+sum[k,max(-i,-j),min(H-i,W-j)](A[i+k][j+k])-A[i][j];
rep(i,M)rep(j,M)x>?=sum[k,0,H](A[k][j])+sum[k,max(-i,j-W+1),min(H-i,j)](A[i+k][j-k])-A[i][j];
rep(i,M)rep(j,M)x>?=sum[k,max(-i,-j),min(H-i,W-j)](A[i+k][j+k])+sum[k,max(-i,j-W+1),min(H-i,j)](A[i+k][j-k])-A[i][j];
wt(x);
0