結果
問題 | No.2509 Beam Shateki |
ユーザー |
👑 |
提出日時 | 2023-10-20 23:50:07 |
言語 | cLay (20241019-1) |
結果 |
AC
|
実行時間 | 744 ms / 2,000 ms |
コード長 | 1,037 bytes |
コンパイル時間 | 4,628 ms |
コンパイル使用メモリ | 189,768 KB |
実行使用メモリ | 5,376 KB |
最終ジャッジ日時 | 2024-09-21 00:05:38 |
合計ジャッジ時間 | 52,252 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 61 |
ソースコード
ll@H,@W,D=100,M=3D,A[M][M]{},x=0;rep(i,H)rep(j,W){ll@a;A[D+i][D+j]=a;}rep(i,M)x>?=sum[k,0,M](A[i][k]),x>?=sum[k,0,M](A[k][i]);rep(i,-M,M)x>?=sum[k,0,M@0<=i+k<M](A[i+k][k]),x>?=sum[k,0,M@0<=i-k<M](A[i-k][k]);rep(i,M)rep(j,i+1,M)x>?=sum[k,0,M](A[i][k]+A[j][k]),x>?=sum[k,0,M](A[k][i]+A[k][j]);rep(i,-M,M)rep(j,i+1,M)x>?=sum[k,0,M@0<=i+k<M](A[i+k][k])+sum[k,0,M@0<=j+k<M](A[j+k][k]),x>?=sum[k,0,M@0<=i-k<M](A[i-k][k])+sum[k,0,M@0<=j-k<M](A[j-k][k]);rep(i,M)rep(j,M)x>?=sum[k,0,M](A[i][k])+sum[k,0,M](A[k][j])-A[i][j],x>?=sum[k,0,M](A[i][k])+sum[k,-M,M@0<=i+k<M&&0<=j+k<M](A[i+k][j+k])-A[i][j],x>?=sum[k,0,M](A[i][k])+sum[k,-M,M@0<=i+k<M&&0<=j-k<M](A[i+k][j-k])-A[i][j],x>?=sum[k,0,M](A[k][j])+sum[k,-M,M@0<=i+k<M&&0<=j+k<M](A[i+k][j+k])-A[i][j],x>?=sum[k,0,M](A[k][j])+sum[k,-M,M@0<=i+k<M&&0<=j-k<M](A[i+k][j-k])-A[i][j],x>?=sum[k,-M,M@0<=i+k<M&&0<=j+k<M](A[i+k][j+k])+sum[k,-M,M@0<=i+k<M&&0<=j-k<M](A[i+k][j-k])-A[i][j];rep(i,-M,M)rep(j,-M,M)x>?=sum[k,0,M@0<=i+k<M](A[i+k][k])+sum[k,0,M@0<=j-k<M](A[j-k][k])*((i-j)%2!=0);wt(x);