bioshogi 0.0.14 → 0.0.15

data/lib/bioshogi/analysis/technique_matcher_info.rb

@@ -1,810 +0,0 @@
-# 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>'