チェックメイト Perl編（paizaランク B 相当）
問題にチャレンジして、ユーザー同士で解答を教え合ったり、コードを公開してみよう！
シェア用URL:
ポスト
問題
下記の問題をプログラミングしてみよう！
ここでは、チェックメイトについて学習していきます。
ひとつ前の問題「チェック」ではチェックの判定を行いました。チェックの場合、コマを動かすことによってチェック状態を解消する必要があります。
しかし、どのような手を打ってもチェック状態が解消できない場合は、詰みであり、チェックメイトといいます。
チェックメイトはまず、元の盤面がチェック状態か、そして動かせるコマのパターンを全部試し、その動かした後もすべてチェック状態であるか調べることにより、チェックメイトかどうか判定できます。
問題「キャスリング」で取り扱ったキャスリングについては、チェック状態であるならば行うことが出来ないので、チェックメイトの判定には考慮しなくて大丈夫です。また、アンパッサンは考慮しない(該当するコマがない)ものとします。
実際にやってみましょう。
駒が置かれた盤面 L が与えられます。次のターンが白の場合、黒の場合、それぞれについてチェックメイトであるか判定してください。
- 入力される値
-
L_{a8} L_{b8} ... L_{h8}
L_{a7} L_{b7} ... L_{h7}
...
L_{a1} L_{b1} ... L_{h1}
i (1 ≦ i ≦ 8) 行目には n = 9 - i としたとき、8 つの文字列 L_{an},L_{bn},L_{cn},L_{dn},L_{en},L_{fn},L_{gn},L_{hn} が与えられます。
入力は 8 行となり、末尾に改行が 1 つ入ります。
入力値最終行の末尾に改行が１つ入ります。
文字列は標準入力から渡されます。 標準入力からの値取得方法はこちらをご確認ください
- 期待する出力
答えを、2 行で出力してください。
1 行目には白がチェックメイトされている場合はYesを、そうでないときにはNoを、2 行目には黒がチェックメイトされている場合はYesを、そうでないときにはNoを出力してください。
- 条件
-
すべてのテストケースにおいて、以下の条件をみたします。
・L の要素は 1 文字目がB,Wのいずれかで、2 文字目がR,B,N,P,Q,Kのいずれかである 2 文字の文字列か--
- 入力例1
-
-- BR -- -- -- -- -- --
-- -- -- -- -- -- -- BK
-- -- -- -- -- -- -- --
-- -- -- -- -- -- -- --
-- -- -- -- -- -- -- --
-- -- -- -- -- -- -- --
WP -- -- -- -- -- -- --
WK BQ -- -- -- -- -- --
- 出力例1
-
Yes
No
- 入力例2
-
BR -- -- -- -- -- -- --
-- -- -- -- -- -- -- --
-- -- -- -- -- -- -- --
-- -- -- -- -- -- -- --
-- -- -- -- -- -- -- --
-- -- -- -- -- -- -- --
WB -- BK -- -- -- -- --
WK -- -- -- -- -- -- --
- 出力例2
-
No
No
