游戏王残局简化版

Check-in [4c19907139]
Login

Check-in [4c19907139]

Overview
Comment:好
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 4c1990713936bbd767aaac9fbb549abc45c8c4f0d69bef6535c8c6c7057518ca
User & Date: 顽雨沉风 on 2024-02-13 05:10:00
Other Links: manifest | tags
Context
2024-02-13
05:10
好 check-in: 1265aac793 user: 顽雨沉风 tags: trunk
05:10
好 check-in: 4c19907139 user: 顽雨沉风 tags: trunk
05:09
好 check-in: a4c0b3bd26 user: 顽雨沉风 tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified 残局文料/lua_lib/ipml_mj_ysaf.lua from [3f80c453ab] to [4848c3edde]. 

1
2
3
4
5

6
7
8
9
10

11
12
13
14
15
16
17

18
19
20

21
22
23
24
25
26
27

1
2
3
4

5
6
7
8
9

10
11
12
13
14
15
16

17
18
19

20
21
22
23
24
25
26
27





-
+




-
+






-
+


-
+








--~ 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, o3, o4)
--~ function _G.历排(o1_11, u1, u2, u3, o4)
  --~ local k1_8
  --~ local k1_11
  --~ k1_11 = {}
  --~ for o5 = 1, #o1_11 do
    --~ k1_8 = u1(o1_11[o5], u2, o3, o4)
    --~ k1_8 = u1(o1_11[o5], u2, u3, o4)
    --~ if k1_8 then
      --~ k1_11[#k1_11 + 1] = k1_8
      --~ end
    --~ end
  --~ return k1_11
  --~ end
--~ function _G.历文(u1, u2, o3, o4)
--~ function _G.历文(u1, u2, u3, o4)
  --~ local k1_9
  --~ k1_9 = {}
  --~ for o5 in u2(u1, o3, o4) do
  --~ for o5 in u2(u1, u3, o4) do
    --~ k1_9[#k1_9 + 1] = o5
    --~ end
  --~ return k1_9
  --~ end
--~ local 简件系库 = require("lfs")
--~ require(字集码互转库.u8_to_a("程语_月_基类_字串_内置库_加多"))
--~ 程语_月_标准库_仿照_加多_多编码_大字集_通用
︙
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

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








-
+

-
+




-
+

-
-
+
+








  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, o3)
function d_5.写件(u1, u2, u3)
  local k1_3
  k1_3 = io.open(u1, o3 or "w")
  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, o3)
function d_5.写件_一维(u1, o1_9, u2, u3)
  local k1 = table.concat(o1_9, "\n")
  if o3 then
    k1 = o3(k1)
  if u3 then
    k1 = u3(k1)
    end
  d_5.写件(u1, k1, u2)
  end
function d_5.删制表符(u1)
  return u1:gsub("\t", "")
  end
--~ function d_5.删空白字(u1)
︙
107
108
109
110
111
112
113
114

115
116
117
118
119

120
121
122
123
124
125
126

127
128
129

130
131
132
133
134
135


136
137
138
139
140
141
142

107
108
109
110
111
112
113

114
115
116
117
118

119
120
121
122
123
124
125

126
127
128

129
130
131
132
133


134
135
136
137
138
139
140
141
142








-
+




-
+






-
+


-
+




-
-
+
+








