結果

問題 No.1754 T-block Tiling
ユーザー horiesinitihoriesiniti
提出日時 2023-07-05 00:43:32
言語 Ruby
(3.3.0)
結果
TLE  
実行時間 -
コード長 1,524 bytes
コンパイル時間 82 ms
コンパイル使用メモリ 7,552 KB
実行使用メモリ 19,104 KB
最終ジャッジ日時 2024-07-18 19:04:11
合計ジャッジ時間 4,104 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge1
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 292 ms
17,536 KB
testcase_01 TLE -
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.rb:10: warning: assigned but unused variable - size
Syntax OK

ソースコード

diff # 

#認知機能障害（思考力などの低下）日常でも感じてたがプログラムにも影響するのは悲しいな、
def f()
n=100*4
ds=[]
ds<<[[1,0],[2,0],[1,1]]
ds<<[[1,-1],[1,0],[1,1]]
ds<<[[1,0],[1,-1],[2,0]]
ds<<[[0,1],[0,2],[1,1]]
ans=[0]
size=1
seed=[]
4.times{
	seed<<[0]*3
}

dp={}
dp[seed]=1
0.upto(n-2){|x|
	es={}
	dp.keys.each{|e|
		perm=dp[e]
		enow=[]
		4.times{|j|
			enow<<e[j].dup
		}
		es[enow]=perm
	}
	4.times{|y|
		es2={}
		es.keys.each{|enow|
			if enow[y][0]==1 then
				enext=[]
				4.times{|j|
					enext<<enow[j].dup
				}
				enext=enow.dup
				es2[enext]=0 if es2.member?(enext)==false
				es2[enext]+=es[enow]
			
			else
			ds.each{|d1|
					check=d1.all?{|dx,dy|
					x2=x+dx
					y2=y+dy
					if 400<x2 || y2<0 || 3<y2 then
						false
					
					elsif enow[y2][dx]==1 then
						false
					else
						true
					end
					}
					if check then
						enext=[]
						4.times{|j|
							enext<<enow[j].dup
						}
						
						enext[y][0]=1
						d1.each{|dx,dy|
							y2=y+dy
							enext[y2][dx]=1
						}
						es2[enext]=0 if es2.member?(enext)==false
						es2[enext]+=es[enow]
					end
				}
			
			end
			}
			es=es2.dup
		}
		dp.clear
		es.keys.each{|k|
			perm1=es[k]
			k.map!{|e|
				e.shift
				e<<0
				e
			}
			dp[k.dup]=0 if dp.member?(k)==false
			dp[k.dup]=(dp[k.dup]+perm1)%998244353
		}
		if x%4==2 then
			ans<<dp.select{|k,v| k==[[1,0,0],[1,0,0],[1,0,0],[1,0,0]]}.values.sum%998244353
		end
}
return ans
end
t=gets.to_i
t.times{
	ans=f()
	puts ans[gets.to_i]
}
0