bioshogi 0.0.13 → 0.0.15

data/lib/bioshogi/{explain → analysis}/tactic_info.rb

@@ -1,16 +1,20 @@
 module Bioshogi
-  module Explain
+  module Analysis
     class TacticInfo
       include ApplicationMemoryRecord
       memory_record [
-        { key: :attack,    name: "戦型", },
-        { key: :defense,   name: "囲い", },
-        { key: :technique, name: "手筋", },
-        { key: :note,      name: "備考", },
+        { key: :attack,    },
+        { key: :defense,   },
+        { key: :technique, },
+        { key: :note,      },
       ]
 
       def model
-        @model ||= "bioshogi/explain/#{key}_info".classify.constantize
+        @model ||= "bioshogi/analysis/#{key}_info".classify.constantize
+      end
+
+      def name
+        model.human_name
       end
 
       def list_key
@@ -23,6 +27,11 @@ module Bioshogi
           all_elements_hash[key.to_s.to_sym]
         end
 
+        def flat_fetch(key)
+          all_elements_hash.fetch(key.to_s.to_sym)
+        end
+
+        # 曖昧検索用
         # TacticInfo.fuzzy_flat_lookup("アヒル").key # => :アヒル戦法
         def fuzzy_flat_lookup(key)
           v = nil
@@ -42,42 +51,56 @@ module Bioshogi
           @all_elements_hash ||= all_elements.inject({}) { |a, e| a.merge(e.key => e) }
         end
 
-        # technique_matcher_info を持っている all_elements
+        ################################################################################
+
+        # :PIECE_HASH_TABLE:
+        # technique_verify_info を持っている all_elements
         def piece_hash_table
           @piece_hash_table ||= all_elements.each_with_object({}) do |e, m|
-            technique_matcher_info = e.technique_matcher_info
-            if technique_matcher_info
-              v = e.trigger_piece_key
-              keys = nil
-              case v[:motion]
-              when :both
-                keys = [
-                  [v[:piece_key], v[:promoted], true],   # 「打」許可
-                  [v[:piece_key], v[:promoted], false],  # 「移動」も許可
-                ]
-              when :move
-                keys = [
-                  [v[:piece_key], v[:promoted], false],
-                ]
-              when :drop
-                keys = [
-                  [v[:piece_key], v[:promoted], true],
-                ]
-              else
-                raise "must not happen"
+            if e.technique_verify_info
+              Array.wrap(e.trigger_piece_key).each do |hv|
+                piece_hash_table_keys_by(hv).each do |key|
+                  m[key] ||= []
+                  m[key] << e
+                end
               end
-              keys.each do |key|
-                m[key] ||= []
-                m[key] << e
+            end
+          end
+        end
+
+        def piece_hash_table_keys_by(hv)
+          drop_p = array_from_motion(hv[:motion])
+
+          av = []
+          Array.wrap(hv[:piece_key]).each do |x|
+            Array.wrap(hv[:promoted]).each do |y|
+              Array.wrap(drop_p).each do |z|
+                av << [x, y, z]
               end
             end
           end
+          av
         end
 
+        def array_from_motion(motion)
+          case motion
+          when :move
+            [false]
+          when :drop
+            [true]
+          when :both
+            [true, false] # 「打」と「移動」を許可する
+          else
+            raise "must not happen"
+          end
+        end
+
+        ################################################################################
+
         # トリガーがある場合はそれだけ登録すればよくて
         # 登録がないものはすべてをトリガーキーと見なす
-        def soldier_hash_table
-          @soldier_hash_table ||= all_elements.each_with_object({}) do |e, m|
+        def primary_soldier_hash_table
+          @primary_soldier_hash_table ||= all_elements.each_with_object({}) do |e, m|
             if e.shape_info
               e.board_parser.primary_soldiers.each do |s|
                 # soldier 自体をキーにすればほどよく分散できる
@@ -114,7 +137,7 @@ module Bioshogi
             str.remove(/囲い\z/),
             str.remove(/流\z/),
             # 特殊
-            str.sub(/向かい飛車/, "向飛車"), # "向かい飛車" → "向かい飛車"
+            str.sub(/向かい飛車/, "向飛車"), # "向かい飛車" → "向飛車"
             str.sub(/向飛車/, "向かい飛車"), # "向飛車" → "向かい飛車"
           ]
         end

data/lib/bioshogi/analysis/tactic_stat.rb

@@ -0,0 +1,14 @@
+# -*- compile-command: "rake t" -*-
+
+module Bioshogi
+  module Analysis
+    class TacticStat
+      def call
+        Dir.chdir(Bioshogi::ROOT.parent) do
+          system "rg --sort path -g '*.kif' '戦法：.*,' lib/bioshogi/analysis > A→B→C戦法.txt"
+          system "rg --sort path -g '*.kif' '囲い：.*,' lib/bioshogi/analysis > A→B→C囲い.txt"
+        end
+      end
+    end
+  end
+end

data/lib/bioshogi/analysis/tactic_validator.rb

