bioshogi 0.0.3

data/lib/bioshogi/explain/tactic_hit_turn_table.rb

@@ -0,0 +1,316 @@
+# -*- frozen_string_literal: true -*-
+# /Users/ikeda/src/bioshogi/lib/bioshogi/explain/tactic_hit_turn_table_generator.rb から生成しているので編集するべからず
+module Bioshogi
+  module Explain
+    TacticHitTurnTable = {
+      "花村流名古屋戦法" => 37,
+      "清野流岐阜戦法" => 45,
+      "GAVA角" => 21,
+      "▲５五龍中飛車" => 7,
+      "ノーガード戦法" => 17,
+      "▲３七銀戦法" => 27,
+      "脇システム" => 31,
+      "ウソ矢倉" => 8,
+      "矢倉棒銀" => 38,
+      "森下システム" => 29,
+      "雀刺し" => 43,
+      "米長流急戦矢倉" => 25,
+      "カニカニ銀" => 21,
+      "カニカニ金" => 19,
+      "中原流急戦矢倉" => 28,
+      "阿久津流急戦矢倉" => 26,
+      "藤森流急戦矢倉" => 48,
+      "屋敷流二枚銀" => 25,
+      "屋敷流二枚銀棒銀型" => 23,
+      "矢倉中飛車" => 20,
+      "右四間飛車" => 14,
+      "原始棒銀" => 7,
+      "かまいたち戦法" => 12,
+      "高田流左玉" => 43,
+      "英春流カメレオン" => 33,
+      "パックマン戦法" => 2,
+      "山崎流パックマン" => 5,
+      "新米長玉" => 1,
+      "稲庭戦法" => 19,
+      "四手角" => 42,
+      "一間飛車" => 26,
+      "一間飛車穴熊" => 17,
+      "都成流△３一金" => 8,
+      "右四間飛車左美濃" => 24,
+      "角交換型" => 7,
+      "角換わり" => 8,
+      "一手損角換わり" => 4,
+      "手損角交換型" => 3,
+      "角換わり腰掛け銀" => 26,
+      "角換わり棒銀" => 15,
+      "角換わり早繰り銀" => 27,
+      "角換わり新型" => 35,
+      "筋違い角" => 5,
+      "相筋違い角" => 8,
+      "木村定跡" => 41,
+      "相掛かり" => 11,
+      "相掛かり棒銀" => 19,
+      "塚田スペシャル" => 25,
+      "中原流相掛かり" => 23,
+      "中原飛車" => 40,
+      "腰掛け銀" => 26,
+      "鎖鎌銀" => 21,
+      "▲８五飛車戦法" => 20,
+      "UFO銀" => 23,
+      "横歩取り" => 15,
+      "△３三角型空中戦法" => 16,
+      "△３三桂戦法" => 16,
+      "△２三歩戦法" => 12,
+      "△４五角戦法" => 20,
+      "相横歩取り" => 18,
+      "先手中飛車" => 7,
+      "中飛車ミレニアム" => 19,
+      "ゴキゲン中飛車" => 6,
+      "5筋位取り中飛車" => 5,
+      "ツノ銀中飛車" => 29,
+      "英ちゃん流中飛車" => 16,
+      "原始中飛車" => 1,
+      "中飛車左穴熊" => 54,
+      "平目" => 19,
+      "風車" => 52,
+      "新風車" => 31,
+      "加藤流袖飛車" => 26,
+      "▲５七金戦法" => 21,
+      "超急戦" => 13,
+      "遠山流" => 17,
+      "四間飛車" => 8,
+      "四間飛車ミレニアム" => 17,
+      "角道オープン四間飛車" => 3,
+      "耀龍四間飛車" => 13,
+      "藤井システム" => 21,
+      "立石流四間飛車" => 21,
+      "レグスペ" => 24,
+      "三間飛車" => 11,
+      "三間飛車ミレニアム" => 15,
+      "△３三飛戦法" => 10,
+      "石田流" => 21,
+      "早石田" => 7,
+      "ムリヤリ早石田" => 5,
+      "升田式石田流" => 7,
+      "鬼殺し" => 3,
+      "2手目△３ニ飛戦法" => 2,
+      "中田功XP" => 30,
+      "真部流" => 34,
+      "▲７八飛戦法" => 1,
+      "４→３戦法" => 26,
+      "楠本式石田流" => 41,
+      "新石田流" => 7,
+      "新鬼殺し" => 7,
+      "向かい飛車" => 8,
+      "ダイレクト向かい飛車" => 10,
+      "メリケン向かい飛車" => 15,
+      "阪田流向飛車" => 10,
+      "ショーダンシステム" => 40,
+      "菜々河流△４四角" => 4,
+      "菜々河流向かい飛車" => 12,
+      "オザワシステム" => 31,
+      "鬼殺し向かい飛車" => 28,
+      "陽動振り飛車" => 24,
+      "角頭歩戦法" => 4,
+      "玉頭銀" => 14,
+      "つくつくぼうし戦法" => 19,
+      "ひねり飛車" => 17,
+      "耀龍ひねり飛車" => 9,
+      "相振り飛車" => 2,
+      "角交換振り飛車" => 16,
+      "はく式四間飛車" => 19,
+      "幻想四間飛車" => 27,
+      "タランチュラ戦法" => 11,
+      "久夢流" => 39,
+      "きｍきｍ金" => 8,
+      "ポンポン桂" => 24,
+      "銀雲雀" => 23,
+      "ショーダンオリジナル" => 28,
+      "村田システム" => 9,
+      "新村田システム" => 19,
+      "玉頭位取り" => 19,
+      "６筋位取り" => 21,
+      "地下鉄飛車" => 74,
+      "飯島流引き角戦法" => 17,
+      "飯島流相掛かり引き角戦法" => 31,
+      "丸山ワクチン" => 7,
+      "新丸山ワクチン" => 9,
+      "▲４六銀右急戦" => 26,
+      "▲４六銀左急戦" => 28,
+      "▲４五歩早仕掛け" => 31,
+      "エルモ急戦" => 27,
+      "鷺宮定跡" => 23,
+      "棒銀" => 17,
+      "暴銀" => 23,
+      "左美濃急戦" => 29,
+      "右四間飛車急戦" => 19,
+      "鳥刺し" => 17,
+      "嬉野流" => 1,
+      "新嬉野流" => 5,
+      "メイドシステム" => 3,
+      "棒金" => 24,
+      "棒玉" => 59,
+      "超速▲３七銀" => 15,
+      "対振り持久戦" => 21,
+      "▲７二飛亜急戦" => 29,
+      "袖飛車" => 27,
+      "一直線穴熊" => 35,
+      "穴角戦法" => 53,
+      "穴角向かい飛車" => 5,
+      "うっかり三間飛車" => 6,
+      "菅井流三間飛車" => 9,
+      "アヒル戦法" => 17,
+      "裏アヒル戦法" => 15,
+      "矢倉左美濃急戦" => 22,
+      "青野流" => 17,
+      "勇気流" => 17,
+      "極限早繰り銀" => 15,
+      "33金型早繰り銀" => 20,
+      "トマホーク" => 25,
+      "羽生式袖飛車" => 4,
+      "初手７八銀戦法" => 1,
+      "初手３六歩戦法" => 1,
+      "2手目△74歩戦法" => 2,
+      "4手目△３三角戦法" => 4,
+      "きんとうん戦法" => 9,
+      "魔界四間飛車" => 13,
+      "目くらまし戦法" => 7,
+      "端棒銀" => 17,
+      "金銀橋" => 25,
+      "カメレオン戦法" => 9,
+      "xaby角戦法" => 6,
+      "天守閣囲い" => 15,
+      "カニ囲い" => 12,
+      "カブト囲い" => 15,
+      "金矢倉" => 45,
+      "銀矢倉" => 45,
+      "角矢倉" => 27,
+      "豆腐矢倉" => 25,
+      "隅矢倉" => 43,
+      "流れ矢倉" => 29,
+      "四角矢倉" => 43,
+      "へこみ矢倉" => 27,
+      "カタ囲い" => 40,
+      "悪形矢倉" => 21,
+      "天野矢倉" => 47,
+      "総矢倉" => 36,
+      "金門矢倉" => 39,
+      "矢倉穴熊" => 45,
+      "菊水矢倉" => 51,
+      "銀立ち矢倉" => 45,
+      "菱矢倉" => 48,
+      "一文字矢倉" => 37,
+      "富士見矢倉" => 33,
+      "矢倉早囲い" => 19,
+      "土居矢倉" => 25,
+      "高矢倉" => 37,
+      "カニ缶囲い" => 13,
+      "オリジナル雁木" => 25,
+      "オールド雁木" => 22,
+      "ツノ銀雁木" => 28,
+      "新型雁木" => 35,
+      "矢倉右玉" => 27,
+      "右玉" => 32,
+      "糸谷流右玉" => 33,
+      "羽生流右玉" => 30,
+      "角換わり右玉" => 30,
+      "雁木右玉" => 40,
+      "ツノ銀型右玉" => 32,
+      "三段右玉" => 35,
+      "カギ囲い" => 23,
+      "ボナンザ囲い" => 32,
+      "美濃囲い" => 27,
+      "連盟美濃" => 17,
+      "早囲い" => 9,
+      "三手囲い" => 9,
+      "ずれ美濃" => 11,
+      "振り飛車エルモ" => 17,
+      "カブト美濃" => 33,
+      "高美濃囲い" => 34,
+      "銀冠" => 39,
+      "片銀冠" => 31,
+      "銀美濃" => 37,
+      "振り飛車四枚美濃" => 33,
+      "ダイヤモンド美濃" => 39,
+      "木村美濃" => 42,
+      "大山美濃" => 29,
+      "裾固め" => 20,
+      "片美濃囲い" => 38,
+      "ちょんまげ美濃" => 11,
+      "坊主美濃" => 45,
+      "金美濃" => 23,
+      "左美濃" => 29,
+      "角道不突き左美濃" => 13,
+      "居飛車金美濃" => 25,
+      "升田美濃" => 31,
+      "天守閣美濃" => 24,
+      "四枚美濃" => 38,
+      "端玉銀冠" => 43,
+      "かんぴょう囲い" => 36,
+      "四枚銀冠" => 47,
+      "串カツ囲い" => 33,
+      "舟囲い" => 14,
+      "舟囲いDX" => 19,
+      "居飛車穴熊" => 32,
+      "松尾流穴熊" => 37,
+      "神吉流穴熊" => 31,
+      "紙穴熊" => 31,
+      "銀冠穴熊" => 43,
+      "ビッグ4" => 52,
+      "文鎮囲い" => 25,
+      "箱入り娘" => 41,
+      "金盾囲い" => 25,
+      "大盾囲い" => 19,
+      "ミレニアム囲い" => 64,
+      "振り飛車穴熊" => 24,
+      "振り飛車銀冠穴熊" => 41,
+      "振り飛車ビッグ4" => 49,
+      "振り飛車ミレニアム" => 28,
+      "振り飛車端玉銀冠" => 25,
+      "振り飛車串カツ囲い" => 17,
+      "振り飛車天守閣美濃" => 25,
+      "右矢倉" => 49,
+      "金無双" => 29,
+      "離れ金無双" => 27,
+      "中住まい" => 24,
+      "中原囲い" => 26,
+      "桐山流中原囲い" => 23,
+      "アヒル囲い" => 77,
+      "裏アヒル囲い" => 15,
+      "いちご囲い" => 27,
+      "無敵囲い" => 14,
+      "エルモ囲い" => 11,
+      "左山囲い" => 13,
+      "無責任矢倉" => 31,
+      "居飛穴音無しの構え" => 35,
+      "あずまや囲い" => 15,
+      "セメント囲い" => 31,
+      "銀多伝" => 36,
+      "金多伝" => 30,
+      "美濃熊囲い" => 33,
+      "モノレール囲い" => 25,
+      "チョコレート囲い" => 35,
+      "四段端玉" => 81,
+      "空中楼閣" => 89,
+      "金底の歩" => 1,
+      "パンツを脱ぐ" => 1,
+      "腹銀" => 1,
+      "垂れ歩" => 1,
+      "遠見の角" => 1,
+      "割り打ちの銀" => 1,
+      "桂頭の銀" => 1,
+      "ロケット" => 1,
+      "ふんどしの桂" => 1,
+      "継ぎ桂" => 1,
+      "銀冠の小部屋" => 60,
+      "幽霊角" => 17,
+      "入玉" => 13,
+      "角不成" => 3,
+      "飛車不成" => 7,
+      "居飛車" => 1,
+      "振り飛車" => 1,
+      "大駒コンプリート" => 5,
+      "駒柱" => 29,
+    }
+  end
+end

