Index: 残局文料/lua_lib/ipml_mj_ysaf.lua ================================================================== --- 残局文料/lua_lib/ipml_mj_ysaf.lua +++ 残局文料/lua_lib/ipml_mj_ysaf.lua @@ -1,25 +1,25 @@ --~ 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) +--~ function _G.历排(o1_11, u1, u2, 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) + --~ k1_8 = u1(o1_11[o5], u2, 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) +--~ function _G.历文(u1, u2, o3, o4) --~ local k1_9 --~ k1_9 = {} - --~ for o5 in o2(o1, o3, o4) do + --~ for o5 in u2(u1, o3, o4) do --~ k1_9[#k1_9 + 1] = o5 --~ end --~ return k1_9 --~ end --~ local 简件系库 = require("lfs") @@ -40,138 +40,138 @@ --~ local k1 = os.execute --~ function _G.os.execute(command) --~ return k1(字集码互转库.u2a(command)) --~ end --~ end -function d_5.读件(o1, o2) +function d_5.读件(u1, u2) local k1 local k1_3 - k1_3 = io.open(o1, o2 or "r") + k1_3 = io.open(u1, u2 or "r") k1 = k1_3:read("a") k1_3:flush() k1_3:close() return k1 end -function d_5.读件排(o1_9, o1) +function d_5.读件排(o1_9, u1) local k1_9 k1_9 = {} - for o2 = 1, #o1_9 do - k1_9[#k1_9 + 1] = d_5.读件(o1_9[o2], o1) + for u2 = 1, #o1_9 do + k1_9[#k1_9 + 1] = d_5.读件(o1_9[u2], u1) end return k1_9 end -function d_5.写件(o1, o2, o3) +function d_5.写件(u1, u2, o3) local k1_3 - k1_3 = io.open(o1, o3 or "w") - k1_3:write(o2) + k1_3 = io.open(u1, o3 or "w") + k1_3:write(u2) k1_3:flush() k1_3:close() end -function d_5.写件_一维(o1, o1_9, o2, o3) +function d_5.写件_一维(u1, o1_9, u2, 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) + d_5.写件(u1, k1, u2) + end +function d_5.删制表符(u1) + return u1:gsub("\t", "") + end +--~ function d_5.删空白字(u1) +--~ return u1:gsub("%s", "") +--~ end +--~ function d_5.删空格与制表符(u1) +--~ u1 = d_5.删空格(u1) +--~ return d_5.删制表符(u1) --~ 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(" ", "") +--~ function d_5.删前缀(u1, u2) +--~ if u1:find(u2, 1, true) then +--~ return u1:sub(#u2 + 1) +--~ end +--~ end +--~ function d_5.删后缀(u1, u2) +--~ if u1:find(u2, -1, true) then +--~ return u1:sub(1, #u1 - #u2) +--~ end +--~ end +--~ function d_5.删空行_不虑首末态(u1) +--~ return u1:gsub("\n+", "\n") +--~ end +--~ function d_5.删空行(u1) +--~ u1 = d_5.删空行_不虑首末态(u1) +--~ u1 = d_5.删前缀(u1, "\n") +--~ return d_5.删后缀(u1, "\n") +--~ end +function d_5.删空格(u1) + return u1:gsub(" ", "") end -function d_5.筛排(o1_9, o1, o2, o3) +function d_5.筛排(o1_9, u1, u2, o3) local k1_8 local k1_9 k1_9 = {} for o4 = 1, #o1_9 do - k1_8 = o1(o1_9[o4], o2, o3) + k1_8 = u1(o1_9[o4], u2, o3) if k1_8 then k1_9[#k1_9 + 1] = k1_8 end end return k1_9 end ---~ function d_5.筛文(o1, o2, o3) +--~ function d_5.筛文(u1, u2, o3) --~ local k1_9 --~ k1_9 = {} ---~ for o4 in o2(o1, o3) do +--~ for o4 in u2(u1, 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 +--~ function d_5.判文(u1, u2, o3, o4) +--~ if u1:find(u2 or ".", o3, o4) then +--~ return u1 --~ end --~ end ---~ function d_5.筛件径(o1, o2) +--~ function d_5.筛件径(u1, u2) --~ 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) + --~ k1_9 = d_5.筛文(u1, 简件系库.dir) + --~ k1_9 = d_5.筛排(k1_9, d_5.加前缀, u1 .. "/") + --~ k1_9 = d_5.筛排(k1_9, d_5.判文, u2) --~ 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) +--~ function d_5.筛单行等式(u1) +--~ return 常用库.捕排(string.gmatch, u1, "[^\n= \t]+") +--~ end +--~ function d_5.捕非空单行(u1) +--~ return 常用库.捕排(string.gmatch, u1, "[^\n]+[\n]?") +--~ end +--~ function d_5.捕非空单行(u1) +--~ return 常用库.捕排(string.gmatch, u1, "[^\n]+[\n]?") +--~ end +function d_5.排转对(o1_12, u1) local k1_5 local k1_11 k1_11 = {} - for o2 = 1, #o1_12, o1 + 1 do + for u2 = 1, #o1_12, u1 + 1 do k1_5 = {} - for o3 = 1, o1 do - k1_5[o3] = o1_12[o2 + o3] + for o3 = 1, u1 do + k1_5[o3] = o1_12[u2 + o3] end - k1_11[o1_12[o2]] = k1_5 + k1_11[o1_12[u2]] = k1_5 end return k1_11 end ---~ function d_5.加前缀(o1, o2) ---~ return o2 .. o1 +--~ function d_5.加前缀(u1, u2) +--~ return u2 .. u1 --~ end ---~ function d_5.加后缀(o1, o2) ---~ return o1 .. o2 +--~ function d_5.加后缀(u1, u2) +--~ return u1 .. u2 --~ end function d_5.filterLinesWithCharacter(text, character) local result = {} local lines = d_5.文转排(text) -- 遍历每一行,检查是否包含目标字符 @@ -180,22 +180,22 @@ 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) +--~ function d_5.办令(u1) + --~ print(u1) + --~ os.execute(u1) + --~ end +--~ function d_5.在前后加英文双引号(u1) +--~ return [["]] .. u1 .. [["]] +--~ end +--~ function d_5.筛单行等式_左右值态(u1) --~ local k1_11 --~ k1_11 = {} ---~ for o2 in k1_11:gmatch("[^\n= \t]+") do ---~ table.insert(k1_11, o2) +--~ for u2 in k1_11:gmatch("[^\n= \t]+") do +--~ table.insert(k1_11, u2) --~ end ---~ return o2 +--~ return u2 --~ end return d_5 Index: 残局文料/lua_lib/删注/月程语.lua ================================================================== --- 残局文料/lua_lib/删注/月程语.lua +++ 残局文料/lua_lib/删注/月程语.lua @@ -1,15 +1,15 @@ 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) +--~ function d_3.多行注_套娃态(u1) +--~ return u1:gsub("%-%-%[(=*)%[.-%]%1%]", "") +--~ end +--~ function d_3.多行注_凡态(u1) +--~ return u1:gsub("%-%-%[%[.-%]%]", "") +--~ end +function d_3.单行注_不虑字串态(u1) + return u1:gsub("%-%-[^\n]*", "") +end +--~ function d_3.事启(u1) +--~ u1 = d_3.多行注_套娃态(u1) +--~ return d_3.单行注(u1) --~ end return d_3 Index: 残局文料/lua_lib/常用库.lua ================================================================== --- 残局文料/lua_lib/常用库.lua +++ 残局文料/lua_lib/常用库.lua @@ -4,82 +4,82 @@ --~ 排 --~ 办排中值的能 --~ 入参2 --~ 入参3 --~ 入参4 -function s.历排(u1_0, o1, o2, o3, o4) +function s.历排(u1_0, u1, u2, 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) + k1_0[#k1_0 + 1] = u1(u1_0[o5], u2, o3, o4) end return k1_0 end --~ 文 --~ 历文的能 --~ 入参2 --~ 入参3 -function s.历文(o1, o2, o3, o4) +function s.历文(u1, u2, o3, o4) local k1_0 --~ 集排 k1_0 = {} - for o5 in o2(o1, o3, o4) do + for o5 in u2(u1, o3, o4) do k1_0[#k1_0 + 1] = o5 end return k1_0 end --~ 排 --~ 能 -function s.历排取一(u1_0, o1) +function s.历排取一(u1_0, u1) local k1 - for o2 = 1, #u1_0 do + for u2 = 1, #u1_0 do --~ 值 - k1 = s.历排取一的模(k1, u1_0[o2], o1) + k1 = s.历排取一的模(k1, u1_0[u2], u1) end return k1 end --~ 值 --~ 排中值 -function s.历排取一的模(o1, o2, o3) - if o1 == nil then - return o2 - elseif o3(o1, o2) then - return o2 +function s.历排取一的模(u1, u2, o3) + if u1 == nil then + return u2 + elseif o3(u1, u2) then + return u2 else - return o1 + return u1 end end --~ 对 --~ 能 -function s.历对取一(u1_0, o1) +function s.历对取一(u1_0, u1) local k1, k2 - for o2, u2_0 in pairs(u1_0) do + for u2, u2_0 in pairs(u1_0) do --~ 键 --~ 值 - k1, k2 = s.历对取一的模(k1, k2, o2, u2_0, o1) + k1, k2 = s.历对取一的模(k1, k2, u2, u2_0, u1) end return k1, k2 end -function s.历对取一的模(o1, o2, o3, o4, o5) - if o1 == nil then +function s.历对取一的模(u1, u2, o3, o4, o5) + if u1 == nil then return o3, o4 - elseif o5(o1, o2, o3, o4) then + elseif o5(u1, u2, o3, o4) then return o3, o4 else - return o1, o2 + return u1, u2 end end -function s.历对(u1_0, o1, o2) +function s.历对(u1_0, u1, u2) 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) + k1, k2_0 = u1(o3, u2_0, u2) if k1 then k1_0[k1] = k2_0 else end end @@ -86,77 +86,77 @@ return k1_0 end --~ 排中值 --~ 值类 --~ 办值的能 -function s.操类(u1_0, o1, o2) - if type(u1_0) == o1 then - return o2(u1_0) +function s.操类(u1_0, u1, u2) + if type(u1_0) == u1 then + return u2(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 +function s.全筛文(u1, u2, o3, o4) + print(4) + if string.find(u1, u2, o3, o4) then + return u1 + end + end +--~ 文 +--~ 前缀 +function s.加前缀(u1, u2) + return (u2 or "") .. u1 + end +--~ 文 +--~ 后缀 +function s.加后缀(u1, u2) + return u1 .. (u2 or "") + end +--~ 令 +function s.办令(u1) + print(u1) + os.execute(u1) + end +--~ 文 +--~ 前缀 +function s.全筛前缀(u1, u2) + if string.sub(u1, 1, #u2) == u2 then + return u1 + end + end +--~ 文 +--~ 后缀 +function s.全筛后缀(u1, u2) + if string.sub(u1, -#u2) == u2 then + return u1 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]) + for u1 = 1, #k1_9 do + k1_9[u1] = s.加前缀(k1_9[u1], u1_0.文件目) + k1_9[u1] = s.加前缀(k1_9[u1], [["]]) + k1_9[u1] = s.加后缀(k1_9[u1], [["]]) + k1_9[u1] = s.加前缀(k1_9[u1], u1_0.令行前缀) + s.办令(k1_9[u1]) end end --~ 文件路 --~ 式 -function s.读文件(o1, o2) +function s.读文件(u1, u2) local k1 local k1_3 --~ 文件 - k1_3 = io.open(o1, o2 or "r") + k1_3 = io.open(u1, u2 or "r") --~ 文 k1 = k1_3:read("a") k1_3:flush() k1_3:close() return k1 @@ -168,22 +168,22 @@ return table.concat(u1_0, "\n") end --~ 文 --~ 文件路 --~ 式 -function s.写文件(o1, o2, o3) +function s.写文件(u1, u2, o3) local k1_3 --~ 文件 - k1_3 = io.open(o2, o3 or "w") - k1_3:write(o1) + k1_3 = io.open(u2, o3 or "w") + k1_3:write(u1) k1_3:flush() k1_3:close() end --~ 文 -function s.删左右空白(o1) - o1 = string.gsub(o1, "^%s+", "") - return string.gsub(o1, "%s+$", "") +function s.删左右空白(u1) + u1 = string.gsub(u1, "^%s+", "") + return string.gsub(u1, "%s+$", "") end --~ 对 --~ 对 function s.连两对(u1_0, u2_0) for u3_0, u4_0 in pairs(u2_0) do @@ -208,73 +208,73 @@ return k1 end end --~ 左加数 --~ 右加数 -function s.加法(o1, o2) - return o1 + o2 +function s.加法(u1, u2) + return u1 + u2 end --~ 左减数 --~ 右减数 -function s.减法(o1, o2) - return o1 - o2 +function s.减法(u1, u2) + return u1 - u2 end --~ 左乘数 --~ 右乘数 -function s.乘法(o1, o2) - return o1 * o2 +function s.乘法(u1, u2) + return u1 * u2 end --~ 左除数 --~ 右除数 -function s.除法(o1, o2) - return o1 / o2 +function s.除法(u1, u2) + return u1 / u2 end --~ 左数 --~ 右数 -function s.位和(o1, o2) - return bit.band(o1, o2) +function s.位和(u1, u2) + return bit.band(u1, u2) end --~ 数 --~ 右移几位 -function s.位右移(o1, o2) - return bit.rshift(o1, o2) +function s.位右移(u1, u2) + return bit.rshift(u1, u2) end --~ 键 --~ 最大值 --~ 键 --~ 值 -function s.筛对中最大值(o1, o2, o3, o4) - if o2 < o4 then +function s.筛对中最大值(u1, u2, o3, o4) + if u2 < o4 then return true end end --~ 最短键 --~ 值 --~ 键 --~ 值 -function s.筛对中最短键(o1, o2, o3, o4) - if #o1 > #o3 then +function s.筛对中最短键(u1, u2, o3, o4) + if #u1 > #o3 then return true end end --~ 最短文 --~ 值 -function s.筛排中最短文(o1, o2) - if #o1 > #o2 then +function s.筛排中最短文(u1, u2) + if #u1 > #u2 then return true end end --~ 内数 -function s.to_uint64(o1) - local uint64_pointer = ffi.new("uint64_t[1]", o1) +function s.to_uint64(u1) + local uint64_pointer = ffi.new("uint64_t[1]", u1) return uint64_pointer[0] end --~ 键 --~ 值 --~ 要找的值 -function s.全等筛对中值(o1, o2, o3) - if o2 == o3 then - return o1, o2 +function s.全等筛对中值(u1, u2, o3) + if u2 == o3 then + return u1, u2 else end end return s Index: 残局文料/lua_lib/游戏王_则拟器_原版_卡档.lua ================================================================== --- 残局文料/lua_lib/游戏王_则拟器_原版_卡档.lua +++ 残局文料/lua_lib/游戏王_则拟器_原版_卡档.lua @@ -3,42 +3,42 @@ local 文库 = require(字集库.u8_to_a("算机_程语_月_基类_文")) local 对库 = require(字集库.u8_to_a("算机_程语_月_基类_表_对")) local s = {} local 卡档 --~ 卡编 -function s.取卡对(o1) +function s.取卡对(u1) local k1_0, k2_0 --~ 卡文对 - k1_0 = s.取卡文(o1) + k1_0 = s.取卡文(u1) --~ 卡数据对 - k2_0 = s.取卡数据(o1) + k2_0 = s.取卡数据(u1) return 对库.连两对(k1_0, k2_0) end --~ 卡编 -function s._取卡对(o1, o2) - for o1_4 in 卡档:nrows(文库.连(o2, o1)) do +function s._取卡对(u1, u2) + for o1_4 in 卡档:nrows(文库.连(u2, u1)) do return o1_4 end end do local k1 --~ 模 k1 = "select * from texts where id = " --~ 卡编 - function s.取卡文(o1) - return s._取卡对(o1, k1) + function s.取卡文(u1) + return s._取卡对(u1, k1) end end do local k1 --~ 模 k1 = "select * from datas where id = " --~ 卡编 - function s.取卡数据(o1) - return s._取卡对(o1, k1) + function s.取卡数据(u1) + return s._取卡对(u1, k1) end end --~ 卡档路 -function s.启卡档(o1) - 卡档 = 档库.open(o1) +function s.启卡档(u1) + 卡档 = 档库.open(u1) end return s Index: 残局文料/lua_lib/游戏王_则拟器_原版_残局_卡_全筛.lua ================================================================== --- 残局文料/lua_lib/游戏王_则拟器_原版_残局_卡_全筛.lua +++ 残局文料/lua_lib/游戏王_则拟器_原版_残局_卡_全筛.lua @@ -17,12 +17,12 @@ , 17390179 --闪光之骑士 , 83980492 --铜锣龙 } --~ 卡对 function s.筛有效果卡(u1_0) - for o1 = 1, #有效果卡的类排 do - if 位算库.位和(有效果卡的类排[o1], u1_0.type) == 0 then + for u1 = 1, #有效果卡的类排 do + if 位算库.位和(有效果卡的类排[u1], u1_0.type) == 0 then else return u1_0 end end if 位算库.位和(TYPE_PENDULUM, u1_0.type) == 0 then Index: 残局文料/lua_lib/程序语言_月_基础类型_功能_传入参数_转化.lua ================================================================== --- 残局文料/lua_lib/程序语言_月_基础类型_功能_传入参数_转化.lua +++ 残局文料/lua_lib/程序语言_月_基础类型_功能_传入参数_转化.lua @@ -1,12 +1,12 @@ 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)) +function d_2.二个参数(u1, u2, o3, o4) + return u1(u2(o3), u2(o4)) + end +function d_2.三个参数(u1, u2, o3, o4, o5) + return u1(u2(o3), u2(o4), u2(o5)) + end +function d_2.四个参数(u1, u2, o3, o4, o5, o6) + return u1(u2(o3), u2(o4), u2(o5), u2(o6)) end return d_2 Index: 残局文料/lua_lib/程序语言_月_基础类型_字串_全筛.lua ================================================================== --- 残局文料/lua_lib/程序语言_月_基础类型_字串_全筛.lua +++ 残局文料/lua_lib/程序语言_月_基础类型_字串_全筛.lua @@ -1,14 +1,14 @@ local d_2 = {} -function d_2.找字(o1, o2, o3, o4) - --~ print(o1, o2, o3, o4) - if o1:find(o2, o3, o4) then - return o1 +function d_2.找字(u1, u2, o3, o4) + --~ print(u1, u2, o3, o4) + if u1:find(u2, o3, o4) then + return u1 end end ---~ function d_2.返全文_普态_前缀态(o1, o2) - --~ return d_2.返全文(o1, o2, 1, true) +--~ function d_2.返全文_普态_前缀态(u1, u2) + --~ return d_2.返全文(u1, u2, 1, true) --~ end ---~ function d_2.返选文(o1, o2) - --~ return o1:match(o2) +--~ function d_2.返选文(u1, u2) + --~ return u1:match(u2) --~ end return d_2 Index: 残局文料/lua_lib/程序语言_月_基础类型_字串_前缀与后缀.lua ================================================================== --- 残局文料/lua_lib/程序语言_月_基础类型_字串_前缀与后缀.lua +++ 残局文料/lua_lib/程序语言_月_基础类型_字串_前缀与后缀.lua @@ -1,45 +1,45 @@ --~ local 历排库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_序排_逐一") local d_4 = {} --~ 加 -function d_4.加前缀(o1, o2) - return (o2 or "") .. o1 +function d_4.加前缀(u1, u2) + return (u2 or "") .. u1 end -function d_4.加后缀(o1, o2) - return o1 .. (o2 or "") +function d_4.加后缀(u1, u2) + return u1 .. (u2 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.在前后加英文双引号) +--~ function d_4.加前缀_确保态(u1, u2, o3) +--~ 筛文库.返全文(u1, ) +--~ local k1 +--~ k1 = d_4.删前缀(u1, u2, o3) +--~ return u2 .. u1 +--~ end +--~ function d_4.加前缀与后缀(u1, u2, o3) + --~ u1 = d_4.加后缀(u1, o3) + --~ return d_4.加前缀(u1, u2) + --~ end +--~ function d_4.逐一加前缀(u1, u2) + --~ return 历排库.处理后返回新排(u1, d_4.加前缀, u2) + --~ end +--~ function d_4.逐一加前缀与后缀(u1, u2, o3) + --~ return 历排库.处理后返回新排(u1, d_4.加前缀与后缀, u2, o3) + --~ end +--~ function d_4.逐一在前后加上英文双引号(u1) + --~ return 历排库.处理后返回新排(u1, d_4.在前后加英文双引号) --~ end --~ 删 ---~ function d_4.删前缀_基态(o1, o2) - --~ if o1:startswith(o2) then - --~ return o1:sub(#o2 + 1) +--~ function d_4.删前缀_基态(u1, u2) + --~ if u1:startswith(u2) then + --~ return u1:sub(#u2 + 1) --~ end --~ end ---~ function d_4.删后缀_基态(o1, o2) - --~ if o1:endswith(o2) then - --~ return o1:sub(1, #o1 - #o2) +--~ function d_4.删后缀_基态(u1, u2) + --~ if u1:endswith(u2) then + --~ return u1:sub(1, #u1 - #u2) --~ end --~ end --~ 场景_令行窗_件径 ---~ function d_4.在前后加英文双引号(o1) - --~ return d_4.加前缀与后缀(o1, [["]], [["]]) +--~ function d_4.在前后加英文双引号(u1) + --~ return d_4.加前缀与后缀(u1, [["]], [["]]) --~ end return d_4 Index: 残局文料/lua_lib/程序语言_月_基础类型_字串_逐一.lua ================================================================== --- 残局文料/lua_lib/程序语言_月_基础类型_字串_逐一.lua +++ 残局文料/lua_lib/程序语言_月_基础类型_字串_逐一.lua @@ -1,10 +1,10 @@ local d_2 = {} -function d_2.处理后返回新排(o1, o2, o3, o4) +function d_2.处理后返回新排(u1, u2, o3, o4) local k1_9 k1_9 = {} - for o5 in o2(o1, o3, o4) do + for o5 in u2(u1, o3, o4) do k1_9[#k1_9 + 1] = o5 end return k1_9 end return d_2 Index: 残局文料/lua_lib/程序语言_月_基础类型_序排_逐一.lua ================================================================== --- 残局文料/lua_lib/程序语言_月_基础类型_序排_逐一.lua +++ 残局文料/lua_lib/程序语言_月_基础类型_序排_逐一.lua @@ -1,19 +1,19 @@ local d_2 = {} -function d_2.处理后返回新排(o1_11, o1, o2, o3, o4) +function d_2.处理后返回新排(o1_11, u1, u2, 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) + k1_8 = u1(o1_11[o5], u2, 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) +--~ function d_2.处理(o1_11, u1, u2, o3) --~ for o4 = 1, #o1_11 do - --~ o1(o1_11[o4], o2, o3) + --~ u1(o1_11[o4], u2, o3) --~ end --~ end return d_2 Index: 残局文料/lua_lib/程语_月_删注_不虑字串.lua ================================================================== --- 残局文料/lua_lib/程语_月_删注_不虑字串.lua +++ 残局文料/lua_lib/程语_月_删注_不虑字串.lua @@ -1,5 +1,5 @@ local d_2 = {} -function d_2.单行注(o1) - return o1:gsub("%-%-[^\n]*", "") +function d_2.单行注(u1) + return u1:gsub("%-%-[^\n]*", "") end return d_2 Index: 残局文料/lua_lib/程语_月_基类_字串_始缀与终缀.lua ================================================================== --- 残局文料/lua_lib/程语_月_基类_字串_始缀与终缀.lua +++ 残局文料/lua_lib/程语_月_基类_字串_始缀与终缀.lua @@ -1,27 +1,27 @@ local d_3 = {} --~ 加 -function d_3.加始缀_基态(o1, o2) - return o2 .. o1 +function d_3.加始缀_基态(u1, u2) + return u2 .. u1 end -function d_3.加终缀_基态(o1, o2) - return o1 .. o2 +function d_3.加终缀_基态(u1, u2) + return u1 .. u2 end --~ 加_分_确保 ---~ function d_3.加前缀_确保态(o1, o2, o3) ---~ 筛文库.返全文(o1, ) +--~ function d_3.加前缀_确保态(u1, u2, o3) +--~ 筛文库.返全文(u1, ) --~ local k1 ---~ k1 = d_3.删前缀(o1, o2, o3) ---~ return o2 .. o1 +--~ k1 = d_3.删前缀(u1, u2, o3) +--~ return u2 .. u1 --~ end --~ 减 -function d_3.减始缀_基态(o1, o2) - if o1:startswith(o2) then - return o1:sub(#o2 + 1) +function d_3.减始缀_基态(u1, u2) + if u1:startswith(u2) then + return u1:sub(#u2 + 1) end end -function d_3.减终缀_基态(o1, o2) - if o1:endswith(o2) then - return o1:sub(1, #o1 - #o2) +function d_3.减终缀_基态(u1, u2) + if u1:endswith(u2) then + return u1:sub(1, #u1 - #u2) end end return d_3 Index: 残局文料/lua_lib/程语_月_基类_文_删字.lua ================================================================== --- 残局文料/lua_lib/程语_月_基类_文_删字.lua +++ 残局文料/lua_lib/程语_月_基类_文_删字.lua @@ -1,5 +1,5 @@ local d_2 = {} -function d_2.空格与制表符(o1) - return o1:gsub("[ \t]", "") +function d_2.空格与制表符(u1) + return u1:gsub("[ \t]", "") end return d_2 Index: 残局文料/lua_lib/程语_月_基类_文_始缀与终缀.lua ================================================================== --- 残局文料/lua_lib/程语_月_基类_文_始缀与终缀.lua +++ 残局文料/lua_lib/程语_月_基类_文_始缀与终缀.lua @@ -1,56 +1,56 @@ 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 +function d_3.加前缀_基态(u1, u2) + return u2 .. u1 + end +function d_3.加始缀_基态(u1, u2) + return u2 .. u1 + end +function d_3.加后缀_基态(u1, u2) + return u1 .. u2 + end +function d_3.加终缀_基态(u1, u2) + return u1 .. u2 end --~ 加_分_确保 ---~ function d_3.加前缀_确保态(o1, o2, o3) ---~ 筛文库.返全文(o1, ) +--~ function d_3.加前缀_确保态(u1, u2, o3) +--~ 筛文库.返全文(u1, ) --~ local k1 ---~ k1 = d_3.删前缀(o1, o2, o3) ---~ return o2 .. o1 +--~ k1 = d_3.删前缀(u1, u2, o3) +--~ return u2 .. u1 --~ end -function d_3.加前缀与后缀_基态(o1, o2, o3) - return o2 .. o1 .. (o3 or "") +function d_3.加前缀与后缀_基态(u1, u2, o3) + return u2 .. u1 .. (o3 or "") end -function d_3.加始缀与终缀_基态(o1, o2, o3) - return o2 .. o1 .. (o3 or "") +function d_3.加始缀与终缀_基态(u1, u2, o3) + return u2 .. u1 .. (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) +function d_3.删前缀_基态(u1, u2) + if u1:startswith(u2) then + return u1:sub(#u2 + 1) + end + end +function d_3.减始缀_基态(u1, u2) + if u1:startswith(u2) then + return u1:sub(#u2 + 1) + end + end +function d_3.删后缀_基态(u1, u2) + if u1:endswith(u2) then + return u1:sub(1, #u1 - #u2) + end + end +function d_3.减终缀_基态(u1, u2) + if u1:endswith(u2) then + return u1:sub(1, #u1 - #u2) end end --~ 场景_令行窗_件径 -function d_3.在前后加英文双引号_基态(o1) - return [["]] .. o1 .. [["]] +function d_3.在前后加英文双引号_基态(u1) + return [["]] .. u1 .. [["]] end -function d_3.在始终加英文双引号_基态(o1) - return [["]] .. o1 .. [["]] +function d_3.在始终加英文双引号_基态(u1) + return [["]] .. u1 .. [["]] end return d_3 Index: 残局文料/lua_lib/程语_月_基类_文_筛文_文转排.lua ================================================================== --- 残局文料/lua_lib/程语_月_基类_文_筛文_文转排.lua +++ 残局文料/lua_lib/程语_月_基类_文_筛文_文转排.lua @@ -1,6 +1,6 @@ local d_2 = {} local 遍历文库 = 常用库.导入库_通用大字集态_八位态("程语_月_基类_文_遍历") -function d_2.单行_非空态_无换行符态(o1) - return 遍历文库.遍历(o1, string.gmatch, "[^\n]+") +function d_2.单行_非空态_无换行符态(u1) + return 遍历文库.遍历(u1, string.gmatch, "[^\n]+") end return d_2 Index: 残局文料/lua_lib/算机_基统_窗群_件系_小件_写.lua ================================================================== --- 残局文料/lua_lib/算机_基统_窗群_件系_小件_写.lua +++ 残局文料/lua_lib/算机_基统_窗群_件系_小件_写.lua @@ -1,9 +1,9 @@ local d_2 = {} -function d_2.写件(o1, o2, o3) +function d_2.写件(u1, u2, o3) local k1_3 - k1_3 = io.open(o2, o3 or "w") - k1_3:write(o1) + k1_3 = io.open(u2, o3 or "w") + k1_3:write(u1) k1_3:flush() k1_3:close() end return d_2 Index: 残局文料/lua_lib/算机_基统_窗群_件系_小件_读.lua ================================================================== --- 残局文料/lua_lib/算机_基统_窗群_件系_小件_读.lua +++ 残局文料/lua_lib/算机_基统_窗群_件系_小件_读.lua @@ -1,10 +1,10 @@ local d_2 = {} -function d_2.读件(o1, o2) +function d_2.读件(u1, u2) local k1 local k1_3 - k1_3 = io.open(o1, o2 or "r") + k1_3 = io.open(u1, u2 or "r") k1 = k1_3:read("a") k1_3:flush() k1_3:close() return k1 end Index: 残局文料/lua_lib/算机_基统_窗群_文件系_小文件_写.lua ================================================================== --- 残局文料/lua_lib/算机_基统_窗群_文件系_小文件_写.lua +++ 残局文料/lua_lib/算机_基统_窗群_文件系_小文件_写.lua @@ -1,13 +1,13 @@ local s = {} --~ 文 --~ 文件路 --~ 式 -function s.写文件(o1, o2, o3) +function s.写文件(u1, u2, o3) local k1_3 --~ 文件 - k1_3 = io.open(o2, o3 or "w") - k1_3:write(o1) + k1_3 = io.open(u2, o3 or "w") + k1_3:write(u1) k1_3:flush() k1_3:close() end return s Index: 残局文料/lua_lib/算机_基统_窗群_文件系_小文件_读.lua ================================================================== --- 残局文料/lua_lib/算机_基统_窗群_文件系_小文件_读.lua +++ 残局文料/lua_lib/算机_基统_窗群_文件系_小文件_读.lua @@ -1,13 +1,13 @@ local s = {} --~ 文件路 --~ 式 -function s.读文件(o1, o2) +function s.读文件(u1, u2) local k1 local k1_3 --~ 文件 - k1_3 = io.open(o1, o2 or "r") + k1_3 = io.open(u1, u2 or "r") --~ 文 k1 = k1_3:read("a") k1_3:flush() k1_3:close() return k1 Index: 残局文料/lua_lib/算机_理器_通用_字节.lua ================================================================== --- 残局文料/lua_lib/算机_理器_通用_字节.lua +++ 残局文料/lua_lib/算机_理器_通用_字节.lua @@ -1,8 +1,8 @@ local ffi = require("ffi") local s = {} --~ 内数 -function s.to_uint64(o1) - local uint64_pointer = ffi.new("uint64_t[1]", o1) +function s.to_uint64(u1) + local uint64_pointer = ffi.new("uint64_t[1]", u1) return uint64_pointer[0] end return s Index: 残局文料/lua_lib/算机_程语_月_基类_数.lua ================================================================== --- 残局文料/lua_lib/算机_程语_月_基类_数.lua +++ 残局文料/lua_lib/算机_程语_月_基类_数.lua @@ -4,81 +4,81 @@ local string = string local s = {} -- 指数 --~ 左加数 --~ 右加数 -function s.指数(o1, o2, o3) +function s.指数(u1, u2, o3) local k1 if o3 then --~ 指数次 - k1 = 基算库.除法(o2, o3) - return o1 ^ k1 + k1 = 基算库.除法(u2, o3) + return u1 ^ k1 else - return o1 ^ o2 + return u1 ^ u2 end end -- 指数次 --~ 数 --~ 指数底 -function s.指数次(o1, o2) +function s.指数次(u1, u2) local k1 --~ 指数次 - k1 = math.log(o1) / math.log(o2) + k1 = math.log(u1) / math.log(u2) return k1 end --~ 数 -function s.二底指数次(o1) +function s.二底指数次(u1) local k1 --~ 指数次 - _, k1 = math.frexp(o1) + _, k1 = math.frexp(u1) return k1 end -- 向大取整和向小取整 --~ 数 -function s.向小取整(o1) - return math.floor(o1) +function s.向小取整(u1) + return math.floor(u1) end -- 几位整数和几位小数 --~ 数 --~ 几位整数 -function s.几位整数(o1, o2) - return string.format("%0" .. o2 .. "d", o1) +function s.几位整数(u1, u2) + return string.format("%0" .. u2 .. "d", u1) end --~ 数 --~ 几位小数 -function s.几位小数(o1, o2) - return string.format("%." .. o2 .. "f", o1) +function s.几位小数(u1, u2) + return string.format("%." .. u2 .. "f", u1) end -- 正数与负数 --~ 数 -function s.正数(o1) - if o1 >= 0 then - return o1 +function s.正数(u1) + if u1 >= 0 then + return u1 else - return -o1 + return -u1 end end --~ 数 -function s.负数(o1) - if o1 >= 0 then - return -o1 +function s.负数(u1) + if u1 >= 0 then + return -u1 else - return o1 + return u1 end end -- 递加 do local k1_0 --~ 数表 k1_0 = {} - function s.递加(o1) - if k1_0[o1] then + function s.递加(u1) + if k1_0[u1] then else - k1_0[o1] = 0 + k1_0[u1] = 0 end - k1_0[o1] = k1_0[o1] + 1 - return k1_0[o1] + k1_0[u1] = k1_0[u1] + 1 + return k1_0[u1] end end -- 最值 function s.最大值() return math.huge @@ -88,29 +88,29 @@ --~ 最大值 k1 = s.最大值() return s.负数(k1) end --~ 数 -function s.是否最值(o1) - if o1 == s.最大值() - or o1 == s.最小值() then +function s.是否最值(u1) + if u1 == s.最大值() + or u1 == s.最小值() then return true else end end --~ 数 -function s.是否无效值(o1) - if o1 == o1 then +function s.是否无效值(u1) + if u1 == u1 then else return true end end --~ 数 -function s.是否错值(o1) +function s.是否错值(u1) local k1, k2 --~ 是否最值 - k1 = s.是否最值(o1) + k1 = s.是否最值(u1) --~ 是否无效值 - k2 = s.是否无效值(o1) + k2 = s.是否无效值(u1) return k1 or k2 end return s Index: 残局文料/lua_lib/算机_程语_月_基类_数_位算.lua ================================================================== --- 残局文料/lua_lib/算机_程语_月_基类_数_位算.lua +++ 残局文料/lua_lib/算机_程语_月_基类_数_位算.lua @@ -1,15 +1,15 @@ local bit = bit local s = {} -- 和与或 --~ 左数 --~ 右数 -function s.位和(o1, o2) - return bit.band(o1, o2) +function s.位和(u1, u2) + return bit.band(u1, u2) end -- 左移与右移 --~ 数 --~ 右移几位 -function s.位右移(o1, o2) - return bit.rshift(o1, o2) +function s.位右移(u1, u2) + return bit.rshift(u1, u2) end return s Index: 残局文料/lua_lib/算机_程语_月_基类_数_基算.lua ================================================================== --- 残局文料/lua_lib/算机_程语_月_基类_数_基算.lua +++ 残局文料/lua_lib/算机_程语_月_基类_数_基算.lua @@ -1,34 +1,34 @@ local s = {} -- 加减 --~ 左加数 --~ 右加数 -function s.加法(o1, o2) - return o1 + o2 +function s.加法(u1, u2) + return u1 + u2 end --~ 左减数 --~ 右减数 -function s.减法(o1, o2) - return o1 - o2 +function s.减法(u1, u2) + return u1 - u2 end -- 乘除 --~ 左乘数 --~ 右乘数 -function s.乘法(o1, o2) - return o1 * o2 +function s.乘法(u1, u2) + return u1 * u2 end --~ 左除数 --~ 右除数 -function s.除法(o1, o2) - return o1 / o2 +function s.除法(u1, u2) + return u1 / u2 end -- 向外与向内 --~ 左加数 --~ 右加数 -function s.向外加(o1, o2) - if o1 >= 0 then - return s.加法(o1, o2) +function s.向外加(u1, u2) + if u1 >= 0 then + return s.加法(u1, u2) else - return s.减法(o1, o2) + return s.减法(u1, u2) end end return s Index: 残局文料/lua_lib/算机_程语_月_基类_文.lua ================================================================== --- 残局文料/lua_lib/算机_程语_月_基类_文.lua +++ 残局文料/lua_lib/算机_程语_月_基类_文.lua @@ -1,16 +1,16 @@ 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 "") +function s.连(u1, u2, o3, o4, o5, o6, o7, o8, o9) + return u1 .. (u2 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) +function s.全筛文(u1, u2, o3, o4) --~ print(4) - if string.find(o1, o2, o3, o4) then - return o1 + if string.find(u1, u2, o3, o4) then + return u1 end end return s Index: 残局文料/lua_lib/算机_程语_月_基类_文_前缀.lua ================================================================== --- 残局文料/lua_lib/算机_程语_月_基类_文_前缀.lua +++ 残局文料/lua_lib/算机_程语_月_基类_文_前缀.lua @@ -1,17 +1,17 @@ local string = string local s = {} -- 加与删 --~ 文 --~ 前缀 -function s.加前缀(o1, o2) - return (o2 or "") .. o1 +function s.加前缀(u1, u2) + return (u2 or "") .. u1 end -- 全筛 --~ 文 --~ 前缀 -function s.全筛前缀(o1, o2) - if string.sub(o1, 1, #o2) == o2 then - return o1 +function s.全筛前缀(u1, u2) + if string.sub(u1, 1, #u2) == u2 then + return u1 end end return s Index: 残局文料/lua_lib/算机_程语_月_基类_文_后缀.lua ================================================================== --- 残局文料/lua_lib/算机_程语_月_基类_文_后缀.lua +++ 残局文料/lua_lib/算机_程语_月_基类_文_后缀.lua @@ -1,17 +1,17 @@ local string = string local s = {} -- 加与删 --~ 文 --~ 后缀 -function s.加后缀(o1, o2) - return o1 .. (o2 or "") +function s.加后缀(u1, u2) + return u1 .. (u2 or "") end -- 全筛 --~ 文 --~ 后缀 -function s.全筛后缀(o1, o2) - if string.sub(o1, -#o2) == o2 then - return o1 +function s.全筛后缀(u1, u2) + if string.sub(u1, -#u2) == u2 then + return u1 end end return s Index: 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_文_取全.lua ================================================================== --- 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_文_取全.lua +++ 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_文_取全.lua @@ -2,15 +2,15 @@ -- 启 --~ 文 --~ 历文的能 --~ 入参2 --~ 入参3 -function s.历文(o1, o2, o3, o4) +function s.历文(u1, u2, o3, o4) local k1_0 --~ 集排 k1_0 = {} - for o5 in o2(o1, o3, o4) do + for o5 in u2(u1, o3, o4) do k1_0[#k1_0 + 1] = o5 end return k1_0 end return s Index: 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_对_取一.lua ================================================================== --- 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_对_取一.lua +++ 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_对_取一.lua @@ -1,40 +1,40 @@ local s = {} -- 启 --~ 对 --~ 能 -function s.历对(u1_0, o1) +function s.历对(u1_0, u1) local k1, k2 - for o2, o3 in pairs(u1_0) do + for u2, o3 in pairs(u1_0) do --~ 键 --~ 值 - k1, k2 = s.模(k1, k2, o2, o3, o1) + k1, k2 = s.模(k1, k2, u2, o3, u1) end return k1, k2 end -- 模 --~ 键 --~ 值 --~ 对中键 --~ 对中值 --~ 能 -function s.模(o1, o2, o3, o4, o5) - if o1 == nil then +function s.模(u1, u2, o3, o4, o5) + if u1 == nil then return o3, o4 - elseif o5(o1, o2, o3, o4) then + elseif o5(u1, u2, o3, o4) then return o3, o4 else - return o1, o2 + return u1, u2 end end -- 最短 --~ 最短键 --~ 值 --~ 键 --~ 值 -function s._筛最短键(o1, o2, o3, o4) - if #o1 > #o3 then +function s._筛最短键(u1, u2, o3, o4) + if #u1 > #o3 then return true end end --~ 对 function s.筛最短键(u1_0) @@ -43,15 +43,15 @@ -- 最大 --~ 键 --~ 最大值 --~ 键 --~ 值 -function s._筛最大值(o1, o2, o3, o4) - if o2 < o4 then +function s._筛最大值(u1, u2, o3, o4) + if u2 < o4 then return true end end --~ 对 function s.筛最大值(u1_0) return s.历对(u1_0, s._筛最大值) end return s Index: 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_对_取全.lua ================================================================== --- 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_对_取全.lua +++ 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_对_取全.lua @@ -1,19 +1,19 @@ local s = {} -- 全与局 --~ 对 --~ 能 --~ 入参3 -function s.历对(u1_0, o1, o2) +function s.历对(u1_0, u1, u2) local k1, k2 local k1_0 --~ 对 k1_0 = {} for o3, o4 in pairs(u1_0) do --~ 键 --~ 值 - k1, k2 = o1(o3, o4, o2) + k1, k2 = u1(o3, o4, u2) if k1 then k1_0[k1] = k2 else end end @@ -21,24 +21,24 @@ end --~ 对 --~ 能 --~ 入参2 --~ 入参3 -function s.历值(u1_0, o1, o2, o3) +function s.历值(u1_0, u1, u2, o3) local k1_0 --~ 对 k1_0 = {} for o4, o5 in pairs(u1_0) do - k1_0[o4] = o1(o5, o2, o3) + k1_0[o4] = u1(o5, u2, o3) end return k1_0 end --~ 键 --~ 值 --~ 要找的值 -function s.全等筛值(o1, o2, o3) - if o2 == o3 then - return o1, o2 +function s.全等筛值(u1, u2, o3) + if u2 == o3 then + return u1, u2 else end end return s Index: 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取一.lua ================================================================== --- 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取一.lua +++ 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取一.lua @@ -1,34 +1,34 @@ local s = {} -- 启 --~ 排 --~ 能 -function s.历排(u1_0, o1) +function s.历排(u1_0, u1) local k1 - for o2 = 1, #u1_0 do + for u2 = 1, #u1_0 do --~ 值 - k1 = s.模(k1, u1_0[o2], o1) + k1 = s.模(k1, u1_0[u2], u1) end return k1 end -- 模 --~ 值 --~ 排中值 -function s.模(o1, o2, o3) - if o1 == nil then - return o2 - elseif o3(o1, o2) then - return o2 +function s.模(u1, u2, o3) + if u1 == nil then + return u2 + elseif o3(u1, u2) then + return u2 else - return o1 + return u1 end end -- 最短 --~ 最短文 --~ 值 -function s._筛最短文(o1, o2) - if #o1 > #o2 then +function s._筛最短文(u1, u2) + if #u1 > #u2 then return true end end --~ 排 function s.筛最短文(u1_0) Index: 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取全.lua ================================================================== --- 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取全.lua +++ 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取全.lua @@ -4,31 +4,31 @@ --~ 排 --~ 办排中值的能 --~ 入参2 --~ 入参3 --~ 入参4 -function s.历排(u1_0, o1, o2, o3, o4) +function s.历排(u1_0, u1, u2, 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) + k1_0[#k1_0 + 1] = u1(u1_0[o5], u2, o3, o4) end return k1_0 end --~ 排 --~ 排 --~ 办排中值的能 --~ 入参3 --~ 入参4 --~ 入参5 -function s.历二排(u1_0, u2_0, o1, o2, o3, o4) +function s.历二排(u1_0, u2_0, u1, u2, 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) + k1_0[#k1_0 + 1] = u1(u1_0[o5], u2_0[o5], u2, o3, o4) end return k1_0 end --~ 排 --~ 排 @@ -35,15 +35,15 @@ --~ 排 --~ 办排中值的能 --~ 入参4 --~ 入参5 --~ 入参6 -function s.历三排(u1_0, u2_0, u3_0, o1, o2, o3, o4) +function s.历三排(u1_0, u2_0, u3_0, u1, u2, 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) + k1_0[#k1_0 + 1] = u1(u1_0[o5], u2_0[o5], u3_0[o5], u2, o3, o4) end return k1_0 end return s Index: 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取联.lua ================================================================== --- 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取联.lua +++ 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取联.lua @@ -2,15 +2,15 @@ -- 启 --~ 排 --~ 办排中值的能 --~ 入参2 --~ 入参3 -function s.历排(u1_0, o1, o2, o3, o4) +function s.历排(u1_0, u1, u2, 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)) + k1 = u1(k1, u2(u1_0[o5], o3, o4)) end return k1 end return s Index: 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_相加.lua ================================================================== --- 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_相加.lua +++ 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_相加.lua @@ -4,15 +4,15 @@ --~ 排 --~ 办排中值的能 --~ 入参2 --~ 入参3 --~ 入参4 -function s.历排(u1_0, o1, o2, o3, o4) +function s.历排(u1_0, u1, u2, o3, o4) local k1 --~ 和 k1 = 0 for o5 = 1, #u1_0 do - k1 = k1 + o1(u1_0[o5], o2, o3, o4) + k1 = k1 + u1(u1_0[o5], u2, o3, o4) end return k1 end return s Index: 残局文料/lua_lib/算机_程语_月_基类_能_传能_基类.lua ================================================================== --- 残局文料/lua_lib/算机_程语_月_基类_能_传能_基类.lua +++ 残局文料/lua_lib/算机_程语_月_基类_能_传能_基类.lua @@ -1,13 +1,13 @@ local s = {} -- 启 --~ 值 --~ 值类 --~ 办值的能 -function s.操类(o1, o2, o3) - if type(o1) == o2 then - return o3(o1) +function s.操类(u1, u2, o3) + if type(u1) == u2 then + return o3(u1) else - return o1 + return u1 end end return s Index: 残局文料/lua_lib/算机_程语_月_基类_能_返参.lua ================================================================== --- 残局文料/lua_lib/算机_程语_月_基类_能_返参.lua +++ 残局文料/lua_lib/算机_程语_月_基类_能_返参.lua @@ -1,12 +1,12 @@ local s = {} -- 数量 --~ 入参1 -function s.一参(o1) - return o1 +function s.一参(u1) + return u1 end --~ 入参1 --~ 入参2 -function s.二参(o1, o2) - return o1, o2 +function s.二参(u1, u2) + return u1, u2 end return s Index: 残局文料/lua_lib/算机_程语_月_基类_表_对.lua ================================================================== --- 残局文料/lua_lib/算机_程语_月_基类_表_对.lua +++ 残局文料/lua_lib/算机_程语_月_基类_表_对.lua @@ -7,12 +7,12 @@ --~ 对 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 + for u1, u2 in pairs(u2_0) do + k1_0[u1] = u2 end return k1_0 end -- 对长 --~ 对 Index: 残局文料/lua_lib/算机_程语_月_基类_表_排_基类_数.lua ================================================================== --- 残局文料/lua_lib/算机_程语_月_基类_表_排_基类_数.lua +++ 残局文料/lua_lib/算机_程语_月_基类_表_排_基类_数.lua @@ -16,37 +16,37 @@ k1 = s.总和(u1_0) return 基算库.除法(k1, #u1_0) end --~ 排 --~ 标准值 -function s.方差(u1_0, o1) +function s.方差(u1_0, u1) local k1, k2 local k1_0 --~ 标准值 - k1 = o1 or s.均值(u1_0) + k1 = u1 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) +function s.标准差(u1_0, u1) local k1 --~ 方差 - k1 = s.方差(u1_0, o1) + k1 = s.方差(u1_0, u1) return 数库.指数(k1, 1, 2) end --~ 排 --~ 标准值 -function s.均差(u1_0, o1) +function s.均差(u1_0, u1) local k1, k2 local k1_0 --~ 标准值 - k1 = o1 or s.均值(u1_0) + k1 = u1 or s.均值(u1_0) --~ 排,用于算均差 k1_0 = 历排库.历排(u1_0, 基算库.减法, k1) k1_0 = 历排库.历排(k1_0, 数库.正数) --~ 均差 k2 = 基算库.除法(s.总和(k1_0), #k1_0) Index: 残局文料/lua_lib/算机_程语_月_注_删_不虑字串.lua ================================================================== --- 残局文料/lua_lib/算机_程语_月_注_删_不虑字串.lua +++ 残局文料/lua_lib/算机_程语_月_注_删_不虑字串.lua @@ -2,28 +2,28 @@ local 文库 = require(字集库.u8_to_a("算机_程语_月_基类_文")) local string = string local s = {} -- 单行注与多行注 --~ 文 -function s.删注(o1) - o1 = s.删多行注(o1) - return s.删单行注(o1) +function s.删注(u1) + u1 = s.删多行注(u1) + return s.删单行注(u1) end do local k1 --~ 模 k1 = 文库.连("%-%-", "%[", "(=*)", "%[", ".-", "%]", "%1", "%]") --~ 文 - function s.删多行注(o1) - return string.gsub(o1, k1, "") + function s.删多行注(u1) + return string.gsub(u1, k1, "") end end do local k1 --~ 模 k1 = 文库.连("%-%-", "[^\n]*") --~ 文 - function s.删单行注(o1) - return string.gsub(o1, k1, "") + function s.删单行注(u1) + return string.gsub(u1, k1, "") end end return s Index: 残局文料/lua_lib/计算机_系统_窗口群_命令行_无窗口.lua ================================================================== --- 残局文料/lua_lib/计算机_系统_窗口群_命令行_无窗口.lua +++ 残局文料/lua_lib/计算机_系统_窗口群_命令行_无窗口.lua @@ -1,23 +1,23 @@ local d_2 = {} --~ local 件径库 = 常用库.导入库_通用大字集态_八位态("计算机_系统_窗口群_文件系统_路径") --~ local 历排库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_序排_逐一") --~ local 前后缀库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_字串_前缀与后缀") -function d_2.执行命令(o1) - print(o1) - os.execute(o1) +function d_2.执行命令(u1) + print(u1) + os.execute(u1) end ---~ function d_2.逐一执行命令(o1) - --~ 历排库.处理(o1, d_2.执行命令) +--~ function d_2.逐一执行命令(u1) + --~ 历排库.处理(u1, d_2.执行命令) --~ end --~ 件夹 ---~ function d_2.入文件夹路径而用文件路径执行命令_全筛态_加前缀与后缀态_不虑子文件夹内态(o1, o2, o3, o4, o5, o6) +--~ function d_2.入文件夹路径而用文件路径执行命令_全筛态_加前缀与后缀态_不虑子文件夹内态(u1, u2, o3, o4, o5, o6) --~ local k1_9 - --~ k1_9 = 件径库.入文件夹路径而返文件路径排_全筛态(o1, o2, o3, o4) + --~ k1_9 = 件径库.入文件夹路径而返文件路径排_全筛态(u1, u2, 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) +--~ function d_2.入文件夹路径而用文件路径执行命令_全筛后缀态_加前缀态_不虑子文件夹内态(u1, u2, o3) + --~ return d_2.入文件夹路径而用文件路径执行命令_全筛态_加前缀与后缀态_不虑子文件夹内态(u1, u2, -#u2, true, o3) --~ end return d_2 Index: 残局文料/lua_lib/计算机_系统_窗口群_文件系统_路径.lua ================================================================== --- 残局文料/lua_lib/计算机_系统_窗口群_文件系统_路径.lua +++ 残局文料/lua_lib/计算机_系统_窗口群_文件系统_路径.lua @@ -2,19 +2,19 @@ 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) +function d_2.入文件夹路径而返文件路径排_全筛态(u1, u2, o3, o4) + local k1_9 + k1_9 = d_2.入文件夹路径而返文件路径排(u1) + return 历排库.处理后返回新排(k1_9, 全筛文库.找字, u2, o3, o4) + end +function d_2.入文件夹路径而返文件路径排(u1) + local k1_9 + k1_9 = d_2.入文件夹路径而返文件名排(u1) + return 前后缀库.逐一加前缀(k1_9, u1 .. "/") + end +function d_2.入文件夹路径而返文件名排(u1) + return 历文库.处理后返回新排(u1, 简单文件系统库.dir) end return d_2