@@ -0,0 +1,60 @@
+# -*- compile-command: "rake v" -*-
+
+module Bioshogi
+  module Analysis
+    class TacticValidator
+      def call
+        @rows = TacticInfo.all_elements.flat_map do |e|
+          e.reference_files.collect do |file|
+            SingleValidator.new(e, file).call
+          end
+        end
+        puts
+        tp @rows
+        puts success? ? "OK" : "ERROR"
+        tp errors
+      end
+
+      def errors
+        @errors ||= @rows.find_all { |e| e["合致"] == "ERROR" }
+      end
+
+      def success?
+        errors.none?
+      end
+
+      private
+
+      class SingleValidator
+        def initialize(item, file)
+          @item = item
+          @file = file
+        end
+
+        def call
+          row = { "合致" => "", key: @item.key }
+          if @file
+            row[:file] = @file.basename.to_s
+            str = @file.read
+            info = Parser.parse(str)
+            info.formatter.container_run_once
+            info.formatter.container.players.each do |player|
+              keys = player.skill_set.list_of(@item).normalize.collect(&:key)
+              row[player.location.key] = keys
+            end
+            info.formatter.container.players.each do |player|
+              if row[player.location.key].include?(@item.key)
+                row["合致"] += player.location.mark
+              end
+            end
+          end
+          if row["合致"].blank?
+            row["合致"] = "ERROR"
+          end
+          print row["合致"] == "ERROR" ? "E" : "."
+          row
+        end
+      end
+    end
+  end
+end

data/lib/bioshogi/analysis/technique_info.rb

@@ -0,0 +1,62 @@
+# frozen-string-literal: true
+
+# 判定は kill_count_lteq, pawn_bishop_have_ok: nil, :pawn_have_ok しか使ってない
+
+module Bioshogi
+  module Analysis
+    class TechniqueInfo
+      # ROCKET_TRIGGERS = [
+      #   { piece_key: :lance, promoted: false, motion: :drop },
+      #   { piece_key: :rook,  promoted: false, motion: :both },
+      #   { piece_key: :rook,  promoted: true,  motion: :both },
+      # ]
+
+      include ApplicationMemoryRecord
+      memory_record [
+        { key: "たたきの歩",   trigger_piece_key: { piece_key: :pawn,   promoted: false, motion: :drop }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "継ぎ歩",       trigger_piece_key: { piece_key: :pawn,   promoted: false, motion: :drop }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "連打の歩",     trigger_piece_key: { piece_key: :pawn,   promoted: false, motion: :drop }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "垂れ歩",       trigger_piece_key: { piece_key: :pawn,   promoted: false, motion: :drop }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "金底の歩",     trigger_piece_key: { piece_key: :pawn,   promoted: false, motion: :drop }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "こびん攻め",   trigger_piece_key: { piece_key: :pawn,   promoted: false, motion: :both }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "一間竜",       trigger_piece_key: { piece_key: :rook,   promoted: true,  motion: :move }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "位の確保",     trigger_piece_key: { piece_key: :silver, promoted: false, motion: :move }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: true, kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "腹銀",         trigger_piece_key: { piece_key: :silver, promoted: false, motion: :drop }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "尻銀",         trigger_piece_key: { piece_key: :silver, promoted: false, motion: :drop }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "割り打ちの銀", trigger_piece_key: { piece_key: :silver, promoted: false, motion: :drop }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "たすきの銀",   trigger_piece_key: { piece_key: :silver, promoted: false, motion: :drop }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "たすきの角",   trigger_piece_key: { piece_key: :bishop, promoted: false, motion: :drop }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "桂頭の銀",     trigger_piece_key: { piece_key: :silver, promoted: false, motion: :drop }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "歩頭の桂",     trigger_piece_key: { piece_key: :knight, promoted: false, motion: :drop }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "田楽刺し",     trigger_piece_key: { piece_key: :lance,  promoted: false, motion: :drop }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "継ぎ桂",       trigger_piece_key: { piece_key: :knight, promoted: false, motion: :drop }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "ふんどしの桂", trigger_piece_key: { piece_key: :knight, promoted: false, motion: :drop }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "パンツを脱ぐ", trigger_piece_key: { piece_key: :knight, promoted: false, motion: :move }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: 0,    hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "銀ばさみ",     trigger_piece_key: { piece_key: :pawn,   promoted: false, motion: :move }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: true, kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "端玉には端歩", trigger_piece_key: { piece_key: :pawn,   promoted: false, motion: :move }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "銀冠の小部屋", trigger_piece_key: nil,                                                    parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "幽霊角",       trigger_piece_key: nil,                                                    parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "遠見の角",     trigger_piece_key: { piece_key: :bishop, promoted: false, motion: :drop }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "突き違いの歩", trigger_piece_key: nil,                                                    parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: true, kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "土下座の歩",   trigger_piece_key: { piece_key: :pawn,   promoted: false, motion: :drop }, parent: nil, related_ancestors: nil, alternate_name: nil, alias_names: nil, turn_limit: nil, turn_eq: nil, order_key: nil, not_have_pawn: nil, kill_only: nil, drop_only: nil,  pawn_bishop_have_ok: nil, pawn_have_ok: nil, outbreak_skip: nil,  kill_count_lteq: nil,  hold_piece_not_in: nil, hold_piece_in: nil, hold_piece_empty: nil, hold_piece_eq: nil,  },
+        { key: "2段ロケット",  parent: nil, },
+        { key: "3段ロケット",  parent: "2段ロケット", },
+        { key: "4段ロケット",  parent: "3段ロケット", },
+        { key: "5段ロケット",  parent: "4段ロケット", },
+        { key: "6段ロケット",  parent: "5段ロケット", },
+      ]
+
+      class_attribute :human_name, default: "手筋"
+
+      include ShapeInfoRelation
+      include BasicAccessor
+      include StyleAccessor
+
+      class << self
+        def rocket_list
+          @rocket_list ||= values.find_all { |e| e.key.end_with?("ロケット") }
+        end
+      end
+    end
+  end
+end

data/lib/bioshogi/analysis/technique_matcher_helper.rb

@@ -0,0 +1,8 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module Analysis
+    module TechniqueMatcherHelper
+    end
+  end
+end