游戏王残局简化版

ipml_mj_ysaf.lua at [01d13ec530]
Login

ipml_mj_ysaf.lua at [01d13ec530]

File 残局文料/lua_lib/ipml_mj_ysaf.lua artifact 2536b4bb7c part of check-in 01d13ec530


--~ 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, u1, u2, u3, u4)
  --~ local k1_8
  --~ local k1_11
  --~ k1_11 = {}
  --~ for u5 = 1, #o1_11 do
    --~ k1_8 = u1(o1_11[u5], u2, u3, u4)
    --~ if k1_8 then
      --~ k1_11[#k1_11 + 1] = k1_8
      --~ end
    --~ end
  --~ return k1_11
  --~ end
--~ function _G.历文(u1, u2, u3, u4)
  --~ local k1_9
  --~ k1_9 = {}
  --~ for u5 in u2(u1, u3, u4) do
    --~ k1_9[#k1_9 + 1] = u5
    --~ end
  --~ return k1_9
  --~ end
--~ local 简件系库 = require("lfs")
--~ require(字集码互转库.u8_to_a("程语_月_基类_字串_内置库_加多"))
--~ 程语_月_标准库_仿照_加多_多编码_大字集_通用
function d_5.导入库_通用大字集态_八位态(modname)
  return require(字集码互转库.u8_to_a(modname))
  end
--~ local 
do
  local h1 = 0
  function _G.递增示()
    h1 = h1 + 1
    print(h1)
    end
  end
--~ do
--~ local h1 = os.execute
--~ function _G.os.execute(command)
--~ return h1(字集码互转库.u2a(command))
--~ end
--~ end
function d_5.读件(u1, u2)
  local h1
  local k1_3
  k1_3 = io.open(u1, u2 or "r")
  h1 = k1_3:read("a")
  k1_3:flush()
  k1_3:close()
  return h1
  end
function d_5.读件排(o1_9, u1)
  local k1_9
  k1_9 = {}
  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.写件(u1, u2, u3)
  local k1_3
  k1_3 = io.open(u1, u3 or "w")
  k1_3:write(u2)
  k1_3:flush()
  k1_3:close()
  end
function d_5.写件_一维(u1, o1_9, u2, u3)
  local h1 = table.concat(o1_9, "\n")
  if u3 then
    h1 = u3(h1)
    end
  d_5.写件(u1, h1, 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.删前缀(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, u1, u2, u3)
  local k1_8
  local k1_9
  k1_9 = {}
  for u4 = 1, #o1_9 do
    k1_8 = u1(o1_9[u4], u2, u3)
    if k1_8 then
      k1_9[#k1_9 + 1] = k1_8
      end
    end
  return k1_9
  end
--~ function d_5.筛文(u1, u2, u3)
--~ local k1_9
--~ k1_9 = {}
--~ for u4 in u2(u1, u3) do
--~ k1_9[#k1_9 + 1] = u4
--~ end
--~ return k1_9
--~ end
--~ function d_5.判文(u1, u2, u3, u4)
--~ if u1:find(u2 or ".", u3, u4) then
--~ return u1
--~ end
--~ end
--~ function d_5.筛件径(u1, u2)
  --~ local k1_9
  --~ 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.筛单行等式(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 u2 = 1, #o1_12, u1 + 1 do
    k1_5 = {}
    for u3 = 1, u1 do
      k1_5[u3] = o1_12[u2 + u3]
      end
    k1_11[o1_12[u2]] = k1_5
    end
  return k1_11
  end
--~ function d_5.加前缀(u1, u2)
--~ return u2 .. u1
--~ end
--~ function d_5.加后缀(u1, u2)
--~ return u1 .. u2
--~ 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.办令(u1)
  --~ print(u1)
  --~ os.execute(u1)
  --~ end
--~ function d_5.在前后加英文双引号(u1)
--~ return [["]] .. u1 .. [["]]
--~ end
--~ function d_5.筛单行等式_左右值态(u1)
--~ local k1_11
--~ k1_11 = {}
--~ for u2 in k1_11:gmatch("[^\n= \t]+") do
--~ table.insert(k1_11, u2)
--~ end
--~ return u2
--~ end
return d_5