サイコロできるかな

• 図形は🙅 (n回目)
• 幸い埋め込みが楽なので良かったですが…
• 反転は魔方陣で最大値？の答案を流用

---

• 追伸：FASTAフォーマットのパーサ、持っておくと塩基配列目的以外にもいろいろ便利ですよー

tyama_hena14.rb

# !/usr/bin/env ruby
# http://mtsmfm.github.io/2017/06/03/doukaku-e14.html
# http://qiita.com/mtsmfm/items/89b6634f363bbf5b47f5

def parsefasta(f)
	arc={}
	seq=[]
	line=f.gets
	line.chomp!
	name=line[1..-1]
	while line=f.gets
		line.chomp!
		if line[0,1]=='>'
			arc[name]=seq
			seq=[]
			name=line[1..-1]
		else
			seq<<line.chars.to_a
		end
	end
	arc[name]=seq
	arc
end

# cf: https://github.com/cielavenir/codeiq_solutions/blob/master/thisweek_masuipeo2/tyama_codeiq3106.rb
class Array
	def rotate180
		self.reverse.map(&:reverse)
	end
	def rotate90
		self.reverse.transpose
	end
	def rotate270
		self.transpose.reverse
	end
end

A=[
	[ # 反転
		lambda{|a|a},
		lambda{|a|a.map(&:reverse)},
	],[ # 回転
		lambda{|a|a},
		lambda{|a|a.rotate90},
		lambda{|a|a.rotate180},
		lambda{|a|a.rotate270},
	]
]
T=parsefasta(DATA).values.to_a

def solve(a)
	A[0].product(*A[1..-1]).each{|e|
		# 重複あるけど気にしないことにします…
		T.each{|b|
			c=e.reduce(b){|s,f|f.call(s)}
			(0..a.size-c.size).each{|sy|
				(0..a[0].size-c[0].size).each{|sx|
					h=Hash.new{|h,k|h[k]=[]}
					c.size.times{|y|
						c[0].size.times{|x|
							if c[y][x]!='*'
								h[c[y][x]]<< a[sy+y][sx+x]
							end
						}
					}
					if h.values.flatten.uniq.size==6 && h.all?{|k,v|v.reduce(:+)==7}
						return true
					end
				}
			}
		}
	}
	false
end

while gets
	p solve($_.chomp.split(',').map{|e|e.chars.map(&:to_i)})
	STDOUT.flush
end

__END__
>1
1***
2323
1***
>2
1***
2323
*1**
>3
1***
2323
**1*
>4
1***
2323
***1
>5
*1**
2323
*1**
>6
*1**
2323
**1*
>7
21**
*323
*1**
>8
21**
*323
**1*
>9
21**
*32*
**13
>10
21**
*323
***1
>11
121**
**323