--~ 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, o3)
function d_5.筛排(o1_9, u1, u2, u3)
  local k1_8
  local k1_9
  k1_9 = {}
  for o4 = 1, #o1_9 do
    k1_8 = u1(o1_9[o4], u2, o3)
    k1_8 = u1(o1_9[o4], u2, u3)
    if k1_8 then
      k1_9[#k1_9 + 1] = k1_8
      end
    end
  return k1_9
  end
--~ function d_5.筛文(u1, u2, o3)
--~ function d_5.筛文(u1, u2, u3)
--~ local k1_9
--~ k1_9 = {}
--~ for o4 in u2(u1, o3) do
--~ for o4 in u2(u1, u3) do
--~ k1_9[#k1_9 + 1] = o4
--~ end
--~ return k1_9
--~ end
--~ function d_5.判文(u1, u2, o3, o4)
--~ if u1:find(u2 or ".", o3, o4) then
--~ function d_5.判文(u1, u2, u3, o4)
--~ if u1:find(u2 or ".", u3, o4) 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 .. "/")
︙
154
155
156
157
158
159
160
161
162


163
164
165
166
167
168
169

154
155
156
157
158
159
160


161
162
163
164
165
166
167
168
169








-
-
+
+








--~ 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 o3 = 1, u1 do
      k1_5[o3] = o1_12[u2 + o3]
    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
︙

Modified 残局文料/lua_lib/常用库.lua from [42d2e0347e] to [11a881b2fb]. 

1
2
3
4
5
6
7
8
9

10
11
12
13
14

15
16
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
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

1
2
3
4
5
6
7
8

9
10
11
12
13

14
15
16
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
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









-
+




-
+







-
+



-
+
















-
+


-
+
















-
+

-
-
-
+
+
+









-
+


-
+








local s = {}
local 简文件库 = require("lfs")
local ffi = require("ffi")
--~ 排
--~ 办排中值的能
--~ 入参2
--~ 入参3
--~ 入参4
function s.历排(u1_0, u1, u2, o3, o4)
function s.历排(u1_0, u1, u2, u3, o4)
  local k1_0
  --~ 集排
  k1_0 = {}
  for o5 = 1, #u1_0 do
    k1_0[#k1_0 + 1] = u1(u1_0[o5], u2, o3, o4)
    k1_0[#k1_0 + 1] = u1(u1_0[o5], u2, u3, o4)
    end
  return k1_0
  end
--~ 文
--~ 历文的能
--~ 入参2
--~ 入参3
function s.历文(u1, u2, o3, o4)
function s.历文(u1, u2, u3, o4)
  local k1_0
  --~ 集排
  k1_0 = {}
  for o5 in u2(u1, o3, o4) do
  for o5 in u2(u1, u3, o4) do
    k1_0[#k1_0 + 1] = o5
    end
  return k1_0
  end
--~ 排
--~ 能
function s.历排取一(u1_0, u1)
  local k1
  for u2 = 1, #u1_0 do
    --~ 值
    k1 = s.历排取一的模(k1, u1_0[u2], u1)
    end
  return k1
  end
--~ 值
--~ 排中值
function s.历排取一的模(u1, u2, o3)
function s.历排取一的模(u1, u2, u3)
  if u1 == nil then
    return u2
  elseif o3(u1, u2) then
  elseif u3(u1, u2) then
    return u2
  else
    return u1
    end
  end
--~ 对
--~ 能
function s.历对取一(u1_0, u1)
  local k1, k2
  for u2, u2_0 in pairs(u1_0) do
    --~ 键
    --~ 值
    k1, k2 = s.历对取一的模(k1, k2, u2, u2_0, u1)
    end
  return k1, k2
  end
function s.历对取一的模(u1, u2, o3, o4, o5)
function s.历对取一的模(u1, u2, u3, o4, o5)
  if u1 == nil then
    return o3, o4
  elseif o5(u1, u2, o3, o4) then
    return o3, o4
    return u3, o4
  elseif o5(u1, u2, u3, o4) then
    return u3, o4
  else
    return u1, u2
    end
  end
function s.历对(u1_0, u1, u2)
  local k1
  local k1_0, k2_0
  --~ 对
  k1_0 = {}
  for o3, u2_0 in pairs(u1_0) do
  for u3, u2_0 in pairs(u1_0) do
    --~ 键
    --~ 值
    k1, k2_0 = u1(o3, u2_0, u2)
    k1, k2_0 = u1(u3, u2_0, u2)
    if k1 then
      k1_0[k1] = k2_0
    else
      end
    end
  return k1_0
  end
︙
95
96
97
98
99
100
101
102

103
104

105
106
107
108
109
110
111

95
96
97
98
99
100
101

102
103

104
105
106
107
108
109
110
111








-
+

-
+








    return u1_0
    end
  end
--~ 排中文
--~ 入参2
--~ 入参3
--~ 入参4
function s.全筛文(u1, u2, o3, o4)
function s.全筛文(u1, u2, u3, o4)
  print(4)
  if string.find(u1, u2, o3, o4) then
  if string.find(u1, u2, u3, o4) then
    return u1
    end
  end
--~ 文
--~ 前缀
function s.加前缀(u1, u2)
  return (u2 or "") .. u1
︙
166
167
168
169
170
171
172
173

174
175
176

177
178
179
180
181
182
183

166
167
168
169
170
171
172

173
174
175

176
177
178
179
180
181
182
183








-
+


-
+








  table.insert(u1_0, 1, "local k1_0 = {}")
  table.insert(u1_0, "return k1_0")
  return table.concat(u1_0, "\n")
  end
--~ 文
--~ 文件路
--~ 式
function s.写文件(u1, u2, o3)
function s.写文件(u1, u2, u3)
  local k1_3
  --~ 文件
  k1_3 = io.open(u2, o3 or "w")
  k1_3 = io.open(u2, u3 or "w")
  k1_3:write(u1)
  k1_3:flush()
  k1_3:close()
  end
--~ 文
function s.删左右空白(u1)
  u1 = string.gsub(u1, "^%s+", "")
︙
238
239
240
241
242
243
244
245

246
247
248
249
250
251
252
253
254
255


256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275


276
277
278
279
280

238
239
240
241
242
243
244

245
246
247
248
249
250
251
252
253


254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273


274
275
276
277
278
279
280








-
+








-
-
+
+


















-
-
+
+






function s.位右移(u1, u2)
  return bit.rshift(u1, u2)
  end
--~ 键
--~ 最大值
--~ 键
--~ 值
function s.筛对中最大值(u1, u2, o3, o4)
function s.筛对中最大值(u1, u2, u3, o4)
  if u2 < o4 then
    return true
    end
  end
--~ 最短键
--~ 值
--~ 键
--~ 值
function s.筛对中最短键(u1, u2, o3, o4)
  if #u1 > #o3 then
function s.筛对中最短键(u1, u2, u3, o4)
  if #u1 > #u3 then
    return true
    end
  end
--~ 最短文
--~ 值
function s.筛排中最短文(u1, u2)
  if #u1 > #u2 then
    return true
    end
  end
--~ 内数
function s.to_uint64(u1)
  local uint64_pointer = ffi.new("uint64_t[1]", u1)
  return uint64_pointer[0]
  end
--~ 键
--~ 值
--~ 要找的值
function s.全等筛对中值(u1, u2, o3)
  if u2 == o3 then
function s.全等筛对中值(u1, u2, u3)
  if u2 == u3 then
    return u1, u2
  else
    end
  end
return s

Modified 残局文料/lua_lib/程序语言_月_基础类型_功能_传入参数_转化.lua from [0d7855b992] to [391963f222]. 

1
2
3
4


5
6
7


8
9
10


11
12

1
2


3
4
5


6
7
8


9
10
11
12



-
-
+
+

-
-
+
+

-
-
+
+



local d_2 = {}
--~ 传参_参数数量
function d_2.二个参数(u1, u2, o3, o4)
  return u1(u2(o3), u2(o4))
function d_2.二个参数(u1, u2, u3, o4)
  return u1(u2(u3), u2(o4))
  end
function d_2.三个参数(u1, u2, o3, o4, o5)
  return u1(u2(o3), u2(o4), u2(o5))
function d_2.三个参数(u1, u2, u3, o4, o5)
  return u1(u2(u3), u2(o4), u2(o5))
  end
function d_2.四个参数(u1, u2, o3, o4, o5, o6)
  return u1(u2(o3), u2(o4), u2(o5), u2(o6))
function d_2.四个参数(u1, u2, u3, o4, o5, o6)
  return u1(u2(u3), u2(o4), u2(o5), u2(o6))
  end
return d_2

Modified 残局文料/lua_lib/程序语言_月_基础类型_字串_全筛.lua from [db797fbd1f] to [4855a6670e]. 

1
2
3
4



5
6
7
8
9
10
11

1



2
3
4
5
6
7
8
9
10
11


-
-
-
+
+
+








local d_2 = {}
function d_2.找字(u1, u2, o3, o4)
  --~ print(u1, u2, o3, o4)
  if u1:find(u2, o3, o4) then
function d_2.找字(u1, u2, u3, o4)
  --~ print(u1, u2, u3, o4)
  if u1:find(u2, u3, o4) then
    return u1
    end
  end
--~ function d_2.返全文_普态_前缀态(u1, u2)
  --~ return d_2.返全文(u1, u2, 1, true)
  --~ end
--~ function d_2.返选文(u1, u2)
︙

Modified 残局文料/lua_lib/程序语言_月_基础类型_字串_前缀与后缀.lua from [af970871a5] to [d556c849ae]. 

1
2
3
4
5
6
7
8
9
10
11

12
13
14

15
16
17
18


19
20
21
22
23
24
25


26
27
28
29
30
31
32

1
2
3
4
5
6
7
8
9
10

11
12
13

14
15
16


17
18
19
20
21
22
23


24
25
26
27
28
29
30
31
32











-
+


-
+


-
-
+
+





-
-
+
+








--~ local 历排库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_序排_逐一")
local d_4 = {}
--~ 加
function d_4.加前缀(u1, u2)
  return (u2 or "") .. u1
  end
function d_4.加后缀(u1, u2)
  return u1 .. (u2 or "")
  end
--~ 加_分_确保
--~ function d_4.加前缀_确保态(u1, u2, o3)
--~ function d_4.加前缀_确保态(u1, u2, u3)
--~ 筛文库.返全文(u1, )
--~ local k1
--~ k1 = d_4.删前缀(u1, u2, o3)
--~ k1 = d_4.删前缀(u1, u2, u3)
--~ return u2 .. u1
--~ end
--~ function d_4.加前缀与后缀(u1, u2, o3)
  --~ u1 = d_4.加后缀(u1, o3)
--~ function d_4.加前缀与后缀(u1, u2, u3)
  --~ u1 = d_4.加后缀(u1, u3)
  --~ 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)
--~ function d_4.逐一加前缀与后缀(u1, u2, u3)
  --~ return 历排库.处理后返回新排(u1, d_4.加前缀与后缀, u2, u3)
  --~ end
--~ function d_4.逐一在前后加上英文双引号(u1)
  --~ return 历排库.处理后返回新排(u1, d_4.在前后加英文双引号)
  --~ end
--~ 删
--~ function d_4.删前缀_基态(u1, u2)
  --~ if u1:startswith(u2) then
︙

Modified 残局文料/lua_lib/程序语言_月_基础类型_字串_逐一.lua from [3f7528ef3b] to [fdbe1c96b6]. 

1
2

3
4
5

6
7
8
9
10
11

1

2
3
4

5
6
7
8
9
10
11


-
+


-
+







local d_2 = {}
function d_2.处理后返回新排(u1, u2, o3, o4)
function d_2.处理后返回新排(u1, u2, u3, o4)
  local k1_9
  k1_9 = {}
  for o5 in u2(u1, o3, o4) do
  for o5 in u2(u1, u3, o4) do
    k1_9[#k1_9 + 1] = o5
    end
  return k1_9
  end
return d_2

Modified 残局文料/lua_lib/程序语言_月_基础类型_序排_逐一.lua from [3f021eaa15] to [bbc8107701]. 

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 d_2 = {}
function d_2.处理后返回新排(o1_11, u1, u2, o3, o4)
function d_2.处理后返回新排(o1_11, u1, u2, u3, o4)
  local k1_8
  local k1_11
  k1_11 = {}
  for o5 = 1, #o1_11 do
    k1_8 = u1(o1_11[o5], u2, o3, o4)
    k1_8 = u1(o1_11[o5], u2, u3, o4)
    if k1_8 then
      k1_11[#k1_11 + 1] = k1_8
      end
    end
  return k1_11
  end
--~ function d_2.处理(o1_11, u1, u2, o3)
--~ function d_2.处理(o1_11, u1, u2, u3)
  --~ for o4 = 1, #o1_11 do
    --~ u1(o1_11[o4], u2, o3)
    --~ u1(o1_11[o4], u2, u3)
    --~ end
  --~ end
return d_2

Modified 残局文料/lua_lib/程语_月_基类_字串_始缀与终缀.lua from [45dcc6ad2f] to [24d514f667]. 

1
2
3
4
5
6
7
8
9
10

11
12
13

14
15
16
17
18
19
20

1
2
3
4
5
6
7
8
9

10
11
12

13
14
15
16
17
18
19
20










-
+


-
+








local d_3 = {}
--~ 加
function d_3.加始缀_基态(u1, u2)
  return u2 .. u1
  end
function d_3.加终缀_基态(u1, u2)
  return u1 .. u2
  end
--~ 加_分_确保
--~ function d_3.加前缀_确保态(u1, u2, o3)
--~ function d_3.加前缀_确保态(u1, u2, u3)
--~ 筛文库.返全文(u1, )
--~ local k1
--~ k1 = d_3.删前缀(u1, u2, o3)
--~ k1 = d_3.删前缀(u1, u2, u3)
--~ return u2 .. u1
--~ end
--~ 减
function d_3.减始缀_基态(u1, u2)
  if u1:startswith(u2) then
    return u1:sub(#u2 + 1)
    end
︙

Modified 残局文料/lua_lib/程语_月_基类_文_始缀与终缀.lua from [f49093916b] to [7b01b4f700].

︙
9
10
11
12
13
14
15
16

17
18
19

20
21
22
23


24
25
26


27
28
29
30
31
32
33

9
10
11
12
13
14
15

16
17
18

19
20
21


22
23
24


25
26
27
28
29
30
31
32
33








-
+


-
+


-
-
+
+

-
-
+
+








function d_3.加后缀_基态(u1, u2)
  return u1 .. u2
  end
function d_3.加终缀_基态(u1, u2)
  return u1 .. u2
  end
--~ 加_分_确保
--~ function d_3.加前缀_确保态(u1, u2, o3)
--~ function d_3.加前缀_确保态(u1, u2, u3)
--~ 筛文库.返全文(u1, )
--~ local k1
--~ k1 = d_3.删前缀(u1, u2, o3)
--~ k1 = d_3.删前缀(u1, u2, u3)
--~ return u2 .. u1
--~ end
function d_3.加前缀与后缀_基态(u1, u2, o3)
  return u2 .. u1 .. (o3 or "")
function d_3.加前缀与后缀_基态(u1, u2, u3)
  return u2 .. u1 .. (u3 or "")
  end
function d_3.加始缀与终缀_基态(u1, u2, o3)
  return u2 .. u1 .. (o3 or "")
function d_3.加始缀与终缀_基态(u1, u2, u3)
  return u2 .. u1 .. (u3 or "")
  end
--~ 删
function d_3.删前缀_基态(u1, u2)
  if u1:startswith(u2) then
    return u1:sub(#u2 + 1)
    end
  end
︙

Modified 残局文料/lua_lib/算机_基统_窗群_件系_小件_写.lua from [31ca1b5b6d] to [de29ecf9ae]. 

1
2

3
4

5
6
7
8
9

1

2
3

4
5
6
7
8
9


-
+

-
+






local d_2 = {}
function d_2.写件(u1, u2, o3)
function d_2.写件(u1, u2, u3)
  local k1_3
  k1_3 = io.open(u2, o3 or "w")
  k1_3 = io.open(u2, u3 or "w")
  k1_3:write(u1)
  k1_3:flush()
  k1_3:close()
  end
return d_2

Modified 残局文料/lua_lib/算机_基统_窗群_文件系_小文件_写.lua from [2366b946c4] to [db241ff4a7]. 

1
2
3
4
5

6
7
8

9
10
11
12
13

1
2
3
4

5
6
7

8
9
10
11
12
13





-
+


-
+






local s = {}
--~ 文
--~ 文件路
--~ 式
function s.写文件(u1, u2, o3)
function s.写文件(u1, u2, u3)
  local k1_3
  --~ 文件
  k1_3 = io.open(u2, o3 or "w")
  k1_3 = io.open(u2, u3 or "w")
  k1_3:write(u1)
  k1_3:flush()
  k1_3:close()
  end
return s

Modified 残局文料/lua_lib/算机_程语_月_基类_数.lua from [d33ebbf85d] to [c3e7e4d8c3]. 

1
2
3
4
5
6
7
8
9

10
11

12
13

14
15
16
17
18
19
20

1
2
3
4
5
6
7
8

9
10

11
12

13
14
15
16
17
18
19
20









-
+

-
+

-
+








local 字集库 = require("u8_to_a")
local 基算库 = require(字集库.u8_to_a("算机_程语_月_基类_数_基算"))
local math = math
local string = string
local s = {}
-- 指数
--~ 左加数
--~ 右加数
function s.指数(u1, u2, o3)
function s.指数(u1, u2, u3)
  local k1
  if o3 then
  if u3 then
    --~ 指数次
    k1 = 基算库.除法(u2, o3)
    k1 = 基算库.除法(u2, u3)
    return u1 ^ k1
  else
    return u1 ^ u2
    end
  end
-- 指数次
--~ 数
︙

Modified 残局文料/lua_lib/算机_程语_月_基类_文.lua from [01390a71a4] to [14fdf6b4ca]. 

1
2
3
4


5
6
7
8
9
10

11
12

13
14
15
16

1
2


3
4
5
6
7
8
9

10
11

12
13
14
15
16



-
-
+
+





-
+

-
+





local string = string
local s = {}
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 "")
function s.连(u1, u2, u3, o4, o5, o6, o7, o8, o9)
  return u1 .. (u2 or "") .. (u3 or "") .. (o4 or "") .. (o5 or "") .. (o6 or "") .. (o7 or "") .. (o8 or "") .. (o9 or "")
  end
--~ 排中文
--~ 入参2
--~ 入参3
--~ 入参4
function s.全筛文(u1, u2, o3, o4)
function s.全筛文(u1, u2, u3, o4)
  --~ print(4)
  if string.find(u1, u2, o3, o4) then
  if string.find(u1, u2, u3, o4) then
    return u1
    end
  end
return s

Modified 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_文_取全.lua from [ce71733049] to [c415239de3]. 

1
2
3
4
5
6
7

8
9
10
11

12
13
14
15
16

1
2
3
4
5
6

7
8
9
10

11
12
13
14
15
16







-
+



-
+






local s = {}
-- 启
--~ 文
--~ 历文的能
--~ 入参2
--~ 入参3
function s.历文(u1, u2, o3, o4)
function s.历文(u1, u2, u3, o4)
  local k1_0
  --~ 集排
  k1_0 = {}
  for o5 in u2(u1, o3, o4) do
  for o5 in u2(u1, u3, o4) do
    k1_0[#k1_0 + 1] = o5
    end
  return k1_0
  end
return s

Modified 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_对_取一.lua from [09cd67b8ce] to [d5ac2842e1]. 

1
2
3
4
5
6
7

8
9
10

11
12
13
14
15
16
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
50
51
52
53
54
55

1
2
3
4
5
6

7
8
9

10
11
12
13
14
15
16
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
50
51
52
53
54
55







-
+


-
+









-
+

-
-
-
+
+
+









-
-
+
+












-
+








local s = {}
-- 启
--~ 对
--~ 能
function s.历对(u1_0, u1)
  local k1, k2
  for u2, o3 in pairs(u1_0) do
  for u2, u3 in pairs(u1_0) do
    --~ 键
    --~ 值
    k1, k2 = s.模(k1, k2, u2, o3, u1)
    k1, k2 = s.模(k1, k2, u2, u3, u1)
    end
  return k1, k2
  end
-- 模
--~ 键
--~ 值
--~ 对中键
--~ 对中值
--~ 能
function s.模(u1, u2, o3, o4, o5)
function s.模(u1, u2, u3, o4, o5)
  if u1 == nil then
    return o3, o4
  elseif o5(u1, u2, o3, o4) then
    return o3, o4
    return u3, o4
  elseif o5(u1, u2, u3, o4) then
    return u3, o4
  else
    return u1, u2
    end
  end
-- 最短
--~ 最短键
--~ 值
--~ 键
--~ 值
function s._筛最短键(u1, u2, o3, o4)
  if #u1 > #o3 then
function s._筛最短键(u1, u2, u3, o4)
  if #u1 > #u3 then
    return true
    end
  end
--~ 对
function s.筛最短键(u1_0)
  return s.历对(u1_0, s._筛最短键)
  end
-- 最大
--~ 键
--~ 最大值
--~ 键
--~ 值
function s._筛最大值(u1, u2, o3, o4)
function s._筛最大值(u1, u2, u3, o4)
  if u2 < o4 then
    return true
    end
  end
--~ 对
function s.筛最大值(u1_0)
  return s.历对(u1_0, s._筛最大值)
︙

Modified 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_对_取全.lua from [d07b5f26dd] to [1499e6e6da]. 

1
2
3
4
5
6
7
8
9
10
11

12
13
14

15
16
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

1
2
3
4
5
6
7
8
9
10

11
12
13

14
15
16
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











-
+


-
+











-
+




-
+






-
-
+
+






local s = {}
-- 全与局
--~ 对
--~ 能
--~ 入参3
function s.历对(u1_0, u1, u2)
  local k1, k2
  local k1_0
  --~ 对
  k1_0 = {}
  for o3, o4 in pairs(u1_0) do
  for u3, o4 in pairs(u1_0) do
    --~ 键
    --~ 值
    k1, k2 = u1(o3, o4, u2)
    k1, k2 = u1(u3, o4, u2)
    if k1 then
      k1_0[k1] = k2
    else
      end
    end
  return k1_0
  end
--~ 对
--~ 能
--~ 入参2
--~ 入参3
function s.历值(u1_0, u1, u2, o3)
function s.历值(u1_0, u1, u2, u3)
  local k1_0
  --~ 对
  k1_0 = {}
  for o4, o5 in pairs(u1_0) do
    k1_0[o4] = u1(o5, u2, o3)
    k1_0[o4] = u1(o5, u2, u3)
    end
  return k1_0
  end
--~ 键
--~ 值
--~ 要找的值
function s.全等筛值(u1, u2, o3)
  if u2 == o3 then
function s.全等筛值(u1, u2, u3)
  if u2 == u3 then
    return u1, u2
  else
    end
  end
return s

Modified 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取一.lua from [7a61512f6f] to [e537e25680].

︙
9
10
11
12
13
14
15
16

17
18
19

20
21
22
23
24
25
26

9
10
11
12
13
14
15

16
17
18

19
20
21
22
23
24
25
26








-
+


-
+








    k1 = s.模(k1, u1_0[u2], u1)
    end
  return k1
  end
-- 模
--~ 值
--~ 排中值
function s.模(u1, u2, o3)
function s.模(u1, u2, u3)
  if u1 == nil then
    return u2
  elseif o3(u1, u2) then
  elseif u3(u1, u2) then
    return u2
  else
    return u1
    end
  end
-- 最短
--~ 最短文
︙

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

1
2
3
4
5
6
7
8
9

10
11
12
13
14

15
16
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

1
2
3
4
5
6
7
8

9
10
11
12
13

14
15
16
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









-
+




-
+









-
+




-
+










-
+




-
+





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

Modified 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取联.lua from [99a691d956] to [3c47f874b6]. 

1
2
3
4
5
6
7

8
9
10
11
12

13
14
15
16

1
2
3
4
5
6

7
8
9
10
11

12
13
14
15
16







-
+




-
+





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

Modified 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_相加.lua from [9ba8a4a979] to [7672cfcd27]. 

1
2
3
4
5
6
7
8
9

10
11
12
13
14

15
16
17
18

1
2
3
4
5
6
7
8

9
10
11
12
13

14
15
16
17
18









-
+




-
+





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

Modified 残局文料/lua_lib/算机_程语_月_基类_能_传能_基类.lua from [9312192c52] to [7aa399f071]. 

1
2
3
4
5
6

7
8

9
10
11
12
13

1
2
3
4
5

6
7

8
9
10
11
12
13






-
+

-
+






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

Modified 残局文料/lua_lib/计算机_系统_窗口群_命令行_无窗口.lua from [1fb577a4f7] to [1a6326b93a]. 

1
2
3
4
5
6
7
8
9
10
11
12
13

14
15

16
17
18
19
20
21


22
23

1
2
3
4
5
6
7
8
9
10
11
12

13
14

15
16
17
18
19


20
21
22
23













-
+

-
+




-
-
+
+



local d_2 = {}
--~ local 件径库 = 常用库.导入库_通用大字集态_八位态("计算机_系统_窗口群_文件系统_路径")
--~ local 历排库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_序排_逐一")
--~ local 前后缀库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_字串_前缀与后缀")
function d_2.执行命令(u1)
  print(u1)
  os.execute(u1)
  end
--~ function d_2.逐一执行命令(u1)
  --~ 历排库.处理(u1, d_2.执行命令)
  --~ end
--~ 件夹
--~ function d_2.入文件夹路径而用文件路径执行命令_全筛态_加前缀与后缀态_不虑子文件夹内态(u1, u2, o3, o4, o5, o6)
--~ function d_2.入文件夹路径而用文件路径执行命令_全筛态_加前缀与后缀态_不虑子文件夹内态(u1, u2, u3, o4, o5, o6)
  --~ local k1_9
  --~ k1_9 = 件径库.入文件夹路径而返文件路径排_全筛态(u1, u2, o3, o4)
  --~ k1_9 = 件径库.入文件夹路径而返文件路径排_全筛态(u1, u2, u3, o4)
  --~ k1_9 = 前后缀库.逐一在前后加上英文双引号(k1_9)
  --~ k1_9 = 前后缀库.逐一加前缀与后缀(k1_9, o5, o6)
  --~ d_2.逐一执行命令(k1_9)
  --~ end
--~ function d_2.入文件夹路径而用文件路径执行命令_全筛后缀态_加前缀态_不虑子文件夹内态(u1, u2, o3)
  --~ return d_2.入文件夹路径而用文件路径执行命令_全筛态_加前缀与后缀态_不虑子文件夹内态(u1, u2, -#u2, true, o3)
--~ function d_2.入文件夹路径而用文件路径执行命令_全筛后缀态_加前缀态_不虑子文件夹内态(u1, u2, u3)
  --~ return d_2.入文件夹路径而用文件路径执行命令_全筛态_加前缀与后缀态_不虑子文件夹内态(u1, u2, -#u2, true, u3)
  --~ end
return d_2

Modified 残局文料/lua_lib/计算机_系统_窗口群_文件系统_路径.lua from [1581530db1] to [fc9fc45a11]. 

1
2
3
4
5
6
7

8
9
10

11
12
13
14
15
16
17

1
2
3
4
5
6

7
8
9

10
11
12
13
14
15
16
17







-
+


-
+








local d_2 = {}
local 历文库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_字串_逐一")
local 历排库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_序排_逐一")
local 前后缀库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_字串_前缀与后缀")
local 全筛文库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_字串_全筛")
local 简单文件系统库 = require("lfs")
function d_2.入文件夹路径而返文件路径排_全筛态(u1, u2, o3, o4)
function d_2.入文件夹路径而返文件路径排_全筛态(u1, u2, u3, o4)
  local k1_9
  k1_9 = d_2.入文件夹路径而返文件路径排(u1)
  return 历排库.处理后返回新排(k1_9, 全筛文库.找字, u2, o3, o4)
  return 历排库.处理后返回新排(k1_9, 全筛文库.找字, u2, u3, o4)
  end
function d_2.入文件夹路径而返文件路径排(u1)
  local k1_9
  k1_9 = d_2.入文件夹路径而返文件名排(u1)
  return 前后缀库.逐一加前缀(k1_9, u1 .. "/")
  end
function d_2.入文件夹路径而返文件名排(u1)
︙