--~ package.path = [[.\dfns_jvwg_ysaf\?.lua;]] .. package.path
--~ package.cpath = [[.\dfns_jvwg_ysaf\?.dll;]] .. package.cpath
local 字集码互转库 = require("u8_to_a")
local d_5 = {}
--~ function _G.历排(o1_11, o1, o2, o3, o4)
  --~ local k1_8
  --~ local k1_11
  --~ k1_11 = {}
  --~ for o5 = 1, #o1_11 do
    --~ k1_8 = o1(o1_11[o5], o2, o3, o4)
    --~ if k1_8 then
      --~ k1_11[#k1_11 + 1] = k1_8
      --~ end
    --~ end
  --~ return k1_11
  --~ end
--~ function _G.历文(o1, o2, o3, o4)
  --~ local k1_9
  --~ k1_9 = {}
  --~ for o5 in o2(o1, o3, o4) do
    --~ k1_9[#k1_9 + 1] = o5
    --~ end
  --~ return k1_9
  --~ end
--~ local 简件系库 = require("lfs")
--~ require(字集码互转库.u8_to_a("程语_月_基类_字串_内置库_加多"))
--~ 程语_月_标准库_仿照_加多_多编码_大字集_通用

  end
--~ do
--~ local k1 = os.execute
--~ function _G.os.execute(command)
--~ return k1(字集码互转库.u2a(command))
--~ end
--~ end
function d_5.读件(o1, o2)
  local k1
  local k1_3
  k1_3 = io.open(o1, o2 or "r")
  k1 = k1_3:read("a")
  k1_3:flush()
  k1_3:close()
  return k1
  end
function d_5.读件排(o1_9, o1)
  local k1_9
  k1_9 = {}
  for o2 = 1, #o1_9 do
    k1_9[#k1_9 + 1] = d_5.读件(o1_9[o2], o1)
    end
  return k1_9
  end
function d_5.写件(o1, o2, o3)
  local k1_3
  k1_3 = io.open(o1, o3 or "w")
  k1_3:write(o2)
  k1_3:flush()
  k1_3:close()
  end
function d_5.写件_一维(o1, o1_9, o2, o3)
  local k1 = table.concat(o1_9, "\n")
  if o3 then
    k1 = o3(k1)
    end
  d_5.写件(o1, k1, o2)
  end
function d_5.删制表符(o1)
  return o1:gsub("\t", "")
  end
--~ function d_5.删空白字(o1)
--~ return o1:gsub("%s", "")
--~ end
--~ function d_5.删空格与制表符(o1)
--~ o1 = d_5.删空格(o1)
--~ return d_5.删制表符(o1)
--~ end
function d_5.文转排(text)
  local lines = {}
  for line in text:gmatch("[^\n]+") do
    table.insert(lines, line)
    end
  return lines
  end
--~ function d_5.删前缀(o1, o2)
--~ if o1:find(o2, 1, true) then
--~ return o1:sub(#o2 + 1)
--~ end
--~ end
--~ function d_5.删后缀(o1, o2)
--~ if o1:find(o2, -1, true) then
--~ return o1:sub(1, #o1 - #o2)
--~ end
--~ end
--~ function d_5.删空行_不虑首末态(o1)
--~ return o1:gsub("\n+", "\n")
--~ end
--~ function d_5.删空行(o1)
--~ o1 = d_5.删空行_不虑首末态(o1)
--~ o1 = d_5.删前缀(o1, "\n")
--~ return d_5.删后缀(o1, "\n")
--~ end
function d_5.删空格(o1)
  return o1:gsub(" ", "")
  end
function d_5.筛排(o1_9, o1, o2, o3)
  local k1_8
  local k1_9
  k1_9 = {}
  for o4 = 1, #o1_9 do
    k1_8 = o1(o1_9[o4], o2, o3)
    if k1_8 then
      k1_9[#k1_9 + 1] = k1_8
      end
    end
  return k1_9
  end
--~ function d_5.筛文(o1, o2, o3)
--~ local k1_9
--~ k1_9 = {}
--~ for o4 in o2(o1, o3) do
--~ k1_9[#k1_9 + 1] = o4
--~ end
--~ return k1_9
--~ end
--~ function d_5.判文(o1, o2, o3, o4)
--~ if o1:find(o2 or ".", o3, o4) then
--~ return o1
--~ end
--~ end
--~ function d_5.筛件径(o1, o2)
  --~ local k1_9
  --~ k1_9 = d_5.筛文(o1, 简件系库.dir)
  --~ k1_9 = d_5.筛排(k1_9, d_5.加前缀, o1 .. "/")
  --~ k1_9 = d_5.筛排(k1_9, d_5.判文, o2)
  --~ return d_5.筛排(k1_9, d_5.在前后加英文双引号)
  --~ end
--~ function d_5.筛单行等式(o1)
--~ return 常用库.捕排(string.gmatch, o1, "[^\n= \t]+")
--~ end
--~ function d_5.捕非空单行(o1)
--~ return 常用库.捕排(string.gmatch, o1, "[^\n]+[\n]?")
--~ end
--~ function d_5.捕非空单行(o1)
--~ return 常用库.捕排(string.gmatch, o1, "[^\n]+[\n]?")
--~ end
function d_5.排转对(o1_12, o1)
  local k1_5
  local k1_11
  k1_11 = {}
  for o2 = 1, #o1_12, o1 + 1 do
    k1_5 = {}
    for o3 = 1, o1 do
      k1_5[o3] = o1_12[o2 + o3]
      end
    k1_11[o1_12[o2]] = k1_5
    end
  return k1_11
  end
--~ function d_5.加前缀(o1, o2)
--~ return o2 .. o1
--~ end
--~ function d_5.加后缀(o1, o2)
--~ return o1 .. o2
--~ end
function d_5.filterLinesWithCharacter(text, character)
  local result = {}
  local lines = d_5.文转排(text)
  -- 遍历每一行，检查是否包含目标字符
  for i, line in ipairs(lines) do
    if line:find(character, 1, true) then
      table.insert(result, line)
      end
    end
  return result
  end
--~ function d_5.办令(o1)
  --~ print(o1)
  --~ os.execute(o1)
  --~ end
--~ function d_5.在前后加英文双引号(o1)
--~ return [["]] .. o1 .. [["]]
--~ end
--~ function d_5.筛单行等式_左右值态(o1)
--~ local k1_11
--~ k1_11 = {}
--~ for o2 in k1_11:gmatch("[^\n= \t]+") do
--~ table.insert(k1_11, o2)
--~ end
--~ return o2
--~ end
return d_5

local d_3 = {}
--~ function d_3.多行注_套娃态(o1)
--~ return o1:gsub("%-%-%[(=*)%[.-%]%1%]", "")
--~ end
--~ function d_3.多行注_凡态(o1)
--~ return o1:gsub("%-%-%[%[.-%]%]", "")
--~ end
function d_3.单行注_不虑字串态(o1)
	return o1:gsub("%-%-[^\n]*", "")
end
--~ function d_3.事启(o1)
--~ o1 = d_3.多行注_套娃态(o1)
--~ return d_3.单行注(o1)
--~ end
return d_3

local s = {}
local 简文件库 = require("lfs")
local ffi = require("ffi")
--~ 排
--~ 办排中值的能
--~ 入参2
--~ 入参3
--~ 入参4
function s.历排(u1_0, o1, o2, o3, o4)
  local k1_0
  --~ 集排
  k1_0 = {}
  for o5 = 1, #u1_0 do
    k1_0[#k1_0 + 1] = o1(u1_0[o5], o2, o3, o4)
    end
  return k1_0
  end
--~ 文
--~ 历文的能
--~ 入参2
--~ 入参3
function s.历文(o1, o2, o3, o4)
  local k1_0
  --~ 集排
  k1_0 = {}
  for o5 in o2(o1, o3, o4) do
    k1_0[#k1_0 + 1] = o5
    end
  return k1_0
  end
--~ 排
--~ 能
function s.历排取一(u1_0, o1)
  local k1
  for o2 = 1, #u1_0 do
    --~ 值
    k1 = s.历排取一的模(k1, u1_0[o2], o1)
    end
  return k1
  end
--~ 值
--~ 排中值
function s.历排取一的模(o1, o2, o3)
  if o1 == nil then
    return o2
  elseif o3(o1, o2) then
    return o2
  else
    return o1
    end
  end
--~ 对
--~ 能
function s.历对取一(u1_0, o1)
  local k1, k2
  for o2, u2_0 in pairs(u1_0) do
    --~ 键
    --~ 值
    k1, k2 = s.历对取一的模(k1, k2, o2, u2_0, o1)
    end
  return k1, k2
  end
function s.历对取一的模(o1, o2, o3, o4, o5)
  if o1 == nil then
    return o3, o4
  elseif o5(o1, o2, o3, o4) then
    return o3, o4
  else
    return o1, o2
    end
  end
function s.历对(u1_0, o1, o2)
  local k1
  local k1_0, k2_0
  --~ 对
  k1_0 = {}
  for o3, u2_0 in pairs(u1_0) do
    --~ 键
    --~ 值
    k1, k2_0 = o1(o3, u2_0, o2)
    if k1 then
      k1_0[k1] = k2_0
    else
      end
    end
  return k1_0
  end
--~ 排中值
--~ 值类
--~ 办值的能
function s.操类(u1_0, o1, o2)
  if type(u1_0) == o1 then
    return o2(u1_0)
  else
    return u1_0
    end
  end
--~ 排中文
--~ 入参2
--~ 入参3
--~ 入参4
function s.全筛文(o1, o2, o3, o4)
  print(4)
  if string.find(o1, o2, o3, o4) then
    return o1
    end
  end
--~ 文
--~ 前缀
function s.加前缀(o1, o2)
  return (o2 or "") .. o1
  end
--~ 文
--~ 后缀
function s.加后缀(o1, o2)
  return o1 .. (o2 or "")
  end
--~ 令
function s.办令(o1)
  print(o1)
  os.execute(o1)
  end
--~ 文
--~ 前缀
function s.全筛前缀(o1, o2)
  if string.sub(o1, 1, #o2) == o2 then
    return o1
    end
  end
--~ 文
--~ 后缀
function s.全筛后缀(o1, o2)
  if string.sub(o1, -#o2) == o2 then
    return o1
    end
  end
--~ 目对
function s.用令行工具操文件(u1_0)
  local k1_9
  --~ 令行排
  k1_9 = s.历文(u1_0.文件目, 简文件库.dir)
  k1_9 = s.历排(k1_9, s.全筛后缀, u1_0.文件类)
  for o1 = 1, #k1_9 do
    k1_9[o1] = s.加前缀(k1_9[o1], u1_0.文件目)
    k1_9[o1] = s.加前缀(k1_9[o1], [["]])
    k1_9[o1] = s.加后缀(k1_9[o1], [["]])
    k1_9[o1] = s.加前缀(k1_9[o1], u1_0.令行前缀)
    s.办令(k1_9[o1])
    end
  end
--~ 文件路
--~ 式
function s.读文件(o1, o2)
  local k1
  local k1_3
  --~ 文件
  k1_3 = io.open(o1, o2 or "r")
  --~ 文
  k1 = k1_3:read("a")
  k1_3:flush()
  k1_3:close()
  return k1
  end
--~ 常量排
function s.加对限(u1_0)
  table.insert(u1_0, 1, "local k1_0 = {}")
  table.insert(u1_0, "return k1_0")
  return table.concat(u1_0, "\n")
  end
--~ 文
--~ 文件路
--~ 式
function s.写文件(o1, o2, o3)
  local k1_3
  --~ 文件
  k1_3 = io.open(o2, o3 or "w")
  k1_3:write(o1)
  k1_3:flush()
  k1_3:close()
  end
--~ 文
function s.删左右空白(o1)
  o1 = string.gsub(o1, "^%s+", "")
  return string.gsub(o1, "%s+$", "")
  end
--~ 对
--~ 对
function s.连两对(u1_0, u2_0)
  for u3_0, u4_0 in pairs(u2_0) do
    u1_0[u3_0] = u4_0
    end

  function s.递增()
    k1 = k1 + 1
    return k1
    end
  end
--~ 左加数
--~ 右加数
function s.加法(o1, o2)
  return o1 + o2
  end
--~ 左减数
--~ 右减数
function s.减法(o1, o2)
  return o1 - o2
  end
--~ 左乘数
--~ 右乘数
function s.乘法(o1, o2)
  return o1 * o2
  end
--~ 左除数
--~ 右除数
function s.除法(o1, o2)
  return o1 / o2
  end
--~ 左数
--~ 右数
function s.位和(o1, o2)
  return bit.band(o1, o2)
  end
--~ 数
--~ 右移几位
function s.位右移(o1, o2)
  return bit.rshift(o1, o2)
  end
--~ 键
--~ 最大值
--~ 键
--~ 值
function s.筛对中最大值(o1, o2, o3, o4)
  if o2 < o4 then
    return true
    end
  end
--~ 最短键
--~ 值
--~ 键
--~ 值
function s.筛对中最短键(o1, o2, o3, o4)
  if #o1 > #o3 then
    return true
    end
  end
--~ 最短文
--~ 值
function s.筛排中最短文(o1, o2)
  if #o1 > #o2 then
    return true
    end
  end
--~ 内数
function s.to_uint64(o1)
  local uint64_pointer = ffi.new("uint64_t[1]", o1)
  return uint64_pointer[0]
  end
--~ 键
--~ 值
--~ 要找的值
function s.全等筛对中值(o1, o2, o3)
  if o2 == o3 then
    return o1, o2
  else
    end
  end
return s

local 字集库 = require("u8_to_a")
local 档库 = require("lsqlite3")
local 文库 = require(字集库.u8_to_a("算机_程语_月_基类_文"))
local 对库 = require(字集库.u8_to_a("算机_程语_月_基类_表_对"))
local s = {}
local 卡档
--~ 卡编
function s.取卡对(o1)
  local k1_0, k2_0
  --~ 卡文对
  k1_0 = s.取卡文(o1)
  --~ 卡数据对
  k2_0 = s.取卡数据(o1)
  return 对库.连两对(k1_0, k2_0)
  end
--~ 卡编
function s._取卡对(o1, o2)
  for o1_4 in 卡档:nrows(文库.连(o2, o1)) do
    return o1_4
    end
  end
do
  local k1
  --~ 模
  k1 = "select * from texts where id = "
  --~ 卡编
  function s.取卡文(o1)
    return s._取卡对(o1, k1)
    end
  end
do
  local k1
  --~ 模
  k1 = "select * from datas where id = "
  --~ 卡编
  function s.取卡数据(o1)
    return s._取卡对(o1, k1)
    end
  end
--~ 卡档路
function s.启卡档(o1)
  卡档 = 档库.open(o1)
  end
return s

  28363749 --火蛋白石头龙头领
  , 19474136 --曼陀林草龙
  , 17390179 --闪光之骑士
  , 83980492 --铜锣龙
  }
--~ 卡对
function s.筛有效果卡(u1_0)
  for o1 = 1, #有效果卡的类排 do
    if 位算库.位和(有效果卡的类排[o1], u1_0.type) == 0 then
    else
      return u1_0
      end
    end
  if 位算库.位和(TYPE_PENDULUM, u1_0.type) == 0 then
  else
    if 无效果灵摆怪兽排[u1_0.id] then

local d_2 = {}
--~ 传参_参数数量
function d_2.二个参数(o1, o2, o3, o4)
  return o1(o2(o3), o2(o4))
  end
function d_2.三个参数(o1, o2, o3, o4, o5)
  return o1(o2(o3), o2(o4), o2(o5))
  end
function d_2.四个参数(o1, o2, o3, o4, o5, o6)
  return o1(o2(o3), o2(o4), o2(o5), o2(o6))
  end
return d_2

local d_2 = {}
function d_2.找字(o1, o2, o3, o4)
  --~ print(o1, o2, o3, o4)
  if o1:find(o2, o3, o4) then
    return o1
    end
  end
--~ function d_2.返全文_普态_前缀态(o1, o2)
  --~ return d_2.返全文(o1, o2, 1, true)
  --~ end
--~ function d_2.返选文(o1, o2)
  --~ return o1:match(o2)
  --~ end
return d_2

--~ local 历排库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_序排_逐一")
local d_4 = {}
--~ 加
function d_4.加前缀(o1, o2)
  return (o2 or "") .. o1
  end
function d_4.加后缀(o1, o2)
  return o1 .. (o2 or "")
  end
--~ 加_分_确保
--~ function d_4.加前缀_确保态(o1, o2, o3)
--~ 筛文库.返全文(o1, )
--~ local k1
--~ k1 = d_4.删前缀(o1, o2, o3)
--~ return o2 .. o1
--~ end
--~ function d_4.加前缀与后缀(o1, o2, o3)
  --~ o1 = d_4.加后缀(o1, o3)
  --~ return d_4.加前缀(o1, o2)
  --~ end
--~ function d_4.逐一加前缀(o1, o2)
  --~ return 历排库.处理后返回新排(o1, d_4.加前缀, o2)
  --~ end
--~ function d_4.逐一加前缀与后缀(o1, o2, o3)
  --~ return 历排库.处理后返回新排(o1, d_4.加前缀与后缀, o2, o3)
  --~ end
--~ function d_4.逐一在前后加上英文双引号(o1)
  --~ return 历排库.处理后返回新排(o1, d_4.在前后加英文双引号)
  --~ end
--~ 删
--~ function d_4.删前缀_基态(o1, o2)
  --~ if o1:startswith(o2) then
    --~ return o1:sub(#o2 + 1)
    --~ end
  --~ end
--~ function d_4.删后缀_基态(o1, o2)
  --~ if o1:endswith(o2) then
    --~ return o1:sub(1, #o1 - #o2)
    --~ end
  --~ end
--~ 场景_令行窗_件径
--~ function d_4.在前后加英文双引号(o1)
  --~ return d_4.加前缀与后缀(o1, [["]], [["]])
  --~ end
return d_4

local d_2 = {}
function d_2.处理后返回新排(o1, o2, o3, o4)
  local k1_9
  k1_9 = {}
  for o5 in o2(o1, o3, o4) do
    k1_9[#k1_9 + 1] = o5
    end
  return k1_9
  end
return d_2

local d_2 = {}
function d_2.处理后返回新排(o1_11, o1, o2, o3, o4)
  local k1_8
  local k1_11
  k1_11 = {}
  for o5 = 1, #o1_11 do
    k1_8 = o1(o1_11[o5], o2, o3, o4)
    if k1_8 then
      k1_11[#k1_11 + 1] = k1_8
      end
    end
  return k1_11
  end
--~ function d_2.处理(o1_11, o1, o2, o3)
  --~ for o4 = 1, #o1_11 do
    --~ o1(o1_11[o4], o2, o3)
    --~ end
  --~ end
return d_2

local d_2 = {}
function d_2.单行注(o1)
  return o1:gsub("%-%-[^\n]*", "")
  end
return d_2

local d_3 = {}
--~ 加
function d_3.加始缀_基态(o1, o2)
  return o2 .. o1
  end
function d_3.加终缀_基态(o1, o2)
  return o1 .. o2
  end
--~ 加_分_确保
--~ function d_3.加前缀_确保态(o1, o2, o3)
--~ 筛文库.返全文(o1, )
--~ local k1
--~ k1 = d_3.删前缀(o1, o2, o3)
--~ return o2 .. o1
--~ end
--~ 减
function d_3.减始缀_基态(o1, o2)
  if o1:startswith(o2) then
    return o1:sub(#o2 + 1)
    end
  end
function d_3.减终缀_基态(o1, o2)
  if o1:endswith(o2) then
    return o1:sub(1, #o1 - #o2)
    end
  end
return d_3

local d_2 = {}
function d_2.空格与制表符(o1)
  return o1:gsub("[ \t]", "")
  end
return d_2

local d_3 = {}
--~ 加
function d_3.加前缀_基态(o1, o2)
  return o2 .. o1
  end
function d_3.加始缀_基态(o1, o2)
  return o2 .. o1
  end
function d_3.加后缀_基态(o1, o2)
  return o1 .. o2
  end
function d_3.加终缀_基态(o1, o2)
  return o1 .. o2
  end
--~ 加_分_确保
--~ function d_3.加前缀_确保态(o1, o2, o3)
--~ 筛文库.返全文(o1, )
--~ local k1
--~ k1 = d_3.删前缀(o1, o2, o3)
--~ return o2 .. o1
--~ end
function d_3.加前缀与后缀_基态(o1, o2, o3)
  return o2 .. o1 .. (o3 or "")
  end
function d_3.加始缀与终缀_基态(o1, o2, o3)
  return o2 .. o1 .. (o3 or "")
  end
--~ 删
function d_3.删前缀_基态(o1, o2)
  if o1:startswith(o2) then
    return o1:sub(#o2 + 1)
    end
  end
function d_3.减始缀_基态(o1, o2)
  if o1:startswith(o2) then
    return o1:sub(#o2 + 1)
    end
  end
function d_3.删后缀_基态(o1, o2)
  if o1:endswith(o2) then
    return o1:sub(1, #o1 - #o2)
    end
  end
function d_3.减终缀_基态(o1, o2)
  if o1:endswith(o2) then
    return o1:sub(1, #o1 - #o2)
    end
  end
--~ 场景_令行窗_件径
function d_3.在前后加英文双引号_基态(o1)
  return [["]] .. o1 .. [["]]
  end
function d_3.在始终加英文双引号_基态(o1)
  return [["]] .. o1 .. [["]]
  end
return d_3

local d_2 = {}
local 遍历文库 = 常用库.导入库_通用大字集态_八位态("程语_月_基类_文_遍历")
function d_2.单行_非空态_无换行符态(o1)
  return 遍历文库.遍历(o1, string.gmatch, "[^\n]+")
  end
return d_2

local d_2 = {}
function d_2.写件(o1, o2, o3)
  local k1_3
  k1_3 = io.open(o2, o3 or "w")
  k1_3:write(o1)
  k1_3:flush()
  k1_3:close()
  end
return d_2

local d_2 = {}
function d_2.读件(o1, o2)
  local k1
  local k1_3
  k1_3 = io.open(o1, o2 or "r")
  k1 = k1_3:read("a")
  k1_3:flush()
  k1_3:close()
  return k1
  end
return d_2

local s = {}
--~ 文
--~ 文件路
--~ 式
function s.写文件(o1, o2, o3)
  local k1_3
  --~ 文件
  k1_3 = io.open(o2, o3 or "w")
  k1_3:write(o1)
  k1_3:flush()
  k1_3:close()
  end
return s

local s = {}
--~ 文件路
--~ 式
function s.读文件(o1, o2)
  local k1
  local k1_3
  --~ 文件
  k1_3 = io.open(o1, o2 or "r")
  --~ 文
  k1 = k1_3:read("a")
  k1_3:flush()
  k1_3:close()
  return k1
  end
return s

local ffi = require("ffi")
local s = {}
--~ 内数
function s.to_uint64(o1)
  local uint64_pointer = ffi.new("uint64_t[1]", o1)
  return uint64_pointer[0]
  end
return s

local 字集库 = require("u8_to_a")
local 基算库 = require(字集库.u8_to_a("算机_程语_月_基类_数_基算"))
local math = math
local string = string
local s = {}
-- 指数
--~ 左加数
--~ 右加数
function s.指数(o1, o2, o3)
  local k1
  if o3 then
    --~ 指数次
    k1 = 基算库.除法(o2, o3)
    return o1 ^ k1
  else
    return o1 ^ o2
    end
  end
-- 指数次
--~ 数
--~ 指数底
function s.指数次(o1, o2)
  local k1
  --~ 指数次
  k1 = math.log(o1) / math.log(o2)
  return k1
  end
--~ 数
function s.二底指数次(o1)
  local k1
  --~ 指数次
  _, k1 = math.frexp(o1)
  return k1
  end
-- 向大取整和向小取整
--~ 数
function s.向小取整(o1)
  return math.floor(o1)
  end
-- 几位整数和几位小数
--~ 数
--~ 几位整数
function s.几位整数(o1, o2)
  return string.format("%0" .. o2 .. "d", o1)
  end
--~ 数
--~ 几位小数
function s.几位小数(o1, o2)
  return string.format("%." .. o2 .. "f", o1)
  end
-- 正数与负数
--~ 数
function s.正数(o1)
  if o1 >= 0 then
    return o1
  else
    return -o1
    end
  end
--~ 数
function s.负数(o1)
  if o1 >= 0 then
    return -o1
  else
    return o1
    end
  end
-- 递加
do
  local k1_0
  --~ 数表
  k1_0 = {}
  function s.递加(o1)
    if k1_0[o1] then
    else
      k1_0[o1] = 0
      end
    k1_0[o1] = k1_0[o1] + 1
    return k1_0[o1]
    end
  end
-- 最值
function s.最大值()
  return math.huge
  end
function s.最小值()
  local k1
  --~ 最大值
  k1 = s.最大值()
  return s.负数(k1)
  end
--~ 数
function s.是否最值(o1)
  if o1 == s.最大值()
  or o1 == s.最小值() then
    return true
  else
    end
  end
--~ 数
function s.是否无效值(o1)
  if o1 == o1 then
  else
    return true
    end
  end
--~ 数
function s.是否错值(o1)
  local k1, k2
  --~ 是否最值
  k1 = s.是否最值(o1)
  --~ 是否无效值
  k2 = s.是否无效值(o1)
  return k1 or k2
  end
return s

local bit = bit
local s = {}
-- 和与或
--~ 左数
--~ 右数
function s.位和(o1, o2)
  return bit.band(o1, o2)
  end
-- 左移与右移
--~ 数
--~ 右移几位
function s.位右移(o1, o2)
  return bit.rshift(o1, o2)
  end
return s

local s = {}
-- 加减
--~ 左加数
--~ 右加数
function s.加法(o1, o2)
  return o1 + o2
  end
--~ 左减数
--~ 右减数
function s.减法(o1, o2)
  return o1 - o2
  end
-- 乘除
--~ 左乘数
--~ 右乘数
function s.乘法(o1, o2)
  return o1 * o2
  end
--~ 左除数
--~ 右除数
function s.除法(o1, o2)
  return o1 / o2
  end
-- 向外与向内
--~ 左加数
--~ 右加数
function s.向外加(o1, o2)
  if o1 >= 0 then
    return s.加法(o1, o2)
  else
    return s.减法(o1, o2)
    end
  end
return s

local string = string
local s = {}
function s.连(o1, o2, o3, o4, o5, o6, o7, o8, o9)
  return o1 .. (o2 or "") .. (o3 or "") .. (o4 or "") .. (o5 or "") .. (o6 or "") .. (o7 or "") .. (o8 or "") .. (o9 or "")
  end
--~ 排中文
--~ 入参2
--~ 入参3
--~ 入参4
function s.全筛文(o1, o2, o3, o4)
  --~ print(4)
  if string.find(o1, o2, o3, o4) then
    return o1
    end
  end
return s

local string = string
local s = {}
-- 加与删
--~ 文
--~ 前缀
function s.加前缀(o1, o2)
  return (o2 or "") .. o1
  end
-- 全筛
--~ 文
--~ 前缀
function s.全筛前缀(o1, o2)
  if string.sub(o1, 1, #o2) == o2 then
    return o1
    end
  end
return s

local string = string
local s = {}
-- 加与删
--~ 文
--~ 后缀
function s.加后缀(o1, o2)
  return o1 .. (o2 or "")
  end
-- 全筛
--~ 文
--~ 后缀
function s.全筛后缀(o1, o2)
  if string.sub(o1, -#o2) == o2 then
    return o1
    end
  end
return s

local s = {}
-- 启
--~ 文
--~ 历文的能
--~ 入参2
--~ 入参3
function s.历文(o1, o2, o3, o4)
  local k1_0
  --~ 集排
  k1_0 = {}
  for o5 in o2(o1, o3, o4) do
    k1_0[#k1_0 + 1] = o5
    end
  return k1_0
  end
return s

local s = {}
-- 启
--~ 对
--~ 能
function s.历对(u1_0, o1)
  local k1, k2
  for o2, o3 in pairs(u1_0) do
    --~ 键
    --~ 值
    k1, k2 = s.模(k1, k2, o2, o3, o1)
    end
  return k1, k2
  end
-- 模
--~ 键
--~ 值
--~ 对中键
--~ 对中值
--~ 能
function s.模(o1, o2, o3, o4, o5)
  if o1 == nil then
    return o3, o4
  elseif o5(o1, o2, o3, o4) then
    return o3, o4
  else
    return o1, o2
    end
  end
-- 最短
--~ 最短键
--~ 值
--~ 键
--~ 值
function s._筛最短键(o1, o2, o3, o4)
  if #o1 > #o3 then
    return true
    end
  end
--~ 对
function s.筛最短键(u1_0)
  return s.历对(u1_0, s._筛最短键)
  end
-- 最大
--~ 键
--~ 最大值
--~ 键
--~ 值
function s._筛最大值(o1, o2, o3, o4)
  if o2 < o4 then
    return true
    end
  end
--~ 对
function s.筛最大值(u1_0)
  return s.历对(u1_0, s._筛最大值)
  end

local s = {}
-- 全与局
--~ 对
--~ 能
--~ 入参3
function s.历对(u1_0, o1, o2)
  local k1, k2
  local k1_0
  --~ 对
  k1_0 = {}
  for o3, o4 in pairs(u1_0) do
    --~ 键
    --~ 值
    k1, k2 = o1(o3, o4, o2)
    if k1 then
      k1_0[k1] = k2
    else
      end
    end
  return k1_0
  end
--~ 对
--~ 能
--~ 入参2
--~ 入参3
function s.历值(u1_0, o1, o2, o3)
  local k1_0
  --~ 对
  k1_0 = {}
  for o4, o5 in pairs(u1_0) do
    k1_0[o4] = o1(o5, o2, o3)
    end
  return k1_0
  end
--~ 键
--~ 值
--~ 要找的值
function s.全等筛值(o1, o2, o3)
  if o2 == o3 then
    return o1, o2
  else
    end
  end
return s

local s = {}
-- 启
--~ 排
--~ 能
function s.历排(u1_0, o1)
  local k1
  for o2 = 1, #u1_0 do
    --~ 值
    k1 = s.模(k1, u1_0[o2], o1)
    end
  return k1
  end
-- 模
--~ 值
--~ 排中值
function s.模(o1, o2, o3)
  if o1 == nil then
    return o2
  elseif o3(o1, o2) then
    return o2
  else
    return o1
    end
  end
-- 最短
--~ 最短文
--~ 值
function s._筛最短文(o1, o2)
  if #o1 > #o2 then
    return true
    end
  end
--~ 排
function s.筛最短文(u1_0)
  return s.历排(u1_0, s._筛最短文)
  end

local s = {}
-- 返旧与返新与不返
-- 排数
--~ 排
--~ 办排中值的能
--~ 入参2
--~ 入参3
--~ 入参4
function s.历排(u1_0, o1, o2, o3, o4)
  local k1_0
  --~ 集排
  k1_0 = {}
  for o5 = 1, #u1_0 do
    k1_0[#k1_0 + 1] = o1(u1_0[o5], o2, o3, o4)
    end
  return k1_0
  end
--~ 排
--~ 排
--~ 办排中值的能
--~ 入参3
--~ 入参4
--~ 入参5
function s.历二排(u1_0, u2_0, o1, o2, o3, o4)
  local k1_0
  --~ 集排
  k1_0 = {}
  for o5 = 1, #u1_0 do
    k1_0[#k1_0 + 1] = o1(u1_0[o5], u2_0[o5], o2, o3, o4)
    end
  return k1_0
  end
--~ 排
--~ 排
--~ 排
--~ 办排中值的能
--~ 入参4
--~ 入参5
--~ 入参6
function s.历三排(u1_0, u2_0, u3_0, o1, o2, o3, o4)
  local k1_0
  --~ 集排
  k1_0 = {}
  for o5 = 1, #u1_0 do
    k1_0[#k1_0 + 1] = o1(u1_0[o5], u2_0[o5], u3_0[o5], o2, o3, o4)
    end
  return k1_0
  end
return s

local s = {}
-- 启
--~ 排
--~ 办排中值的能
--~ 入参2
--~ 入参3
function s.历排(u1_0, o1, o2, o3, o4)
  local k1
  --~ 和
  k1 = u1_0[1] or 0
  for o5 = 2, #u1_0 do
    k1 = o1(k1, o2(u1_0[o5], o3, o4))
    end
  return k1
  end
return s

local s = {}
-- 启
-- 启
--~ 排
--~ 办排中值的能
--~ 入参2
--~ 入参3
--~ 入参4
function s.历排(u1_0, o1, o2, o3, o4)
  local k1
  --~ 和
  k1 = 0
  for o5 = 1, #u1_0 do
    k1 = k1 + o1(u1_0[o5], o2, o3, o4)
    end
  return k1
  end
return s

local s = {}
-- 启
--~ 值
--~ 值类
--~ 办值的能
function s.操类(o1, o2, o3)
  if type(o1) == o2 then
    return o3(o1)
  else
    return o1
    end
  end
return s

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

local 字集库 = require("u8_to_a")
local 返参库 = require(字集库.u8_to_a("算机_程语_月_基类_能_返参"))
local 历对库 = require(字集库.u8_to_a("算机_程语_月_基类_能_传能_历_基类_表_对_取全"))
local s = {}
-- 连对
--~ 对
--~ 对
function s.连两对(u1_0, u2_0)
  local k1_0
  --~ 合对
  k1_0 = 历对库.历对(u1_0, 返参库.二参)
  for o1, o2 in pairs(u2_0) do
    k1_0[o1] = o2
    end
  return k1_0
  end
-- 对长
--~ 对
function s.对长(u1_0)
  local k1

  local k1
  --~ 总和
  k1 = s.总和(u1_0)
  return 基算库.除法(k1, #u1_0)
  end
--~ 排
--~ 标准值
function s.方差(u1_0, o1)
  local k1, k2
  local k1_0
  --~ 标准值
  k1 = o1 or s.均值(u1_0)
  --~ 排，用于算方差
  k1_0 = 历排库.历排(u1_0, 基算库.减法, k1)
  k1_0 = 历排库.历排(k1_0, 数库.指数, 2)
  --~ 方差
  k2 = 基算库.除法(s.总和(k1_0), #k1_0)
  return k2
  end
--~ 排
--~ 标准值
function s.标准差(u1_0, o1)
  local k1
  --~ 方差
  k1 = s.方差(u1_0, o1)
  return 数库.指数(k1, 1, 2)
  end
--~ 排
--~ 标准值
function s.均差(u1_0, o1)
  local k1, k2
  local k1_0
  --~ 标准值
  k1 = o1 or s.均值(u1_0)
  --~ 排，用于算均差
  k1_0 = 历排库.历排(u1_0, 基算库.减法, k1)
  k1_0 = 历排库.历排(k1_0, 数库.正数)
  --~ 均差
  k2 = 基算库.除法(s.总和(k1_0), #k1_0)
  return k2
  end

local 字集库 = require("u8_to_a")
local 文库 = require(字集库.u8_to_a("算机_程语_月_基类_文"))
local string = string
local s = {}
-- 单行注与多行注
--~ 文
function s.删注(o1)
  o1 = s.删多行注(o1)
  return s.删单行注(o1)
  end
do
  local k1
  --~ 模
  k1 = 文库.连("%-%-", "%[", "(=*)", "%[", ".-", "%]", "%1", "%]")
  --~ 文
  function s.删多行注(o1)
    return string.gsub(o1, k1, "")
    end
  end
do
  local k1
  --~ 模
  k1 = 文库.连("%-%-", "[^\n]*")
  --~ 文
  function s.删单行注(o1)
    return string.gsub(o1, k1, "")
    end
  end
return s

local d_2 = {}
--~ local 件径库 = 常用库.导入库_通用大字集态_八位态("计算机_系统_窗口群_文件系统_路径")
--~ local 历排库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_序排_逐一")
--~ local 前后缀库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_字串_前缀与后缀")
function d_2.执行命令(o1)
  print(o1)
  os.execute(o1)
  end
--~ function d_2.逐一执行命令(o1)
  --~ 历排库.处理(o1, d_2.执行命令)
  --~ end
--~ 件夹
--~ function d_2.入文件夹路径而用文件路径执行命令_全筛态_加前缀与后缀态_不虑子文件夹内态(o1, o2, o3, o4, o5, o6)
  --~ local k1_9
  --~ k1_9 = 件径库.入文件夹路径而返文件路径排_全筛态(o1, o2, o3, o4)
  --~ k1_9 = 前后缀库.逐一在前后加上英文双引号(k1_9)
  --~ k1_9 = 前后缀库.逐一加前缀与后缀(k1_9, o5, o6)
  --~ d_2.逐一执行命令(k1_9)
  --~ end
--~ function d_2.入文件夹路径而用文件路径执行命令_全筛后缀态_加前缀态_不虑子文件夹内态(o1, o2, o3)
  --~ return d_2.入文件夹路径而用文件路径执行命令_全筛态_加前缀与后缀态_不虑子文件夹内态(o1, o2, -#o2, true, o3)
  --~ end
return d_2

local d_2 = {}
local 历文库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_字串_逐一")
local 历排库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_序排_逐一")
local 前后缀库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_字串_前缀与后缀")
local 全筛文库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_字串_全筛")
local 简单文件系统库 = require("lfs")
function d_2.入文件夹路径而返文件路径排_全筛态(o1, o2, o3, o4)
  local k1_9
  k1_9 = d_2.入文件夹路径而返文件路径排(o1)
  return 历排库.处理后返回新排(k1_9, 全筛文库.找字, o2, o3, o4)
  end
function d_2.入文件夹路径而返文件路径排(o1)
  local k1_9
  k1_9 = d_2.入文件夹路径而返文件名排(o1)
  return 前后缀库.逐一加前缀(k1_9, o1 .. "/")
  end
function d_2.入文件夹路径而返文件名排(o1)
  return 历文库.处理后返回新排(o1, 简单文件系统库.dir)
  end
return d_2