local 字集库 = require("u8_to_a")
local 基算库 = require(字集库.u8_to_a("算机_程语_月_基类_数_基算"))
local math = math
local d = {}
-- 加减
-- 指数
--~ 左加数
--~ 右加数
function d.加法(o1, o2)
  return o1 + o2
  end
--~ 左减数
--~ 右减数
function d.减法(o1, o2)
  return o1 - o2
function d.指数(o1, o2, o3)
  local k1
  if o3 then
    --~ 指数次
    k1 = 基算库.除法(o2, o3)
    return o1 ^ k1
  else
    return o1 ^ o2
    end
  end
-- 向上取整和向下取整
--~ 数
function d.向下取整(o1)
  return math.floor(o1)
  end
-- 乘除
--~ 左乘数
--~ 数
--~ 右乘数
function d.乘法(o1, o2)
  return o1 * o2
function d.负数(o1)
  return -o1
  end
--~ 左除数
-- 绝对值
--~ 右除数
function d.除法(o1, o2)
  return o1 / o2
function d.绝对值(o1)
  if o1 > 0 then
    return o1
  else
    return d.负数(o1)
    end
  end
return d

local d = {}
-- 数量
--~ 入参1
function d.一参(o1)
  return o1
  end
--~ 入参1
--~ 入参2
function d.二参(o1, o2)
  return o1, o2
  end
return d

local 后缀库 = require(字集库.u8_to_a("算机_程语_月_基类_文_后缀"))
local 历排库 = require(字集库.u8_to_a("算机_程语_月_基类_能_传能_历_基类_表_排_取全"))
local 历对库 = require(字集库.u8_to_a("算机_程语_月_基类_能_传能_历_基类_表_对_取全"))
local 历文库 = require(字集库.u8_to_a("算机_程语_月_基类_能_传能_历_基类_文_取全"))
local 历排取一库 = require(字集库.u8_to_a("算机_程语_月_基类_能_传能_历_基类_表_排_取一"))
local 基类库 = require(字集库.u8_to_a("算机_程语_月_基类_能_传能_基类"))
local 历对取一库 = require(字集库.u8_to_a("算机_程语_月_基类_能_传能_历_基类_表_对_取一"))
local 筛卡库 = require(字集库.u8_to_a("游戏王_则拟器_原版_残局_卡_全筛_有效果卡"))
local 筛卡库 = require(字集库.u8_to_a("游戏王_则拟器_原版_残局_卡_全筛"))
local 对库 = require(字集库.u8_to_a("算机_程语_月_基类_表_对"))
local 字节库 = require(字集库.u8_to_a("算机_理器_通用_字节"))
local 读文件库 = require(字集库.u8_to_a("算机_基统_窗群_文件系_小文件_读"))
local 写文件库 = require(字集库.u8_to_a("算机_基统_窗群_文件系_小文件_写"))
local string = string
local os = os
local d = {}

  --~ 最大的字段名数量
  _, k1 = 历对取一库.筛最大值(k1_0)
  --~ 最高频字段名对
  k2_0 = 历对库.历对(k1_0, 历对库.全等筛值, k1)
  return 历对取一库.筛最短键(k2_0)
  end
--~ 目对
function d.残局荐名(o1_0)
function d.残局改名(o1_0)
  local k1, k2
  local k1_0, k2_0, k3_0, k4_0, k5_0, k6_0, k7_0, k8_0, k9_0
  local k10_0
  --~ 文件名排
  k1_0 = 历文库.历文(o1_0.文件目, 文件系库.dir)
  k1_0 = 历排库.历排(k1_0, 后缀库.全筛后缀, ".lua")
  --~ 文件排

  k9_0 = 历排库.历排(k1_0, string.gsub, 字集库.u8_to_a("　" .. ".+"), "")
  --~ 编号排
  k10_0 = 历排库.历排(k1_0, string.gsub, 字集库.u8_to_a("　" .. ".+"), "")
  for o1 = 1, #k1_0 do
    k9_0[o1] = string.gsub(k9_0[o1], "%." .. "lua".. "$", "")
    k9_0[o1] = 字集库.a_to_u8(o1_0.文件目) .. 字集库.a_to_u8(k9_0[o1]) .. "　" .. k3_0[o1] .. "_" .. k7_0[o1] .. "_" .. k8_0[o1] .. "." .. "lua"
    k1_0[o1] = o1_0.文件目 .. k1_0[o1]
    print(k9_0[o1])
    --~ 新名
    k1 = 字集库.u8_to_a(k9_0[o1])
    os.rename(k1_0[o1], k1)
    --~ os.rename(k1_0[o1], k1)
    --~ 文件
    k2 = 读文件库.读文件(k1)
    k10_0[o1] = 字集库.a_to_u8(k10_0[o1])
    k2 = string.gsub(k2, "Debug" .. "%." .. "SetAIName" .. "[^\n]+", [[Debug.SetAIName("]] .. k10_0[o1] .. [[")]], 1)
    写文件库(k2, k1)
    --~ k2 = 读文件库.读文件(k1)
    --~ k10_0[o1] = 字集库.a_to_u8(k10_0[o1])
    --~ k2 = string.gsub(k2, "Debug" .. "%." .. "SetAIName" .. "[^\n]+", [[Debug.SetAIName("]] .. k10_0[o1] .. [[")]], 1)
    --~ 写文件库.写文件(k2, k1)
    end
  end
d.目对 = {
  ["文件目"] = "../single/"
  , ["卡档路"] = [[D:\install\YGOPro\cards.cdb]]
  }
for o1, o2 in pairs(d.目对) do
  d.目对[o1] = 基类库.操类(o2, "string", 字集库.u8_to_a)
  end
卡档 = 档库.open(d.目对.卡档路)
d.残局荐名(d.目对)
d.残局改名(d.目对)

无序号+系名+局名，因软件名宽不够。
序号+局名，如四妹系列，其益或在见名而知局内主字段，然英语差者不得此。
大量局名用阿斯克码表，因软件早期不许汉语。
今已许汉语，故欲用之。
除几人有多系名外，系名实为作者简称。
见某人怨局名，序号多而不显内。
再虑重名，综上，得下：
> 作者简称_避重序号（数字）　规名（数字）_有效果卡数（数字）_局内一字段名
> 作者简称_避重序号（数字）　规名（数字）_有效果卡数（数字）_全局怪兽卡攻击力相对于2500的标准差（数字）
中括号内为可选，小括号内为形式。
他人多用连接线，而此用下划线，以避混。
好，试之，例如：
> MH01
改为：
> 5_19_魔轰神_棉花_a01
似可行，按此办。