bioshogi 0.0.13 → 0.0.14

data/lib/bioshogi/analysis/technique_matcher_info.rb

@@ -0,0 +1,810 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module Analysis
+    class TechniqueMatcherInfo
+      LRUD_PLUS_TWO = [
+        [ 2,  0],
+        [-2,  0],
+        [ 0,  2],
+        [ 0, -2],
+      ]
+
+      LR  = [-1, +1]
+      LR2 = [[1, 2], [-1, -2]]
+
+      include ApplicationMemoryRecord
+      memory_record [
+        {
+          key: "金底の歩",
+          logic_desc: "打った歩が一番下の段でその上に自分の金がある",
+          verify_process: proc {
+            if false
+              p executor.drop_hand
+              soldier = executor.hand.soldier
+              p soldier.piece.key
+              p soldier.bottom_spaces
+              p soldier.place
+              p Place.lookup([soldier.place.x.value, soldier.place.y.value - soldier.location.value_sign])
+            end
+
+            # # 「打」でないとだめ
+            # unless executor.drop_hand
+            #   throw :skip
+            # end
+
+            soldier = executor.hand.soldier
+
+            # 「最下段」でないとだめ
+            if soldier.bottom_spaces != 0
+              throw :skip
+            end
+
+            # # 「歩」でないとだめ
+            # if soldier.piece.key != :pawn
+            #   throw :skip
+            # end
+
+            # 1つ上の位置
+            place = soldier.place
+            v = Place.lookup([place.x.value, place.y.value - soldier.location.value_sign])
+
+            # 1つ上の位置になにかないとだめ
+            s = surface[v]
+            unless s
+              throw :skip
+            end
+
+            # 1つ上の駒が「自分」の「金」でないとだめ
+            unless s.piece.key == :gold && s.location == soldier.location
+              throw :skip
+            end
+          },
+        },
+
+        {
+          key: "一間竜",
+          logic_desc: "上下左右+2の位置に相手の玉がある",
+          verify_process: proc {
+            soldier = executor.hand.soldier
+
+            place = soldier.place
+            retv = LRUD_PLUS_TWO.any? do |x, y|
+              v = Place.lookup([place.x.value + x, place.y.value + y])
+              if s = surface[v]
+                s.piece.key == :king && s.location != soldier.location
+              end
+            end
+
+            unless retv
+              throw :skip
+            end
+          },
+        },
+
+        {
+          key: "こびん攻め",
+          logic_desc: "玉や飛の斜めの歩を攻める",
+          verify_process: proc {
+            soldier = executor.hand.soldier
+            place = soldier.place
+
+            # 端の場合は「こびん」とは言わないため省く
+            if place.x.value == 0 || place.x.value == Dimension::PlaceX.dimension.pred
+              throw :skip
+            end
+
+            # 相手が歩か？
+            v = Place.lookup([place.x.value, place.y.value - soldier.location.value_sign])
+            if (s = surface[v]) && s.piece.key == :pawn && !s.promoted && s.location != soldier.location
+            else
+              throw :skip
+            end
+
+            # その歩の後ろの左右に玉か飛があるか？
+            retv = LR.any? do |x|
+              v = Place.lookup([place.x.value + x, place.y.value - (soldier.location.value_sign * 2)])
+              if s = surface[v]
+                (s.piece.key == :king || (s.piece.key == :rook && !s.promoted)) && s.location != soldier.location
+              end
+            end
+
+            unless retv
+              throw :skip
+            end
+          },
+        },
+
+        {
+          key: "位の確保",
+          logic_desc: "5段目の歩の下に銀を移動する",
+          verify_process: proc {
+            soldier = executor.hand.soldier
+            place = soldier.place
+
+            # 6段目に移動した
+            unless place.y.value == (Dimension::PlaceY.dimension / 2 + soldier.location.value_sign)
+              throw :skip
+            end
+
+            # 両端2列は含まない
+            padding = 2
+            unless (padding...(Dimension::PlaceX.dimension - padding)).cover?(place.x.value)
+              throw :skip
+            end
+
+            # 自分の歩の下に移動した
+            v = Place.lookup([place.x.value, place.y.value - soldier.location.value_sign])
+            unless (s = surface[v]) && s.piece.key == :pawn && !s.promoted && s.location == soldier.location
+              throw :skip
+            end
+
+            # 自分の歩の上には何もないこと
+            v = Place.lookup([place.x.value, place.y.value - (soldier.location.value_sign * 2)])
+            if surface[v]
+              throw :skip
+            end
+          },
+        },
+
+        {
+          key: "パンツを脱ぐ",
+          logic_desc: "開戦前かつ、跳んだ桂が下から3つ目かつ、(近い方の)端から3つ目かつ、移動元の隣(端に近い方)に自分の玉がある",
+          verify_process: proc {
+            if false
+              p executor.move_hand
+              soldier = executor.move_hand.soldier
+              p soldier.piece.key
+              p soldier.bottom_spaces
+              p soldier.place
+              p Place.lookup([soldier.place.x.value, soldier.place.y.value - soldier.location.value_sign])
+            end
+
+            soldier = executor.move_hand.soldier
+
+            # 「3段目」でないとだめ
+            if soldier.bottom_spaces != 2
+              throw :skip
+            end
+
+            # 「端から3つ目」でなければだめ
+            if soldier.smaller_one_of_side_spaces != 2
+              throw :skip
+            end
+
+            # 移動元は「端から2つ目」でなければだめ(△61から飛んだ場合を除外する)
+            if executor.move_hand.origin_soldier.smaller_one_of_side_spaces != 1
+              throw :skip
+            end
+
+            # FIXME: origin_soldier
+            # 下に2つ、壁の方に2つ
+            place = soldier.place
+            v = Place.lookup([place.x.value + soldier.sign_to_goto_closer_side * 2, place.y.value + soldier.location.value_sign * 2])
+
+            # そこに何かないとだめ
+            s = surface[v]
+            unless s
+              throw :skip
+            end
+
+            # その駒が「自分」の「玉」でないとだめ
+            unless s.piece.key == :king && s.location == soldier.location
+              throw :skip
+            end
+          },
+        },
+
+        {
+          key: "腹銀",
+          logic_desc: "銀を打ったとき左右どちらかに相手の玉がある",
+          verify_process: proc {
+            soldier = executor.hand.soldier
+
+            # 左右に相手の玉がいるか？
+            place = soldier.place
+            retv = LR.any? do |x|
+              v = Place.lookup([place.x.value + x, place.y.value])
+              if s = surface[v]
+                s.piece.key == :king && s.location != soldier.location
+              end
+            end
+            unless retv
+              throw :skip
+            end
+          },
+        },
+
+        {
+          key: "尻銀",
+          logic_desc: "銀を打ったとき下に相手の玉がある",
+          verify_process: proc {
+            soldier = executor.hand.soldier
+            place = soldier.place
+            v = Place.lookup([place.x.value, place.y.value + soldier.location.value_sign])
+            unless s = surface[v]
+              throw :skip
+            end
+            unless s.piece.key == :king && s.location != soldier.location
+              throw :skip
+            end
+          },
+        },
+
+        {
+          key: "垂れ歩",
+          logic_desc: "打った歩の前が空で次に成れる余地がある場合",
+          verify_process: proc {
+            soldier = executor.hand.soldier
+
+            # 2, 3, 4段目でなければだめ(1段目は反則)
+            v = soldier.top_spaces
+            unless 1 <= v && v <= Dimension::PlaceY.promotable_depth
+              throw :skip
+            end
+
+            # 一歩先が空
+            place = soldier.place
+            v = Place.lookup([place.x.value, place.y.value - soldier.location.value_sign])
+            if surface[v]
+              throw :skip
+            end
+          },
+        },
+
+        # 単に「18角打」をチェックした方がいい
+        # {
+        #   key: "遠見の角",
+        #   logic_desc: "打った角の位置が下から2番目かつ近い方の端から1番目(つまり自分の香の上の位置)",
+        #   verify_process: proc {
+        #     soldier = executor.hand.soldier
+        #
+        #     # 8段目でなければだめ
+        #     if soldier.bottom_spaces != 1
+        #       throw :skip
+        #     end
+        #
+        #     # 端でなければだめ
+        #     if soldier.smaller_one_of_side_spaces != 0
+        #       throw :skip
+        #     end
+        #   },
+        # },
+
+        {
+          key: "割り打ちの銀",
+          logic_desc: "打った銀の後ろの左右両方に相手の飛か金がある",
+          verify_process: proc {
+            soldier = executor.hand.soldier
+            place = soldier.place
+            retv = LR.all? do |x|
+              v = Place.lookup([place.x.value + x, place.y.value + soldier.location.value_sign])
+              if s = surface[v]
+                if s.location != soldier.location
+                  (s.piece.key == :rook && !s.promoted) || s.piece.key == :gold
+                end
+              end
+            end
+            unless retv
+              throw :skip
+            end
+          },
+        },
+
+        {
+          key: "たすきの銀",
+          logic_desc: "打った銀の斜めに飛と金がある",
+          verify_process: proc {
+            soldier = executor.hand.soldier
+            place = soldier.place # 72
+            retv = [1, -1].any? do |x|
+              v = Place.lookup([place.x.value - x, place.y.value - soldier.location.value_sign]) # 81
+              if s = surface[v]
+                if s.piece.key == :rook && !s.promoted && s.location != soldier.location # 左上に相手の飛車がある
+                  v = Place.lookup([place.x.value + x, place.y.value + soldier.location.value_sign]) # 63
+                  if s = surface[v]
+                    (s.piece.key == :gold || (s.piece.key == :silver && s.promoted)) && s.location != soldier.location # 右下に相手の金または成銀がある
+                    # s.piece.key == :gold && s.location != soldier.location # 右下に相手の金がある
+                  end
+                end
+              end
+            end
+            unless retv
+              throw :skip
+            end
+          },
+        },
+
+        {
+          key: "たすきの角",
+          logic_desc: "打った角の斜めに飛と金がある",
+          verify_process: proc {
+            instance_eval(&TechniqueMatcherInfo[:"たすきの銀"].verify_process)
+          },
+        },
+
+        {
+          key: "桂頭の銀",
+          logic_desc: "打った銀の上に相手の桂がある",
+          verify_process: proc {
+            soldier = executor.hand.soldier
+            place = soldier.place
+            v = Place.lookup([place.x.value, place.y.value - soldier.location.value_sign])
+            unless s = surface[v]
+              throw :skip
+            end
+            unless s.piece.key == :knight && !s.promoted && s.location != soldier.location
+              throw :skip
+            end
+          },
+        },
+
+        {
+          key: "歩頭の桂",
+          logic_desc: "打った桂の上に相手の歩がある",
+          verify_process: proc {
+            soldier = executor.hand.soldier
+            place = soldier.place
+            v = Place.lookup([place.x.value, place.y.value - soldier.location.value_sign])
+            unless s = surface[v]
+              throw :skip
+            end
+            unless s.piece.key == :pawn && !s.promoted && s.location != soldier.location
+              throw :skip
+            end
+          },
+        },
+
+        {
+          key: "銀ばさみ",
+          logic_desc: "動かした歩の左右どちらかに相手の銀があり、その向こうに自分の歩がある。また歩の前に何もないこと。",
+          verify_process: proc {
+            # 「打」ではだめ
+            if executor.drop_hand
+              throw :skip
+            end
+
+            # 「同歩」ではだめ
+            if executor.move_hand.captured_soldier
+              throw :skip
+            end
+
+            soldier = executor.hand.soldier
+            place = soldier.place
+
+            # 進めた歩の前が空である
+            flag = false
+            if v = Place.lookup([place.x.value, place.y.value - soldier.location.value_sign])
+              unless surface[v]
+                flag = true
+              end
+            end
+            unless flag
+              throw :skip
+            end
+
+            matched = LR2.any? do |x1, x2|
+              silver_exist = false
+              pawn_exist = false
+
+              # 隣に相手の銀がある
+              if v = Place.lookup([place.x.value + x1, place.y.value])
+                if s = surface[v]
+                  if s.piece.key == :silver && !s.promoted && s.location != soldier.location
+                    silver_exist = true
+                  end
+                end
+              end
+              # その隣に自分の歩がある
+              if silver_exist
+                if v = Place.lookup([place.x.value + x2, place.y.value])
+                  if s = surface[v]
+                    if s.piece.key == :pawn && !s.promoted && s.location == soldier.location
+                      pawn_exist = true
+                    end
+                  end
+                end
+              end
+              # その歩の前が空
+              if pawn_exist
+                if v = Place.lookup([place.x.value + x2, place.y.value - soldier.location.value_sign])
+                  unless surface[v]
+                    true
+                  end
+                end
+              end
+            end
+
+            unless matched
+              throw :skip
+            end
+          },
+        },
+
+        {
+          key: "端玉には端歩",
+          logic_desc: nil,
+          verify_process: proc {
+            soldier = executor.hand.soldier
+            place = soldier.place
+
+            # 端の場合のみ
+            if place.x.value == 0 || place.x.value == Dimension::PlaceX.dimension.pred
+            else
+              throw :skip
+            end
+
+            # 進めた歩の前が歩である
+            pawn_found = false
+            if v = Place.lookup([place.x.value, place.y.value - soldier.location.value_sign])
+              if s = surface[v]
+                if s.piece.key == :pawn && !s.promoted && s.location != soldier.location
+                  pawn_found = true
+                end
+              end
+            end
+            unless pawn_found
+              throw :skip
+            end
+
+            # その相手の歩の奥に相手の玉がいる
+            king_found = false
+            (2...Dimension::PlaceY.dimension).each do |y|
+              if v = Place.lookup([place.x.value, place.y.value - soldier.location.value_sign * y])
+                if s = surface[v]
+                  if s.piece.key == :king && s.location != soldier.location
+                    king_found = true
+                  end
+                  break
+                else
+                  # 空ならさらに奥を見る
+                end
+              else
+                break
+              end
+            end
+            unless king_found
+              throw :skip
+            end
+
+            # 端の下に香がいる
+            lance_found = false
+            bottom_place = Place.lookup([place.x.value, place.y.value + soldier.location.value_sign * soldier.bottom_spaces]) # 99
+            Dimension::PlaceY.dimension.times do |y|
+              v = Place.lookup([bottom_place.x.value, bottom_place.y.value - (soldier.location.value_sign * y)])
+              if s = surface[v]
+                if s.piece.key == :lance && !s.promoted && s.location == soldier.location
+                  lance_found = true
+                end
+                break
+              else
+                # 空ならさらに上を見る
+              end
+            end
+            unless lance_found
+              throw :skip
+            end
+          },
+        },
+
+        # {
+        #   key: "ロケット",
+        #   logic_desc: "打った香の下に自分の香か飛か龍がある",
+        #   verify_process: proc {
+        #     # p ["#{__FILE__}:#{__LINE__}", __method__, ]
+        #     soldier = executor.hand.soldier
+        #     # p soldier.bottom_spaces
+        #     # p place
+        #     # p place.y
+        #     # p place.y.flip
+        #     # place = Place.lookup([place.x.value, place.y.value + soldier.bottom_spaces * soldier.location.value_sign])
+        #
+        #     rook_count = 0
+        #     lance_count = 0
+        #     if soldier.piece.key == :rook
+        #       rook_count += 1
+        #     else
+        #       lance_count += 1
+        #     end
+        #
+        #     [1, -1].each do |sign| # 1:↓ -1:↑
+        #       (1..).each do |i|
+        #         place = Place.lookup([soldier.place.x.value, soldier.place.y.value + (i * soldier.location.value_sign * sign)])
+        #         unless place
+        #           break
+        #         end
+        #         if s = surface[place]
+        #           if s.location == soldier.location
+        #             if s.piece.key == :rook
+        #               rook_count += 1
+        #             elsif s.piece.key == :lance && !s.promoted
+        #               lance_count += 1
+        #             else
+        #               break
+        #             end
+        #           else
+        #             break
+        #           end
+        #         end
+        #       end
+        #     end
+        #
+        #     p rook_count
+        #     p lance_count
+        #
+        #     count = rook_count + lance_count
+        #     if lance_count >= 1 && count >= 2
+        #       # raise "ここで count 段ロケットということはわかったがこれをどうタグに入れるか？"
+        #     else
+        #       throw :skip
+        #     end
+        #   },
+        # },
+
+        {
+          key: "田楽刺し",
+          logic_desc: "角の頭に打つ",
+          verify_process: proc {
+            soldier = executor.hand.soldier
+            place = soldier.place
+            mode = :walk_to_bishop
+            loop do
+              place = Place.lookup([place.x.value, place.y.value - soldier.location.value_sign])
+              unless place
+                throw :skip     # 盤面の外なので終わり
+              end
+              if s = surface[place]
+                if s.location == soldier.location
+                  throw :skip     # 自分と同じ駒があった場合はおわり
+                end
+                if mode == :walk_to_bishop
+                  if s.piece.key == :bishop && !s.promoted
+                    mode = :walk_to_king
+                  end
+                else
+                  if s.piece.dengaku_target
+                    break
+                  end
+                end
+              else
+                # 駒がないので次のマスに進む
+              end
+            end
+          },
+        },
+
+        {
+          key: "ふんどしの桂",
+          logic_desc: "打った桂の2つ前の左右に自分より価値の高い相手の駒がある",
+          verify_process: proc {
+            soldier = executor.hand.soldier
+            place = soldier.place
+            retv = LR.all? do |x|
+              v = Place.lookup([place.x.value + x, place.y.value - soldier.location.value_sign * 2])
+              if s = surface[v]
+                if s.location != soldier.location
+                  s.abs_weight > soldier.abs_weight
+                end
+              end
+            end
+            unless retv
+              throw :skip
+            end
+          },
+        },
+
+        {
+          key: "土下座の歩",
+          logic_desc: nil,
+          verify_process: proc {
+            soldier = executor.hand.soldier
+            place = soldier.place
+
+            # 8,9段目であること
+            if soldier.bottom_spaces < 2
+            else
+              throw :skip
+            end
+
+            # 一つ上が空であること
+            v = Place.lookup([place.x.value, place.y.value - soldier.location.value_sign])
+            if surface[v]
+              throw :skip
+            end
+
+            # 二つ上に相手の前に進める駒があること
+            flag = false
+            v = Place.lookup([place.x.value, place.y.value - (soldier.location.value_sign * 2)])
+            if s = surface[v]
+              if s.location != soldier.location
+                if s.promoted || s.piece.maesusumeru
+                  flag = true
+                end
+              end
+            end
+            unless flag
+              throw :skip
+            end
+          },
+        },
+
+        {
+          key: "たたきの歩",
+          logic_desc: "取ると取り返せるような場合もたたきの歩として判別されるのであまり正しくない",
+          verify_process: proc {
+            soldier = executor.hand.soldier
+            place = soldier.place
+
+            # # 中盤以降は無効とする
+            # if executor.container.turn_info.display_turn.next >= 42
+            #   throw :skip
+            # end
+
+            # 打った位置が1から4段目である
+            if soldier.top_spaces <= Dimension::PlaceY.promotable_depth
+            else
+              throw :skip
+            end
+
+            # 相手が「成駒」または「飛金銀香玉」である
+            flag = false
+            v = Place.lookup([place.x.value, place.y.value - soldier.location.value_sign])
+            if s = surface[v]
+              if s.location != soldier.location
+                if s.promoted || s.piece.tatakare_target
+                  flag = true
+                end
+              end
+            end
+            unless flag
+              throw :skip
+            end
+
+            # 打った位置の後ろに自分の(前に進めることのできる)駒があるなら無効とする (厳密な判定ではない)
+            v = Place.lookup([place.x.value, place.y.value + soldier.location.value_sign])
+            if s = surface[v]
+              if s.location == soldier.location
+                if s.promoted || s.piece.maesusumeru
+                  throw :skip
+                end
+              end
+            end
+          },
+        },
+
+        {
+          key: "継ぎ歩",
+          logic_desc: "",
+          verify_process: proc {
+            # 0手前: ▲25歩打 継ぎ歩 したらここに来る
+
+            soldier = executor.hand.soldier
+            x = soldier.place.x
+            y = soldier.place.y
+            y2 = y.value - soldier.location.value_sign # 24歩のY座標(整数値)
+
+            # 1手前: △24同歩 取らされる
+            flag = false
+            if hand_log = executor.container.hand_logs[-1]
+              if s = hand_log&.move_hand&.soldier
+                flag = (s.place.x == x && s.place.y.value == y2 && s.piece.key == :pawn && !s.promoted && s.location != soldier.location)
+              end
+            end
+            unless flag
+              throw :skip
+            end
+
+            # 2手前: ▲24歩(25) 突き
+            flag = false
+            if hand_log = executor.container.hand_logs[-2]
+              if s = hand_log&.move_hand&.soldier # 最初を突き捨てとするため hand ではなく move_hand にすること
+                flag = (s.place.x == x && s.place.y.value == y2 && s.piece.key == :pawn && !s.promoted && s.location == soldier.location)
+              end
+            end
+            unless flag
+              throw :skip
+            end
+          },
+        },
+
+        {
+          key: "連打の歩",
+          logic_desc: "",
+          verify_process: proc {
+            # 0手前: ▲25歩打 継ぎ歩 したらここに来る
+
+            soldier = executor.hand.soldier
+            x = soldier.place.x
+            y = soldier.place.y
+            y2 = y.value - soldier.location.value_sign # 24歩のY座標(整数値)
+
+            # 1手前: △24同歩 取らされる
+            flag = false
+            if hand_log = executor.container.hand_logs[-1]
+              if s = hand_log&.move_hand&.soldier
+                flag = (s.place.x == x && s.place.y.value == y2 && s.location != soldier.location)
+              end
+            end
+            unless flag
+              throw :skip
+            end
+
+            # 2手前: ▲24歩打
+            flag = false
+            if hand_log = executor.container.hand_logs[-2]
+              if s = hand_log&.drop_hand&.soldier
+                flag = (s.place.x == x && s.place.y.value == y2 && s.location == soldier.location)
+              end
+            end
+            unless flag
+              throw :skip
+            end
+          },
+        },
+
+        {
+          key: "継ぎ桂",
+          logic_desc: "打った桂の2つ後ろの左右のどちらかに自分の桂がある",
+          verify_process: proc {
+            soldier = executor.hand.soldier
+            place = soldier.place
+            retv = LR.any? do |x|
+              v = Place.lookup([place.x.value + x, place.y.value + soldier.location.value_sign * 2])
+              if s = surface[v]
+                s.piece.key == :knight && !s.promoted && s.location == soldier.location
+              end
+            end
+            unless retv
+              throw :skip
+            end
+          },
+        },
+
+        {
+          key: "入玉",
+          logic_desc: "玉が移動して上のスペースが3つの状態から2つの状態になった",
+          verify_process: proc {
+            soldier = executor.hand.soldier
+            if soldier.top_spaces != Dimension::PlaceY.promotable_depth - 1
+              throw :skip
+            end
+
+            origin_soldier = executor.hand.origin_soldier
+            if origin_soldier.top_spaces != Dimension::PlaceY.promotable_depth
+              throw :skip
+            end
+
+            # ここで相手を見て、相手も入玉していたら、次のように相入玉とする方法もあるが
+            # player.skill_set.note_infos << Analysis::NoteInfo["相入玉"]
+            # それでなくてもここは処理が重いのでやらない
+            # formatter.container_run_once の方で、最後にチェックしている
+          },
+        },
+
+        {
+          key: "角不成",
+          logic_desc: "相手陣地に入るときと出るときの両方チェックする",
+          verify_process: proc {
+            unless executor.hand.origin_soldier.next_promotable?(executor.soldier.place)
+              throw :skip
+            end
+          },
+        },
+
+        {
+          key: "飛車不成",
+          logic_desc: "角不成と同じ方法でよい",
+          verify_process: proc {
+            unless executor.hand.origin_soldier.next_promotable?(executor.soldier.place)
+              throw :skip
+            end
+          },
+        },
+      ]
+    end
+  end
+end
+# ~> -:16:in `<class:TechniqueMatcherInfo>': uninitialized constant Bioshogi::Analysis::TechniqueMatcherInfo::ApplicationMemoryRecord (NameError)
+# ~> 	from -:5:in `<module:Analysis>'
+# ~> 	from -:4:in `<module:Bioshogi>'
+# ~> 	from -:3:in `<main>'