data/lib/bioshogi/explain/tactic_hit_turn_table_generator.rb

@@ -0,0 +1,61 @@
+# -*- compile-command: "ruby -I../.. -rbioshogi -e Bioshogi::Explain::TacticHitTurnTableGenerator.new.generate" -*-
+
+module Bioshogi
+  module Explain
+    class TacticHitTurnTableGenerator
+      def generate
+        body = body_format(turns_hash.inspect)
+        output_file.write(template % { body: body })
+        puts "write: #{output_file}"
+      end
+
+      private
+
+      def turns_hash
+        hash = {}
+        Explain::TacticInfo.all_elements.each do |e|
+          print "."
+          info = e.sample_kif_info
+          found = info.formatter.container.hand_logs.each.with_index do |hand_log, i|
+            if hand_log.skill_set.flat_map { |e| e.flat_map(&:key) }.include?(e.key)
+              hash[e.key.to_s] = i.next
+              break true
+            end
+          end
+          unless found
+            raise e.key
+          end
+        end
+        puts
+        hash
+      end
+
+      def output_file
+        Pathname("#{__dir__}/tactic_hit_turn_table.rb").expand_path
+      end
+
+      def template
+        o = []
+        o << "# -*- frozen_string_literal: true -*-"
+        o << "# #{__FILE__} から生成しているので編集するべからず"
+        o << "module Bioshogi"
+        o << "  module Explain"
+        o << "    TacticHitTurnTable = {"
+        o << "%{body}"
+        o << "    }"
+        o << "  end"
+        o << "end"
+        o.join("\n") + "\n"
+      end
+
+      def body_format(str)
+        str = str.gsub(/{/, "")
+        str = str.gsub(/}/, ",")
+        str = str.gsub(/\s*,\s*/, ",\n")
+        str = str.gsub(/^(?=")/, "  " * 3)
+        str = str.gsub("=>", " => ")
+        str = str.rstrip
+      end
+    end
+  end
+end

data/lib/bioshogi/explain/tactic_info.rb

@@ -0,0 +1,124 @@
+module Bioshogi
+  module Explain
+    class TacticInfo
+      include ApplicationMemoryRecord
+      memory_record [
+        { key: :attack,    name: "戦型", },
+        { key: :defense,   name: "囲い", },
+        { key: :technique, name: "手筋", },
+        { key: :note,      name: "備考", },
+      ]
+
+      def model
+        @model ||= "bioshogi/explain/#{key}_info".classify.constantize
+      end
+
+      def list_key
+        "#{key}_infos"
+      end
+
+      class << self
+        # TacticInfo.flat_lookup("金底の歩").key # => :金底の歩
+        def flat_lookup(key)
+          all_elements_hash[key.to_s.to_sym]
+        end
+
+        # TacticInfo.fuzzy_flat_lookup("アヒル").key # => :アヒル戦法
+        def fuzzy_flat_lookup(key)
+          v = nil
+          source_expand(key).each do |str|
+            if v = flat_lookup(str)
+              break
+            end
+          end
+          v
+        end
+
+        def all_elements
+          @all_elements ||= flat_map { |e| e.model.values }
+        end
+
+        def all_elements_hash
+          @all_elements_hash ||= all_elements.inject({}) { |a, e| a.merge(e.key => e) }
+        end
+
+        # technique_matcher_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"
+              end
+              keys.each do |key|
+                m[key] ||= []
+                m[key] << e
+              end
+            end
+          end
+        end
+
+        # トリガーがある場合はそれだけ登録すればよくて
+        # 登録がないものはすべてをトリガーキーと見なす
+        def soldier_hash_table
+          @soldier_hash_table ||= all_elements.each_with_object({}) do |e, m|
+            if e.shape_info
+              e.board_parser.primary_soldiers.each do |s|
+                # soldier 自体をキーにすればほどよく分散できる
+                m[s] ||= []
+                m[s] << e
+              end
+            end
+          end
+        end
+
+        def piece_box_added_proc_list
+          @piece_box_added_proc_list ||= all_elements.find_all do |e|
+            e.respond_to?(:piece_box_added_proc) && e.piece_box_added_proc
+          end
+        end
+
+        def every_time_proc_list
+          @every_time_proc_list ||= all_elements.find_all do |e|
+            e.respond_to?(:every_time_proc) && e.every_time_proc
+          end
+        end
+
+        def source_expand(str)
+          str = str.to_s
+          [
+            # "アヒル戦法"
+            str,
+            # "アヒル" → "アヒル戦法"
+            str + "戦法",
+            str + "囲い",
+            str + "流",
+            # "都成流戦法" → "都成流"
+            str.remove(/戦法\z/),
+            str.remove(/囲い\z/),
+            str.remove(/流\z/),
+            # 特殊
+            str.sub(/向かい飛車/, "向飛車"), # "向かい飛車" → "向かい飛車"
+            str.sub(/向飛車/, "向かい飛車"), # "向飛車" → "向かい飛車"
+          ]
+        end
+      end
+    end
+  end
+end

data/lib/bioshogi/explain/tactic_validator.rb

@@ -0,0 +1,40 @@
+# -*- compile-command: "rake v" -*-
+
+module Bioshogi
+  module Explain
+    class TacticValidator
+      def call
+        rows = TacticInfo.all_elements.collect(&method(:process_one))
+        puts
+        tp rows
+        puts rows.all? { |e| e["合致"].present? } ? "OK" : "ERROR"
+      end
+
+      private
+
+      def process_one(e)
+        file = e.sample_kif_or_ki2_file
+        row = { "合致" => "", key: e.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 { |player|
+            keys = player.skill_set.list_of(e).normalize.collect(&:key)
+            row[player.location.key] = keys
+          }
+          info.formatter.container.players.each { |player|
+            if row[player.location.key].include?(e.key)
+              row["合致"] += player.location.mark
+            end
+          }
+        else
+          row["合致"] = "skip"
+        end
+        print row["合致"].present? ? "." : "E"
+        row
+      end
+    end
+  end
+end

data/lib/bioshogi/explain/tech_accessor.rb

@@ -0,0 +1,147 @@
+# frozen-string-literal: true
+
+module Bioshogi
+  module Explain
+    concern :TechAccessor do
+      included do
+        include TreeSupport::Treeable
+        include TreeSupport::Stringify
+
+        delegate :tactic_key, to: "self.class"
+      end
+
+      class_methods do
+        # ["ポンポン桂"].name # => "ポンポン桂"
+        # ["富沢キック"].name # => "ポンポン桂"
+        def lookup(v)
+          super || other_table[v]
+        end
+
+        def tactic_key
+          @tactic_key ||= name.demodulize.underscore.remove(/_info/)
+        end
+
+        private
+
+        def other_table
+          @other_table ||= inject({}) do |a, e|
+            e.alias_names.inject(a) do |a, v|
+              a.merge(v => e)
+            end
+          end
+        end
+      end
+
+      # 必ず alternate_name に反応するようにしておく
+      def alternate_name
+        if defined?(super)
+          super
+        end
+      end
+
+      # key と name は異なる
+      def name
+        alternate_name || super
+      end
+
+      def parent
+        if super
+          @parent ||= self.class.fetch(super)
+        end
+      end
+
+      def children
+        @children ||= self.class.find_all { |e| e.parent == self }
+      end
+
+      def cached_descendants
+        @cached_descendants ||= descendants
+      end
+
+      def other_parents
+        @other_parents ||= Array(super).collect { |e| self.class.fetch(e) }
+      end
+
+      def alias_names
+        Array(super)
+      end
+
+      def sect_info
+        SectInfo.fetch(sect_key)
+      end
+
+      def hold_piece_eq
+        if v = super
+          @hold_piece_eq ||= PieceBox.new(Piece.s_to_h(v))
+        end
+      end
+
+      def hold_piece_in
+        if v = super
+          @hold_piece_in ||= PieceBox.new(Piece.s_to_h(v))
+        end
+      end
+
+      def hold_piece_not_in
+        if v = super
+          @hold_piece_not_in ||= PieceBox.new(Piece.s_to_h(v))
+        end
+      end
+
+      def tactic_info
+        TacticInfo.fetch(tactic_key)
+      end
+
+      def group_info
+        return @group_info if instance_variable_defined?(:@group_info)
+        if respond_to?(:group_key) && group_key
+          @group_info ||= GroupInfo.fetch(group_key)
+        end
+      end
+
+      def add_to_opponent
+        return @add_to_opponent if instance_variable_defined?(:@add_to_opponent)
+        if defined?(super) && v = super
+          @add_to_opponent ||= TacticInfo.flat_lookup(v)
+        end
+      end
+
+      def technique_matcher_info
+        @technique_matcher_info ||= TechniqueMatcherInfo.lookup(key)
+      end
+
+      def skip_elements
+        return @skip_elements if instance_variable_defined?(:@skip_elements)
+
+        @skip_elements = nil
+        if respond_to?(:skip_if_exist_keys)
+          @skip_elements = Array(skip_if_exist_keys).collect { |e| TacticInfo.flat_lookup(e) }
+        end
+      end
+
+      def hit_turn
+        TacticHitTurnTable[key.to_s]
+      end
+
+      def distribution_ratio
+        DistributionRatio[key]
+      end
+
+      def sample_kif_file
+        Pathname("#{__dir__}/#{tactic_info.name}/#{key}.kif")
+      end
+
+      def sample_kif_info(options = {})
+        Parser.file_parse(sample_kif_file, options)
+      end
+
+      def sample_kif_or_ki2_file
+        Pathname.glob("#{__dir__}/#{tactic_info.name}/#{key}.{kif,ki2}").first
+      end
+
+      # def sample_any_files
+      #   Pathname("#{__dir__}/#{tactic_info.name}").glob("#{key}.{kif,ki2,csa}")
+      # end
+    end
+  end
+end