local d = {}
local s = {}
local 简文件库 = require("lfs")
local ffi = require("ffi")
--~ 排
--~ 办排中值的能
--~ 入参2
--~ 入参3
--~ 入参4
function d.历排(o1_0, o1, o2, o3, o4)
function s.历排(o1_0, o1, o2, o3, o4)
  local k1_0
  --~ 集排
  k1_0 = {}
  for o5 = 1, #o1_0 do
    k1_0[#k1_0 + 1] = o1(o1_0[o5], o2, o3, o4)
    end
  return k1_0
  end
--~ 文
--~ 历文的能
--~ 入参2
--~ 入参3
function d.历文(o1, o2, o3, o4)
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 d.历排取一(o1_0, o1)
function s.历排取一(o1_0, o1)
  local k1
  for o2 = 1, #o1_0 do
    --~ 值
    k1 = d.历排取一的模(k1, o1_0[o2], o1)
    k1 = s.历排取一的模(k1, o1_0[o2], o1)
    end
  return k1
  end
--~ 值
--~ 排中值
function d.历排取一的模(o1, o2, o3)
function s.历排取一的模(o1, o2, o3)
  if o1 == nil then
    return o2
  elseif o3(o1, o2) then
    return o2
  else
    return o1
    end
  end
--~ 对
--~ 能
function d.历对取一(o1_0, o1)
function s.历对取一(o1_0, o1)
  local k1, k2
  for o2, o2_0 in pairs(o1_0) do
    --~ 键
    --~ 值
    k1, k2 = d.历对取一的模(k1, k2, o2, o2_0, o1)
    k1, k2 = s.历对取一的模(k1, k2, o2, o2_0, o1)
    end
  return k1, k2
  end
function d.历对取一的模(o1, o2, o3, o4, o5)
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 d.历对(o1_0, o1, o2)
function s.历对(o1_0, o1, o2)
  local k1
  local k1_0, k2_0
  --~ 对
  k1_0 = {}
  for o3, o2_0 in pairs(o1_0) do
    --~ 键
    --~ 值
    k1, k2_0 = o1(o3, o2_0, o2)
    if k1 then
      k1_0[k1] = k2_0
    else
      end
    end
  return k1_0
  end
--~ 排中值
--~ 值类
--~ 办值的能
function d.操类(o1_0, o1, o2)
function s.操类(o1_0, o1, o2)
  if type(o1_0) == o1 then
    return o2(o1_0)
  else
    return o1_0
    end
  end
--~ 排中文
--~ 入参2
--~ 入参3
--~ 入参4
function d.全筛文(o1, o2, o3, o4)
function s.全筛文(o1, o2, o3, o4)
  print(4)
  if string.find(o1, o2, o3, o4) then
    return o1
    end
  end
--~ 文
--~ 前缀
function d.加前缀(o1, o2)
function s.加前缀(o1, o2)
  return (o2 or "") .. o1
  end
--~ 文
--~ 后缀
function d.加后缀(o1, o2)
function s.加后缀(o1, o2)
  return o1 .. (o2 or "")
  end
--~ 令
function d.办令(o1)
function s.办令(o1)
  print(o1)
  os.execute(o1)
  end
--~ 文
--~ 前缀
function d.全筛前缀(o1, o2)
function s.全筛前缀(o1, o2)
  if string.sub(o1, 1, #o2) == o2 then
    return o1
    end
  end
--~ 文
--~ 后缀
function d.全筛后缀(o1, o2)
function s.全筛后缀(o1, o2)
  if string.sub(o1, -#o2) == o2 then
    return o1
    end
  end
--~ 目对
function d.用令行工具操文件(o1_0)
function s.用令行工具操文件(o1_0)
  local k1_9
  --~ 令行排
  k1_9 = d.历文(o1_0.文件目, 简文件库.dir)
  k1_9 = d.历排(k1_9, d.全筛后缀, o1_0.文件类)
  k1_9 = s.历文(o1_0.文件目, 简文件库.dir)
  k1_9 = s.历排(k1_9, s.全筛后缀, o1_0.文件类)
  for o1 = 1, #k1_9 do
    k1_9[o1] = d.加前缀(k1_9[o1], o1_0.文件目)
    k1_9[o1] = d.加前缀(k1_9[o1], [["]])
    k1_9[o1] = d.加后缀(k1_9[o1], [["]])
    k1_9[o1] = d.加前缀(k1_9[o1], o1_0.令行前缀)
    d.办令(k1_9[o1])
    k1_9[o1] = s.加前缀(k1_9[o1], o1_0.文件目)
    k1_9[o1] = s.加前缀(k1_9[o1], [["]])
    k1_9[o1] = s.加后缀(k1_9[o1], [["]])
    k1_9[o1] = s.加前缀(k1_9[o1], o1_0.令行前缀)
    s.办令(k1_9[o1])
    end
  end
--~ 文件路
--~ 式
function d.读文件(o1, o2)
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 d.加对限(o1_0)
function s.加对限(o1_0)
  table.insert(o1_0, 1, "local k1_0 = {}")
  table.insert(o1_0, "return k1_0")
  return table.concat(o1_0, "\n")
  end
--~ 文
--~ 文件路
--~ 式
function d.写文件(o1, o2, o3)
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 d.删左右空白(o1)
function s.删左右空白(o1)
  o1 = string.gsub(o1, "^%s+", "")
  return string.gsub(o1, "%s+$", "")
  end
--~ 对
--~ 对
function d.连两对(o1_0, o2_0)
function s.连两对(o1_0, o2_0)
  for o3_0, o4_0 in pairs(o2_0) do
    o1_0[o3_0] = o4_0
    end
  return o1_0
  end
--~ 键
--~ 值
function d.修对类(o1_0, o2_0)
function s.修对类(o1_0, o2_0)
  if tonumber(o1_0) then
    return tonumber(o1_0), o2_0
  else
    return o1_0, o2_0
    end
  end
do
  --~ 加数
  local k1 = 0
  function d.递增()
  function s.递增()
    k1 = k1 + 1
    return k1
    end
  end
--~ 左加数
--~ 右加数
function d.加法(o1, o2)
function s.加法(o1, o2)
  return o1 + o2
  end
--~ 左减数
--~ 右减数
function d.减法(o1, o2)
function s.减法(o1, o2)
  return o1 - o2
  end
--~ 左乘数
--~ 右乘数
function d.乘法(o1, o2)
function s.乘法(o1, o2)
  return o1 * o2
  end
--~ 左除数
--~ 右除数
function d.除法(o1, o2)
function s.除法(o1, o2)
  return o1 / o2
  end
--~ 左数
--~ 右数
function d.位和(o1, o2)
function s.位和(o1, o2)
  return bit.band(o1, o2)
  end
--~ 数
--~ 右移几位
function d.位右移(o1, o2)
function s.位右移(o1, o2)
  return bit.rshift(o1, o2)
  end
--~ 键
--~ 最大值
--~ 键
--~ 值
function d.筛对中最大值(o1, o2, o3, o4)
function s.筛对中最大值(o1, o2, o3, o4)
  if o2 < o4 then
    return true
    end
  end
--~ 最短键
--~ 值
--~ 键
--~ 值
function d.筛对中最短键(o1, o2, o3, o4)
function s.筛对中最短键(o1, o2, o3, o4)
  if #o1 > #o3 then
    return true
    end
  end
--~ 最短文
--~ 值
function d.筛排中最短文(o1, o2)
function s.筛排中最短文(o1, o2)
  if #o1 > #o2 then
    return true
    end
  end
--~ 内数
function d.to_uint64(o1)
function s.to_uint64(o1)
  local uint64_pointer = ffi.new("uint64_t[1]", o1)
  return uint64_pointer[0]
  end
--~ 键
--~ 值
--~ 要找的值
function d.全等筛对中值(o1, o2, o3)
function s.全等筛对中值(o1, o2, o3)
  if o2 == o3 then
    return o1, o2
  else
    end
  end
return d
return s

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

local 字集库 = require("u8_to_a")
local 位算库 = require(字集库.u8_to_a("算机_程语_月_基类_数_位算"))
local d = {}
local s = {}
local TYPE_MONSTER = 0x1
local TYPE_SPELL = 0x2
local TYPE_TRAP = 0x4
local TYPE_EFFECT = 0x20
local TYPE_PENDULUM = 0x1000000
local 有效果卡的类排 = {
TYPE_SPELL
, TYPE_TRAP
, TYPE_EFFECT
}
local 无效果灵摆怪兽排 = {
  28363749 --火蛋白石头龙头领
  , 19474136 --曼陀林草龙
  , 17390179 --闪光之骑士
  , 83980492 --铜锣龙
  }
--~ 卡对
function d.筛有效果卡(o1_0)
function s.筛有效果卡(o1_0)
  for o1 = 1, #有效果卡的类排 do
    if 位算库.位和(有效果卡的类排[o1], o1_0.type) == 0 then
    else
      return o1_0
      end
    end
  if 位算库.位和(TYPE_PENDULUM, o1_0.type) == 0 then
  else
    if 无效果灵摆怪兽排[o1_0.id] then
    else
      return o1_0
      end
    end
  end
--~ 卡对
function d.筛怪兽卡(o1_0)
function s.筛怪兽卡(o1_0)
  if 位算库.位和(TYPE_MONSTER, o1_0.type) == 0 then
  else
    return o1_0
    end
  end
--~ 卡对
function d.筛攻击力(o1_0)
function s.筛攻击力(o1_0)
  return o1_0.atk
  end
return d
return s

local d = {}
local s = {}
--~ 文
--~ 文件路
--~ 式
function d.写文件(o1, o2, o3)
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 d
return s

local d = {}
local s = {}
--~ 文件路
--~ 式
function d.读文件(o1, o2)
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 d
return s

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

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

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

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

local string = string
local d = {}
function d.连(o1, o2, o3, o4, o5, o6, o7, o8, o9)
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 d.全筛文(o1, o2, o3, o4)
function s.全筛文(o1, o2, o3, o4)
  --~ print(4)
  if string.find(o1, o2, o3, o4) then
    return o1
    end
  end
return d
return s

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

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

local d = {}
local s = {}
-- 启
--~ 文
--~ 历文的能
--~ 入参2
--~ 入参3
function d.历文(o1, o2, o3, o4)
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 d
return s

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

local d = {}
local s = {}
-- 全与局
--~ 对
--~ 能
--~ 入参3
function d.历对(o1_0, o1, o2)
function s.历对(o1_0, o1, o2)
  local k1, k2
  local k1_0
  --~ 对
  k1_0 = {}
  for o3, o4 in pairs(o1_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 d.历值(o1_0, o1, o2, o3)
function s.历值(o1_0, o1, o2, o3)
  local k1_0
  --~ 对
  k1_0 = {}
  for o4, o5 in pairs(o1_0) do
    k1_0[o4] = o1(o5, o2, o3)
    end
  return k1_0
  end
--~ 键
--~ 值
--~ 要找的值
function d.全等筛值(o1, o2, o3)
function s.全等筛值(o1, o2, o3)
  if o2 == o3 then
    return o1, o2
  else
    end
  end
return d
return s

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

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

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

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

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

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

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

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 d = {}
local s = {}
--~ 排
function d.总和(o1_0)
function s.总和(o1_0)
  return 历排取联库.历排(o1_0, 基算库.加法, 返参库.一参)
  end
--~ 排
function d.均值(o1_0)
function s.均值(o1_0)
  local k1
  --~ 总和
  k1 = d.总和(o1_0)
  k1 = s.总和(o1_0)
  return 基算库.除法(k1, #o1_0)
  end
--~ 排
--~ 标准值
function d.方差(o1_0, o1)
function s.方差(o1_0, o1)
  local k1, k2
  local k1_0
  --~ 标准值
  k1 = o1 or d.均值(o1_0)
  k1 = o1 or s.均值(o1_0)
  --~ 排，用于算方差
  k1_0 = 历排库.历排(o1_0, 基算库.减法, k1)
  k1_0 = 历排库.历排(k1_0, 数库.指数, 2)
  --~ 方差
  k2 = 基算库.除法(d.总和(k1_0), #k1_0)
  k2 = 基算库.除法(s.总和(k1_0), #k1_0)
  return k2
  end
--~ 排
--~ 标准值
function d.标准差(o1_0, o1)
function s.标准差(o1_0, o1)
  local k1
  --~ 方差
  k1 = d.方差(o1_0, o1)
  k1 = s.方差(o1_0, o1)
  return 数库.指数(k1, 1, 2)
  end
--~ 排
--~ 标准值
function d.均差(o1_0, o1)
function s.均差(o1_0, o1)
  local k1, k2
  local k1_0
  --~ 标准值
  k1 = o1 or d.均值(o1_0)
  k1 = o1 or s.均值(o1_0)
  --~ 排，用于算均差
  k1_0 = 历排库.历排(o1_0, 基算库.减法, k1)
  k1_0 = 历排库.历排(k1_0, 数库.正数)
  --~ 均差
  k2 = 基算库.除法(d.总和(k1_0), #k1_0)
  k2 = 基算库.除法(s.总和(k1_0), #k1_0)
  return k2
  end
return d
return s

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