游戏王残局简化版

Check-in [7d4a9f036c]
Login

Check-in [7d4a9f036c]

Overview
Comment:好
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 7d4a9f036c85e6d3db8214222d85dd46bd7c4cc7d88259881d029a57ea361ae2
User & Date: 顽雨沉风 on 2024-02-13 05:04:09
Other Links: manifest | tags
Context
2024-02-13
05:04
好 check-in: c67edd94ca user: 顽雨沉风 tags: trunk
05:04
好 check-in: 7d4a9f036c user: 顽雨沉风 tags: trunk
05:03
好 check-in: 5b69db85ea user: 顽雨沉风 tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified 残局文料/lua_lib/常用库.lua from [dafbd2e11c] to [c707d7bd01].

︙︙
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87

    return o1
    end
  end
--~ 对
--~ 能
function s.历对取一(u1_0, o1)
  local k1, k2
  for o2, o2_0 in pairs(u1_0) do
    --~ 键
    --~ 值
    k1, k2 = s.历对取一的模(k1, k2, o2, o2_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, o2_0 in pairs(u1_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








|


|

















|


|








49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87

    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
︙︙
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207

--~ 文
function s.删左右空白(o1)
  o1 = string.gsub(o1, "^%s+", "")
  return string.gsub(o1, "%s+$", "")
  end
--~ 对
--~ 对
function s.连两对(u1_0, o2_0)
  for o3_0, o4_0 in pairs(o2_0) do
    u1_0[o3_0] = o4_0
    end
  return u1_0
  end
--~ 键
--~ 值
function s.修对类(u1_0, o2_0)
  if tonumber(u1_0) then
    return tonumber(u1_0), o2_0
  else
    return u1_0, o2_0
    end
  end
do
  --~ 加数
  local k1 = 0
  function s.递增()
    k1 = k1 + 1








|
|






|

|

|








181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207

--~ 文
function s.删左右空白(o1)
  o1 = string.gsub(o1, "^%s+", "")
  return string.gsub(o1, "%s+$", "")
  end
--~ 对
--~ 对
function s.连两对(u1_0, u2_0)
  for o3_0, o4_0 in pairs(u2_0) do
    u1_0[o3_0] = o4_0
    end
  return u1_0
  end
--~ 键
--~ 值
function s.修对类(u1_0, u2_0)
  if tonumber(u1_0) then
    return tonumber(u1_0), u2_0
  else
    return u1_0, u2_0
    end
  end
do
  --~ 加数
  local k1 = 0
  function s.递增()
    k1 = k1 + 1
︙︙

Modified 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取全.lua from [3702af6255] to [bda362a0cf].

︙︙
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

  end
--~ 排
--~ 排
--~ 办排中值的能
--~ 入参3
--~ 入参4
--~ 入参5
function s.历二排(u1_0, o2_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_0[o5], o2, o3, o4)
    end
  return k1_0
  end
--~ 排
--~ 排
--~ 排
--~ 办排中值的能
--~ 入参4
--~ 入参5
--~ 入参6
function s.历三排(u1_0, o2_0, o3_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_0[o5], o3_0[o5], o2, o3, o4)
    end
  return k1_0
  end
return s








|




|










|




|





17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

  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, o3_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], o3_0[o5], o2, o3, o4)
    end
  return k1_0
  end
return s

Modified 残局文料/lua_lib/算机_程语_月_基类_表_对.lua from [59d9dbb4c7] to [73243a76d1]. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

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








|



|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

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)
︙︙