結果

問題 No.2456 Stamp Art
ユーザー tailstails
提出日時 2023-09-01 23:19:02
言語 cLay
(20241019-1)
結果
WA  
実行時間 -
コード長 818 bytes
コンパイル時間 4,107 ms
コンパイル使用メモリ 187,776 KB
実行使用メモリ 133,376 KB
最終ジャッジ日時 2025-01-03 11:36:47
合計ジャッジ時間 9,100 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 22 WA * 1
権限があれば一括ダウンロードができます

ソースコード

diff # 

ll@h,@w,z=h,d=4,a[d][h+2][w+2]{};
string@s[h];

rep(y,h){
	rep(x,w){
		ll b=0;
		if(s[y][x]=='#'){
			b=h;
			b<?=a[0][y+0][x+1];
			b<?=a[0][y+1][x+0];
			b<?=a[0][y+0][x+0];
			b+=1;
		}
		a[0][y+1][x+1]=b;
	}
}

rep(y,h){
	rrep(x,w){
		ll b=0;
		if(s[y][x]=='#'){
			b=h;
			b<?=a[1][y+0][x+1];
			b<?=a[1][y+1][x+2];
			b<?=a[1][y+0][x+2];
			b+=1;
		}
		a[1][y+1][x+1]=b;
	}
}

rrep(y,h){
	rep(x,w){
		ll b=0;
		if(s[y][x]=='#'){
			b=h;
			b<?=a[2][y+2][x+1];
			b<?=a[2][y+1][x+0];
			b<?=a[2][y+2][x+0];
			b+=1;
		}
		a[2][y+1][x+1]=b;
	}
}

rrep(y,h){
	rrep(x,w){
		ll b=0;
		if(s[y][x]=='#'){
			b=h;
			b<?=a[3][y+2][x+1];
			b<?=a[3][y+1][x+2];
			b<?=a[3][y+2][x+2];
			b+=1;
		}
		a[3][y+1][x+1]=b;
	}
}

wt(min[y,0,h,x,0,w@s[y][x]=='#'](a[0][y+1][x+1]+a[1][y+1][x+1]+a[2][y+1][x+1]+a[3][y+1][x+1]-3));
0