游戏王残局简化版

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 Side-by-Side 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

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
  for o2, u2_0 in pairs(u1_0) do
    --~ 键
    --~ 值
    k1, k2 = s.历对取一的模(k1, k2, o2, o2_0, o1)
    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, o2_0 in pairs(u1_0) do
  for o3, u2_0 in pairs(u1_0) do
    --~ 键
    --~ 值
    k1, k2_0 = o1(o3, o2_0, o2)
    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

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
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, o2_0)
function s.修对类(u1_0, u2_0)
  if tonumber(u1_0) then
    return tonumber(u1_0), o2_0
    return tonumber(u1_0), u2_0
  else
    return u1_0, o2_0
    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

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)
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], o2_0[o5], o2, o3, o4)
    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, o2_0, o3_0, o1, o2, o3, o4)
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], o2_0[o5], o3_0[o5], o2, o3, o4)
    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

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)
function s.连两对(u1_0, u2_0)
  local k1_0
  --~ 合对
  k1_0 = 历对库.历对(u1_0, 返参库.二参)
  for o1, o2 in pairs(o2_0) do
  for o1, o2 in pairs(u2_0) do
    k1_0[o1] = o2
    end
  return k1_0
  end
-- 对长
--~ 对
function s.对长(u1_0)
︙