游戏王残局简化版

Check-in [a4c0b3bd26]
Login

Check-in [a4c0b3bd26]

Overview
Comment:
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: a4c0b3bd262f4b22e2ca04a3a688bc3ec9649e619a28197dde234924a477ab92
User & Date: 顽雨沉风 on 2024-02-13 05:09:26
Other Links: manifest | tags
Context
2024-02-13
05:10
check-in: 4c19907139 user: 顽雨沉风 tags: trunk
05:09
check-in: a4c0b3bd26 user: 顽雨沉风 tags: trunk
05:05
check-in: dfc13a8abd user: 顽雨沉风 tags: trunk
Changes

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

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




|




|






|


|







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)
  --~ local k1_8
  --~ local k1_11
  --~ k1_11 = {}
  --~ for o5 = 1, #o1_11 do
    --~ 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.历文(u1, u2, o3, o4)
  --~ local k1_9
  --~ k1_9 = {}
  --~ for o5 in u2(u1, o3, o4) do
    --~ k1_9[#k1_9 + 1] = o5
    --~ end
  --~ return k1_9
  --~ end
--~ local 简件系库 = require("lfs")
--~ require(字集码互转库.u8_to_a("程语_月_基类_字串_内置库_加多"))
--~ 程语_月_标准库_仿照_加多_多编码_大字集_通用
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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
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
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
  end
--~ do
--~ local k1 = os.execute
--~ function _G.os.execute(command)
--~ return k1(字集码互转库.u2a(command))
--~ end
--~ end
function d_5.读件(o1, o2)
  local k1
  local k1_3
  k1_3 = io.open(o1, o2 or "r")
  k1 = k1_3:read("a")
  k1_3:flush()
  k1_3:close()
  return k1
  end
function d_5.读件排(o1_9, o1)
  local k1_9
  k1_9 = {}
  for o2 = 1, #o1_9 do
    k1_9[#k1_9 + 1] = d_5.读件(o1_9[o2], o1)
    end
  return k1_9
  end
function d_5.写件(o1, o2, o3)
  local k1_3
  k1_3 = io.open(o1, o3 or "w")
  k1_3:write(o2)
  k1_3:flush()
  k1_3:close()
  end
function d_5.写件_一维(o1, o1_9, o2, 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)
--~ 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(" ", "")
  end
function d_5.筛排(o1_9, o1, o2, o3)
  local k1_8
  local k1_9
  k1_9 = {}
  for o4 = 1, #o1_9 do
    k1_8 = o1(o1_9[o4], o2, o3)
    if k1_8 then
      k1_9[#k1_9 + 1] = k1_8
      end
    end
  return k1_9
  end
--~ function d_5.筛文(o1, o2, o3)
--~ local k1_9
--~ k1_9 = {}
--~ for o4 in o2(o1, 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
--~ end
--~ end
--~ function d_5.筛件径(o1, o2)
  --~ 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)
  --~ 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)
  local k1_5
  local k1_11
  k1_11 = {}
  for o2 = 1, #o1_12, o1 + 1 do
    k1_5 = {}
    for o3 = 1, o1 do
      k1_5[o3] = o1_12[o2 + o3]
      end
    k1_11[o1_12[o2]] = k1_5
    end
  return k1_11
  end
--~ function d_5.加前缀(o1, o2)
--~ return o2 .. o1
--~ end
--~ function d_5.加后缀(o1, o2)
--~ return o1 .. o2
--~ 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.办令(o1)
  --~ print(o1)
  --~ os.execute(o1)
  --~ end
--~ function d_5.在前后加英文双引号(o1)
--~ return [["]] .. o1 .. [["]]
--~ end
--~ function d_5.筛单行等式_左右值态(o1)
--~ local k1_11
--~ k1_11 = {}
--~ for o2 in k1_11:gmatch("[^\n= \t]+") do
--~ table.insert(k1_11, o2)
--~ end
--~ return o2
--~ end
return d_5








|


|





|


|
|



|

|
|



|




|

|
|

|
|

|
|
|








|
|
|


|
|
|


|
|

|
|
|
|

|
|

|




|






|


|




|
|
|


|

|
|
|


|
|

|
|

|
|

|



|

|
|

|



|
|

|
|












|
|
|

|
|

|


|
|

|



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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
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
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
  end
--~ do
--~ local k1 = os.execute
--~ function _G.os.execute(command)
--~ return k1(字集码互转库.u2a(command))
--~ end
--~ end
function d_5.读件(u1, u2)
  local k1
  local k1_3
  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, 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, o3)
  local k1_3
  k1_3 = io.open(u1, o3 or "w")
  k1_3:write(u2)
  k1_3:flush()
  k1_3:close()
  end
function d_5.写件_一维(u1, o1_9, u2, o3)
  local k1 = table.concat(o1_9, "\n")
  if o3 then
    k1 = o3(k1)
    end
  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.删前缀(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, o3)
  local k1_8
  local k1_9
  k1_9 = {}
  for o4 = 1, #o1_9 do
    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.筛文(u1, u2, o3)
--~ local k1_9
--~ k1_9 = {}
--~ for o4 in u2(u1, o3) 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
--~ 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 o3 = 1, u1 do
      k1_5[o3] = o1_12[u2 + o3]
      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

Modified 残局文料/lua_lib/删注/月程语.lua from [ff66905768] to [a65ca38287].

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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)
--~ end
return d_3

|
|

|
|

|
|

|
|
|


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
local d_3 = {}
--~ 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

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

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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
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
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
local s = {}
local 简文件库 = require("lfs")
local ffi = require("ffi")
--~ 排
--~ 办排中值的能
--~ 入参2
--~ 入参3
--~ 入参4
function s.历排(u1_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, o3, o4)
    end
  return k1_0
  end
--~ 文
--~ 历文的能
--~ 入参2
--~ 入参3
function s.历文(o1, o2, o3, o4)
  local k1_0
  --~ 集排
  k1_0 = {}
  for o5 in o2(o1, o3, o4) do
    k1_0[#k1_0 + 1] = o5
    end
  return k1_0
  end
--~ 排
--~ 能
function s.历排取一(u1_0, o1)
  local k1
  for o2 = 1, #u1_0 do
    --~ 值
    k1 = s.历排取一的模(k1, u1_0[o2], o1)
    end
  return k1
  end
--~ 值
--~ 排中值
function s.历排取一的模(o1, o2, o3)
  if o1 == nil then
    return o2
  elseif o3(o1, o2) then
    return o2
  else
    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
--~ 排中值
--~ 值类
--~ 办值的能
function s.操类(u1_0, o1, o2)
  if type(u1_0) == o1 then
    return o2(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
    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])
    end
  end
--~ 文件路
--~ 式
function s.读文件(o1, o2)
  local k1
  local k1_3
  --~ 文件
  k1_3 = io.open(o1, o2 or "r")
  --~ 文
  k1 = k1_3:read("a")
  k1_3:flush()
  k1_3:close()
  return k1
  end
--~ 常量排
function s.加对限(u1_0)
  table.insert(u1_0, 1, "local k1_0 = {}")
  table.insert(u1_0, "return k1_0")
  return table.concat(u1_0, "\n")
  end
--~ 文
--~ 文件路
--~ 式
function s.写文件(o1, o2, o3)
  local k1_3
  --~ 文件
  k1_3 = io.open(o2, o3 or "w")
  k1_3:write(o1)
  k1_3:flush()
  k1_3:close()
  end
--~ 文
function s.删左右空白(o1)
  o1 = string.gsub(o1, "^%s+", "")
  return string.gsub(o1, "%s+$", "")
  end
--~ 对
--~ 对
function s.连两对(u1_0, u2_0)
  for u3_0, u4_0 in pairs(u2_0) do
    u1_0[u3_0] = u4_0
    end








|




|







|



|






|

|

|





|
|
|
|
|

|




|

|


|



|
|

|


|


|







|










|
|
|








|

|
|




|
|



|
|


|
|
|



|
|
|




|
|
|








|
|
|
|
|
|




|



|















|


|
|




|
|
|







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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
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
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
local s = {}
local 简文件库 = require("lfs")
local ffi = require("ffi")
--~ 排
--~ 办排中值的能
--~ 入参2
--~ 入参3
--~ 入参4
function s.历排(u1_0, u1, u2, o3, o4)
  local k1_0
  --~ 集排
  k1_0 = {}
  for o5 = 1, #u1_0 do
    k1_0[#k1_0 + 1] = u1(u1_0[o5], u2, o3, o4)
    end
  return k1_0
  end
--~ 文
--~ 历文的能
--~ 入参2
--~ 入参3
function s.历文(u1, u2, o3, o4)
  local k1_0
  --~ 集排
  k1_0 = {}
  for o5 in u2(u1, o3, 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)
  if u1 == nil then
    return u2
  elseif o3(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)
  if u1 == nil then
    return o3, o4
  elseif o5(u1, u2, o3, o4) then
    return o3, 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
    --~ 键
    --~ 值
    k1, k2_0 = u1(o3, u2_0, u2)
    if k1 then
      k1_0[k1] = k2_0
    else
      end
    end
  return k1_0
  end
--~ 排中值
--~ 值类
--~ 办值的能
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.全筛文(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 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.读文件(u1, u2)
  local k1
  local k1_3
  --~ 文件
  k1_3 = io.open(u1, u2 or "r")
  --~ 文
  k1 = k1_3:read("a")
  k1_3:flush()
  k1_3:close()
  return k1
  end
--~ 常量排
function s.加对限(u1_0)
  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)
  local k1_3
  --~ 文件
  k1_3 = io.open(u2, o3 or "w")
  k1_3:write(u1)
  k1_3:flush()
  k1_3:close()
  end
--~ 文
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
    u1_0[u3_0] = u4_0
    end
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
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.递增()
    k1 = k1 + 1
    return k1
    end
  end
--~ 左加数
--~ 右加数
function s.加法(o1, o2)
  return o1 + o2
  end
--~ 左减数
--~ 右减数
function s.减法(o1, o2)
  return o1 - o2
  end
--~ 左乘数
--~ 右乘数
function s.乘法(o1, o2)
  return o1 * o2
  end
--~ 左除数
--~ 右除数
function s.除法(o1, o2)
  return o1 / o2
  end
--~ 左数
--~ 右数
function s.位和(o1, o2)
  return bit.band(o1, o2)
  end
--~ 数
--~ 右移几位
function s.位右移(o1, o2)
  return bit.rshift(o1, o2)
  end
--~ 键
--~ 最大值
--~ 键
--~ 值
function s.筛对中最大值(o1, o2, o3, o4)
  if o2 < o4 then
    return true
    end
  end
--~ 最短键
--~ 值
--~ 键
--~ 值
function s.筛对中最短键(o1, o2, o3, o4)
  if #o1 > #o3 then
    return true
    end
  end
--~ 最短文
--~ 值
function s.筛排中最短文(o1, o2)
  if #o1 > #o2 then
    return true
    end
  end
--~ 内数
function s.to_uint64(o1)
  local uint64_pointer = ffi.new("uint64_t[1]", o1)
  return uint64_pointer[0]
  end
--~ 键
--~ 值
--~ 要找的值
function s.全等筛对中值(o1, o2, o3)
  if o2 == o3 then
    return o1, o2
  else
    end
  end
return s







|
|



|
|



|
|



|
|



|
|



|
|





|
|







|
|





|
|




|
|





|
|
|




206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
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.递增()
    k1 = k1 + 1
    return k1
    end
  end
--~ 左加数
--~ 右加数
function s.加法(u1, u2)
  return u1 + u2
  end
--~ 左减数
--~ 右减数
function s.减法(u1, u2)
  return u1 - u2
  end
--~ 左乘数
--~ 右乘数
function s.乘法(u1, u2)
  return u1 * u2
  end
--~ 左除数
--~ 右除数
function s.除法(u1, u2)
  return u1 / u2
  end
--~ 左数
--~ 右数
function s.位和(u1, u2)
  return bit.band(u1, u2)
  end
--~ 数
--~ 右移几位
function s.位右移(u1, u2)
  return bit.rshift(u1, u2)
  end
--~ 键
--~ 最大值
--~ 键
--~ 值
function s.筛对中最大值(u1, u2, o3, o4)
  if u2 < o4 then
    return true
    end
  end
--~ 最短键
--~ 值
--~ 键
--~ 值
function s.筛对中最短键(u1, u2, o3, o4)
  if #u1 > #o3 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
    return u1, u2
  else
    end
  end
return s

Modified 残局文料/lua_lib/游戏王_则拟器_原版_卡档.lua from [a6b48eeccb] to [7cb2c40720].

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 字集库 = require("u8_to_a")
local 档库 = require("lsqlite3")
local 文库 = require(字集库.u8_to_a("算机_程语_月_基类_文"))
local 对库 = require(字集库.u8_to_a("算机_程语_月_基类_表_对"))
local s = {}
local 卡档
--~ 卡编
function s.取卡对(o1)
  local k1_0, k2_0
  --~ 卡文对
  k1_0 = s.取卡文(o1)
  --~ 卡数据对
  k2_0 = s.取卡数据(o1)
  return 对库.连两对(k1_0, k2_0)
  end
--~ 卡编
function s._取卡对(o1, o2)
  for o1_4 in 卡档:nrows(文库.连(o2, o1)) do
    return o1_4
    end
  end
do
  local k1
  --~ 模
  k1 = "select * from texts where id = "
  --~ 卡编
  function s.取卡文(o1)
    return s._取卡对(o1, k1)
    end
  end
do
  local k1
  --~ 模
  k1 = "select * from datas where id = "
  --~ 卡编
  function s.取卡数据(o1)
    return s._取卡对(o1, k1)
    end
  end
--~ 卡档路
function s.启卡档(o1)
  卡档 = 档库.open(o1)
  end
return s







|


|

|



|
|








|
|







|
|



|
|


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 字集库 = require("u8_to_a")
local 档库 = require("lsqlite3")
local 文库 = require(字集库.u8_to_a("算机_程语_月_基类_文"))
local 对库 = require(字集库.u8_to_a("算机_程语_月_基类_表_对"))
local s = {}
local 卡档
--~ 卡编
function s.取卡对(u1)
  local k1_0, k2_0
  --~ 卡文对
  k1_0 = s.取卡文(u1)
  --~ 卡数据对
  k2_0 = s.取卡数据(u1)
  return 对库.连两对(k1_0, k2_0)
  end
--~ 卡编
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.取卡文(u1)
    return s._取卡对(u1, k1)
    end
  end
do
  local k1
  --~ 模
  k1 = "select * from datas where id = "
  --~ 卡编
  function s.取卡数据(u1)
    return s._取卡对(u1, k1)
    end
  end
--~ 卡档路
function s.启卡档(u1)
  卡档 = 档库.open(u1)
  end
return s

Modified 残局文料/lua_lib/游戏王_则拟器_原版_残局_卡_全筛.lua from [de219570ba] to [d2859332c2].

15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
  28363749 --火蛋白石头龙头领
  , 19474136 --曼陀林草龙
  , 17390179 --闪光之骑士
  , 83980492 --铜锣龙
  }
--~ 卡对
function s.筛有效果卡(u1_0)
  for o1 = 1, #有效果卡的类排 do
    if 位算库.位和(有效果卡的类排[o1], u1_0.type) == 0 then
    else
      return u1_0
      end
    end
  if 位算库.位和(TYPE_PENDULUM, u1_0.type) == 0 then
  else
    if 无效果灵摆怪兽排[u1_0.id] then







|
|







15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
  28363749 --火蛋白石头龙头领
  , 19474136 --曼陀林草龙
  , 17390179 --闪光之骑士
  , 83980492 --铜锣龙
  }
--~ 卡对
function s.筛有效果卡(u1_0)
  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
  else
    if 无效果灵摆怪兽排[u1_0.id] then

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

1
2
3
4
5
6
7
8
9
10
11
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))
  end
return d_2


|
|

|
|

|
|


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

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

1
2
3
4
5
6
7
8
9
10
11
12
13
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
    end
  end
--~ function d_2.返全文_普态_前缀态(o1, o2)
  --~ return d_2.返全文(o1, o2, 1, true)
  --~ end
--~ function d_2.返选文(o1, o2)
  --~ return o1:match(o2)
  --~ end
return d_2

|
|
|
|


|
|

|
|


1
2
3
4
5
6
7
8
9
10
11
12
13
14
local d_2 = {}
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.返全文_普态_前缀态(u1, u2)
  --~ return d_2.返全文(u1, u2, 1, true)
  --~ end
--~ function d_2.返选文(u1, u2)
  --~ return u1:match(u2)
  --~ end
return d_2

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

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
--~ local 历排库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_序排_逐一")
local d_4 = {}
--~ 加
function d_4.加前缀(o1, o2)
  return (o2 or "") .. o1
  end
function d_4.加后缀(o1, o2)
  return o1 .. (o2 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.在前后加英文双引号)
  --~ end
--~ 删
--~ function d_4.删前缀_基态(o1, o2)
  --~ if o1:startswith(o2) then
    --~ return o1:sub(#o2 + 1)
    --~ end
  --~ end
--~ function d_4.删后缀_基态(o1, o2)
  --~ if o1:endswith(o2) then
    --~ return o1:sub(1, #o1 - #o2)
    --~ end
  --~ end
--~ 场景_令行窗_件径
--~ function d_4.在前后加英文双引号(o1)
  --~ return d_4.加前缀与后缀(o1, [["]], [["]])
  --~ end
return d_4



|
|

|
|


|
|

|
|

|
|
|

|
|

|
|

|
|


|
|
|


|
|
|



|
|


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
--~ 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)
--~ 筛文库.返全文(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.删前缀_基态(u1, u2)
  --~ if u1:startswith(u2) then
    --~ return u1:sub(#u2 + 1)
    --~ end
  --~ end
--~ function d_4.删后缀_基态(u1, u2)
  --~ if u1:endswith(u2) then
    --~ return u1:sub(1, #u1 - #u2)
    --~ end
  --~ end
--~ 场景_令行窗_件径
--~ function d_4.在前后加英文双引号(u1)
  --~ return d_4.加前缀与后缀(u1, [["]], [["]])
  --~ end
return d_4

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

1
2
3
4
5
6
7
8
9
10
11
local d_2 = {}
function d_2.处理后返回新排(o1, o2, o3, o4)
  local k1_9
  k1_9 = {}
  for o5 in o2(o1, o3, o4) do
    k1_9[#k1_9 + 1] = o5
    end
  return k1_9
  end
return d_2


|


|






1
2
3
4
5
6
7
8
9
10
11
local d_2 = {}
function d_2.处理后返回新排(u1, u2, o3, o4)
  local k1_9
  k1_9 = {}
  for o5 in u2(u1, o3, o4) do
    k1_9[#k1_9 + 1] = o5
    end
  return k1_9
  end
return d_2

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

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, o1, o2, 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)
    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)
  --~ for o4 = 1, #o1_11 do
    --~ o1(o1_11[o4], o2, o3)
    --~ end
  --~ end
return d_2

|




|






|

|



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)
  local k1_8
  local k1_11
  k1_11 = {}
  for o5 = 1, #o1_11 do
    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, u1, u2, o3)
  --~ for o4 = 1, #o1_11 do
    --~ u1(o1_11[o4], u2, o3)
    --~ end
  --~ end
return d_2

Modified 残局文料/lua_lib/程语_月_删注_不虑字串.lua from [9a2416f904] to [f1e2245752].

1
2
3
4
5
local d_2 = {}
function d_2.单行注(o1)
  return o1:gsub("%-%-[^\n]*", "")
  end
return d_2

|
|


1
2
3
4
5
local d_2 = {}
function d_2.单行注(u1)
  return u1:gsub("%-%-[^\n]*", "")
  end
return d_2

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

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
local d_3 = {}
--~ 加
function d_3.加始缀_基态(o1, o2)
  return o2 .. o1
  end
function d_3.加终缀_基态(o1, o2)
  return o1 .. o2
  end
--~ 加_分_确保
--~ function d_3.加前缀_确保态(o1, o2, o3)
--~ 筛文库.返全文(o1, )
--~ local k1
--~ k1 = d_3.删前缀(o1, o2, o3)
--~ return o2 .. o1
--~ 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
return d_3


|
|

|
|


|
|

|
|


|
|
|


|
|
|



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
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)
--~ 筛文库.返全文(u1, )
--~ local k1
--~ k1 = d_3.删前缀(u1, u2, o3)
--~ return u2 .. u1
--~ 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
return d_3

Modified 残局文料/lua_lib/程语_月_基类_文_删字.lua from [9662ea8202] to [0696740dbc].

1
2
3
4
5
local d_2 = {}
function d_2.空格与制表符(o1)
  return o1:gsub("[ \t]", "")
  end
return d_2

|
|


1
2
3
4
5
local d_2 = {}
function d_2.空格与制表符(u1)
  return u1:gsub("[ \t]", "")
  end
return d_2

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

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
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
  end
--~ 加_分_确保
--~ function d_3.加前缀_确保态(o1, o2, o3)
--~ 筛文库.返全文(o1, )
--~ local k1
--~ k1 = d_3.删前缀(o1, o2, o3)
--~ return o2 .. o1
--~ end
function d_3.加前缀与后缀_基态(o1, o2, o3)
  return o2 .. o1 .. (o3 or "")
  end
function d_3.加始缀与终缀_基态(o1, o2, o3)
  return o2 .. o1 .. (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)
    end
  end
--~ 场景_令行窗_件径
function d_3.在前后加英文双引号_基态(o1)
  return [["]] .. o1 .. [["]]
  end
function d_3.在始终加英文双引号_基态(o1)
  return [["]] .. o1 .. [["]]
  end
return d_3


|
|

|
|

|
|

|
|


|
|

|
|

|
|

|
|


|
|
|


|
|
|


|
|
|


|
|
|



|
|

|
|


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
local d_3 = {}
--~ 加
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.加前缀_确保态(u1, u2, o3)
--~ 筛文库.返全文(u1, )
--~ local k1
--~ k1 = d_3.删前缀(u1, u2, o3)
--~ return u2 .. u1
--~ end
function d_3.加前缀与后缀_基态(u1, u2, o3)
  return u2 .. u1 .. (o3 or "")
  end
function d_3.加始缀与终缀_基态(u1, u2, o3)
  return u2 .. u1 .. (o3 or "")
  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: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.在前后加英文双引号_基态(u1)
  return [["]] .. u1 .. [["]]
  end
function d_3.在始终加英文双引号_基态(u1)
  return [["]] .. u1 .. [["]]
  end
return d_3

Modified 残局文料/lua_lib/程语_月_基类_文_筛文_文转排.lua from [d8cfe337ba] to [6bd67f6a21].

1
2
3
4
5
6
local d_2 = {}
local 遍历文库 = 常用库.导入库_通用大字集态_八位态("程语_月_基类_文_遍历")
function d_2.单行_非空态_无换行符态(o1)
  return 遍历文库.遍历(o1, string.gmatch, "[^\n]+")
  end
return d_2


|
|


1
2
3
4
5
6
local d_2 = {}
local 遍历文库 = 常用库.导入库_通用大字集态_八位态("程语_月_基类_文_遍历")
function d_2.单行_非空态_无换行符态(u1)
  return 遍历文库.遍历(u1, string.gmatch, "[^\n]+")
  end
return d_2

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

1
2
3
4
5
6
7
8
9
local d_2 = {}
function d_2.写件(o1, o2, o3)
  local k1_3
  k1_3 = io.open(o2, o3 or "w")
  k1_3:write(o1)
  k1_3:flush()
  k1_3:close()
  end
return d_2

|

|
|




1
2
3
4
5
6
7
8
9
local d_2 = {}
function d_2.写件(u1, u2, o3)
  local k1_3
  k1_3 = io.open(u2, o3 or "w")
  k1_3:write(u1)
  k1_3:flush()
  k1_3:close()
  end
return d_2

Modified 残局文料/lua_lib/算机_基统_窗群_件系_小件_读.lua from [709363bd36] to [c7960c83aa].

1
2
3
4
5
6
7
8
9
10
11
local d_2 = {}
function d_2.读件(o1, o2)
  local k1
  local k1_3
  k1_3 = io.open(o1, o2 or "r")
  k1 = k1_3:read("a")
  k1_3:flush()
  k1_3:close()
  return k1
  end
return d_2

|


|






1
2
3
4
5
6
7
8
9
10
11
local d_2 = {}
function d_2.读件(u1, u2)
  local k1
  local k1_3
  k1_3 = io.open(u1, u2 or "r")
  k1 = k1_3:read("a")
  k1_3:flush()
  k1_3:close()
  return k1
  end
return d_2

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

1
2
3
4
5
6
7
8
9
10
11
12
13
local s = {}
--~ 文
--~ 文件路
--~ 式
function s.写文件(o1, o2, o3)
  local k1_3
  --~ 文件
  k1_3 = io.open(o2, o3 or "w")
  k1_3:write(o1)
  k1_3:flush()
  k1_3:close()
  end
return s




|


|
|




1
2
3
4
5
6
7
8
9
10
11
12
13
local s = {}
--~ 文
--~ 文件路
--~ 式
function s.写文件(u1, u2, o3)
  local k1_3
  --~ 文件
  k1_3 = io.open(u2, o3 or "w")
  k1_3:write(u1)
  k1_3:flush()
  k1_3:close()
  end
return s

Modified 残局文料/lua_lib/算机_基统_窗群_文件系_小文件_读.lua from [2aaaa1e959] to [b5f76297a1].

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
local s = {}
--~ 文件路
--~ 式
function s.读文件(o1, o2)
  local k1
  local k1_3
  --~ 文件
  k1_3 = io.open(o1, o2 or "r")
  --~ 文
  k1 = k1_3:read("a")
  k1_3:flush()
  k1_3:close()
  return k1
  end
return s



|



|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
local s = {}
--~ 文件路
--~ 式
function s.读文件(u1, u2)
  local k1
  local k1_3
  --~ 文件
  k1_3 = io.open(u1, u2 or "r")
  --~ 文
  k1 = k1_3:read("a")
  k1_3:flush()
  k1_3:close()
  return k1
  end
return s

Modified 残局文料/lua_lib/算机_理器_通用_字节.lua from [2d497ffaa3] to [daa4e3db3d].

1
2
3
4
5
6
7
8
local ffi = require("ffi")
local s = {}
--~ 内数
function s.to_uint64(o1)
  local uint64_pointer = ffi.new("uint64_t[1]", o1)
  return uint64_pointer[0]
  end
return s



|
|



1
2
3
4
5
6
7
8
local ffi = require("ffi")
local s = {}
--~ 内数
function s.to_uint64(u1)
  local uint64_pointer = ffi.new("uint64_t[1]", u1)
  return uint64_pointer[0]
  end
return s

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

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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
local 字集库 = require("u8_to_a")
local 基算库 = require(字集库.u8_to_a("算机_程语_月_基类_数_基算"))
local math = math
local string = string
local s = {}
-- 指数
--~ 左加数
--~ 右加数
function s.指数(o1, o2, o3)
  local k1
  if o3 then
    --~ 指数次
    k1 = 基算库.除法(o2, o3)
    return o1 ^ k1
  else
    return o1 ^ o2
    end
  end
-- 指数次
--~ 数
--~ 指数底
function s.指数次(o1, o2)
  local k1
  --~ 指数次
  k1 = math.log(o1) / math.log(o2)
  return k1
  end
--~ 数
function s.二底指数次(o1)
  local k1
  --~ 指数次
  _, k1 = math.frexp(o1)
  return k1
  end
-- 向大取整和向小取整
--~ 数
function s.向小取整(o1)
  return math.floor(o1)
  end
-- 几位整数和几位小数
--~ 数
--~ 几位整数
function s.几位整数(o1, o2)
  return string.format("%0" .. o2 .. "d", o1)
  end
--~ 数
--~ 几位小数
function s.几位小数(o1, o2)
  return string.format("%." .. o2 .. "f", o1)
  end
-- 正数与负数
--~ 数
function s.正数(o1)
  if o1 >= 0 then
    return o1
  else
    return -o1
    end
  end
--~ 数
function s.负数(o1)
  if o1 >= 0 then
    return -o1
  else
    return o1
    end
  end
-- 递加
do
  local k1_0
  --~ 数表
  k1_0 = {}
  function s.递加(o1)
    if k1_0[o1] then
    else
      k1_0[o1] = 0
      end
    k1_0[o1] = k1_0[o1] + 1
    return k1_0[o1]
    end
  end
-- 最值
function s.最大值()
  return math.huge
  end
function s.最小值()
  local k1
  --~ 最大值
  k1 = s.最大值()
  return s.负数(k1)
  end
--~ 数
function s.是否最值(o1)
  if o1 == s.最大值()
  or o1 == s.最小值() then
    return true
  else
    end
  end
--~ 数
function s.是否无效值(o1)
  if o1 == o1 then
  else
    return true
    end
  end
--~ 数
function s.是否错值(o1)
  local k1, k2
  --~ 是否最值
  k1 = s.是否最值(o1)
  --~ 是否无效值
  k2 = s.是否无效值(o1)
  return k1 or k2
  end
return s








|



|
|

|





|


|



|


|




|
|




|
|



|
|



|
|
|

|



|
|
|

|







|
|

|

|
|













|
|
|





|
|





|


|

|



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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
local 字集库 = require("u8_to_a")
local 基算库 = require(字集库.u8_to_a("算机_程语_月_基类_数_基算"))
local math = math
local string = string
local s = {}
-- 指数
--~ 左加数
--~ 右加数
function s.指数(u1, u2, o3)
  local k1
  if o3 then
    --~ 指数次
    k1 = 基算库.除法(u2, o3)
    return u1 ^ k1
  else
    return u1 ^ u2
    end
  end
-- 指数次
--~ 数
--~ 指数底
function s.指数次(u1, u2)
  local k1
  --~ 指数次
  k1 = math.log(u1) / math.log(u2)
  return k1
  end
--~ 数
function s.二底指数次(u1)
  local k1
  --~ 指数次
  _, k1 = math.frexp(u1)
  return k1
  end
-- 向大取整和向小取整
--~ 数
function s.向小取整(u1)
  return math.floor(u1)
  end
-- 几位整数和几位小数
--~ 数
--~ 几位整数
function s.几位整数(u1, u2)
  return string.format("%0" .. u2 .. "d", u1)
  end
--~ 数
--~ 几位小数
function s.几位小数(u1, u2)
  return string.format("%." .. u2 .. "f", u1)
  end
-- 正数与负数
--~ 数
function s.正数(u1)
  if u1 >= 0 then
    return u1
  else
    return -u1
    end
  end
--~ 数
function s.负数(u1)
  if u1 >= 0 then
    return -u1
  else
    return u1
    end
  end
-- 递加
do
  local k1_0
  --~ 数表
  k1_0 = {}
  function s.递加(u1)
    if k1_0[u1] then
    else
      k1_0[u1] = 0
      end
    k1_0[u1] = k1_0[u1] + 1
    return k1_0[u1]
    end
  end
-- 最值
function s.最大值()
  return math.huge
  end
function s.最小值()
  local k1
  --~ 最大值
  k1 = s.最大值()
  return s.负数(k1)
  end
--~ 数
function s.是否最值(u1)
  if u1 == s.最大值()
  or u1 == s.最小值() then
    return true
  else
    end
  end
--~ 数
function s.是否无效值(u1)
  if u1 == u1 then
  else
    return true
    end
  end
--~ 数
function s.是否错值(u1)
  local k1, k2
  --~ 是否最值
  k1 = s.是否最值(u1)
  --~ 是否无效值
  k2 = s.是否无效值(u1)
  return k1 or k2
  end
return s

Modified 残局文料/lua_lib/算机_程语_月_基类_数_位算.lua from [993ea5775b] to [24685689a3].

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
local bit = bit
local s = {}
-- 和与或
--~ 左数
--~ 右数
function s.位和(o1, o2)
  return bit.band(o1, o2)
  end
-- 左移与右移
--~ 数
--~ 右移几位
function s.位右移(o1, o2)
  return bit.rshift(o1, o2)
  end
return s





|
|




|
|


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
local bit = bit
local s = {}
-- 和与或
--~ 左数
--~ 右数
function s.位和(u1, u2)
  return bit.band(u1, u2)
  end
-- 左移与右移
--~ 数
--~ 右移几位
function s.位右移(u1, u2)
  return bit.rshift(u1, u2)
  end
return s

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

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
local s = {}
-- 加减
--~ 左加数
--~ 右加数
function s.加法(o1, o2)
  return o1 + o2
  end
--~ 左减数
--~ 右减数
function s.减法(o1, o2)
  return o1 - o2
  end
-- 乘除
--~ 左乘数
--~ 右乘数
function s.乘法(o1, o2)
  return o1 * o2
  end
--~ 左除数
--~ 右除数
function s.除法(o1, o2)
  return o1 / o2
  end
-- 向外与向内
--~ 左加数
--~ 右加数
function s.向外加(o1, o2)
  if o1 >= 0 then
    return s.加法(o1, o2)
  else
    return s.减法(o1, o2)
    end
  end
return s




|
|



|
|




|
|



|
|




|
|
|

|



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
local s = {}
-- 加减
--~ 左加数
--~ 右加数
function s.加法(u1, u2)
  return u1 + u2
  end
--~ 左减数
--~ 右减数
function s.减法(u1, u2)
  return u1 - u2
  end
-- 乘除
--~ 左乘数
--~ 右乘数
function s.乘法(u1, u2)
  return u1 * u2
  end
--~ 左除数
--~ 右除数
function s.除法(u1, u2)
  return u1 / u2
  end
-- 向外与向内
--~ 左加数
--~ 右加数
function s.向外加(u1, u2)
  if u1 >= 0 then
    return s.加法(u1, u2)
  else
    return s.减法(u1, u2)
    end
  end
return s

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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 "")
  end
--~ 排中文
--~ 入参2
--~ 入参3
--~ 入参4
function s.全筛文(o1, o2, o3, o4)
  --~ print(4)
  if string.find(o1, o2, o3, o4) then
    return o1
    end
  end
return s


|
|





|

|
|



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 "")
  end
--~ 排中文
--~ 入参2
--~ 入参3
--~ 入参4
function s.全筛文(u1, u2, o3, o4)
  --~ print(4)
  if string.find(u1, u2, o3, o4) then
    return u1
    end
  end
return s

Modified 残局文料/lua_lib/算机_程语_月_基类_文_前缀.lua from [c563093802] to [fdce14ba78].

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
local string = string
local s = {}
-- 加与删
--~ 文
--~ 前缀
function s.加前缀(o1, o2)
  return (o2 or "") .. o1
  end
-- 全筛
--~ 文
--~ 前缀
function s.全筛前缀(o1, o2)
  if string.sub(o1, 1, #o2) == o2 then
    return o1
    end
  end
return s





|
|




|
|
|



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
local string = string
local s = {}
-- 加与删
--~ 文
--~ 前缀
function s.加前缀(u1, u2)
  return (u2 or "") .. u1
  end
-- 全筛
--~ 文
--~ 前缀
function s.全筛前缀(u1, u2)
  if string.sub(u1, 1, #u2) == u2 then
    return u1
    end
  end
return s

Modified 残局文料/lua_lib/算机_程语_月_基类_文_后缀.lua from [1af10e52ff] to [1e4983ecb1].

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
local string = string
local s = {}
-- 加与删
--~ 文
--~ 后缀
function s.加后缀(o1, o2)
  return o1 .. (o2 or "")
  end
-- 全筛
--~ 文
--~ 后缀
function s.全筛后缀(o1, o2)
  if string.sub(o1, -#o2) == o2 then
    return o1
    end
  end
return s





|
|




|
|
|



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
local string = string
local s = {}
-- 加与删
--~ 文
--~ 后缀
function s.加后缀(u1, u2)
  return u1 .. (u2 or "")
  end
-- 全筛
--~ 文
--~ 后缀
function s.全筛后缀(u1, u2)
  if string.sub(u1, -#u2) == u2 then
    return u1
    end
  end
return s

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
local s = {}
-- 启
--~ 文
--~ 历文的能
--~ 入参2
--~ 入参3
function s.历文(o1, o2, o3, o4)
  local k1_0
  --~ 集排
  k1_0 = {}
  for o5 in o2(o1, o3, o4) do
    k1_0[#k1_0 + 1] = o5
    end
  return k1_0
  end
return s






|



|





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)
  local k1_0
  --~ 集排
  k1_0 = {}
  for o5 in u2(u1, o3, o4) do
    k1_0[#k1_0 + 1] = o5
    end
  return k1_0
  end
return s

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

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
local s = {}
-- 启
--~ 对
--~ 能
function s.历对(u1_0, o1)
  local k1, k2
  for o2, o3 in pairs(u1_0) do
    --~ 键
    --~ 值
    k1, k2 = s.模(k1, k2, o2, o3, 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._筛最短键(o1, o2, o3, o4)
  if #o1 > #o3 then
    return true
    end
  end
--~ 对
function s.筛最短键(u1_0)
  return s.历对(u1_0, s._筛最短键)
  end
-- 最大
--~ 键
--~ 最大值
--~ 键
--~ 值
function s._筛最大值(o1, o2, o3, o4)
  if o2 < o4 then
    return true
    end
  end
--~ 对
function s.筛最大值(u1_0)
  return s.历对(u1_0, s._筛最大值)
  end




|

|


|









|
|

|


|







|
|












|
|







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

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

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, o1, o2)
  local k1, k2
  local k1_0
  --~ 对
  k1_0 = {}
  for o3, o4 in pairs(u1_0) do
    --~ 键
    --~ 值
    k1, k2 = o1(o3, o4, o2)
    if k1 then
      k1_0[k1] = k2
    else
      end
    end
  return k1_0
  end
--~ 对
--~ 能
--~ 入参2
--~ 入参3
function s.历值(u1_0, o1, o2, o3)
  local k1_0
  --~ 对
  k1_0 = {}
  for o4, o5 in pairs(u1_0) do
    k1_0[o4] = o1(o5, o2, o3)
    end
  return k1_0
  end
--~ 键
--~ 值
--~ 要找的值
function s.全等筛值(o1, o2, o3)
  if o2 == o3 then
    return o1, o2
  else
    end
  end
return s





|







|











|




|






|
|
|




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
    --~ 键
    --~ 值
    k1, k2 = u1(o3, 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)
  local k1_0
  --~ 对
  k1_0 = {}
  for o4, o5 in pairs(u1_0) do
    k1_0[o4] = u1(o5, u2, o3)
    end
  return k1_0
  end
--~ 键
--~ 值
--~ 要找的值
function s.全等筛值(u1, u2, o3)
  if u2 == o3 then
    return u1, u2
  else
    end
  end
return s

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

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
local s = {}
-- 启
--~ 排
--~ 能
function s.历排(u1_0, o1)
  local k1
  for o2 = 1, #u1_0 do
    --~ 值
    k1 = s.模(k1, u1_0[o2], o1)
    end
  return k1
  end
-- 模
--~ 值
--~ 排中值
function s.模(o1, o2, o3)
  if o1 == nil then
    return o2
  elseif o3(o1, o2) then
    return o2
  else
    return o1
    end
  end
-- 最短
--~ 最短文
--~ 值
function s._筛最短文(o1, o2)
  if #o1 > #o2 then
    return true
    end
  end
--~ 排
function s.筛最短文(u1_0)
  return s.历排(u1_0, s._筛最短文)
  end




|

|

|






|
|
|
|
|

|





|
|







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
local s = {}
-- 启
--~ 排
--~ 能
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)
  if u1 == nil then
    return u2
  elseif o3(u1, u2) then
    return u2
  else
    return u1
    end
  end
-- 最短
--~ 最短文
--~ 值
function s._筛最短文(u1, u2)
  if #u1 > #u2 then
    return true
    end
  end
--~ 排
function s.筛最短文(u1_0)
  return s.历排(u1_0, s._筛最短文)
  end

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

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








|




|









|




|










|




|




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)
  local k1_0
  --~ 集排
  k1_0 = {}
  for o5 = 1, #u1_0 do
    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, u1, u2, o3, 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)
    end
  return k1_0
  end
--~ 排
--~ 排
--~ 排
--~ 办排中值的能
--~ 入参4
--~ 入参5
--~ 入参6
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] = u1(u1_0[o5], u2_0[o5], u3_0[o5], u2, o3, o4)
    end
  return k1_0
  end
return s

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
local s = {}
-- 启
--~ 排
--~ 办排中值的能
--~ 入参2
--~ 入参3
function s.历排(u1_0, o1, o2, 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))
    end
  return k1
  end
return s






|




|




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)
  local k1
  --~ 和
  k1 = u1_0[1] or 0
  for o5 = 2, #u1_0 do
    k1 = u1(k1, u2(u1_0[o5], o3, o4))
    end
  return k1
  end
return s

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

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, o1, o2, o3, o4)
  local k1
  --~ 和
  k1 = 0
  for o5 = 1, #u1_0 do
    k1 = k1 + o1(u1_0[o5], o2, o3, o4)
    end
  return k1
  end
return s








|




|




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)
  local k1
  --~ 和
  k1 = 0
  for o5 = 1, #u1_0 do
    k1 = k1 + u1(u1_0[o5], u2, o3, o4)
    end
  return k1
  end
return s

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

1
2
3
4
5
6
7
8
9
10
11
12
13
local s = {}
-- 启
--~ 值
--~ 值类
--~ 办值的能
function s.操类(o1, o2, o3)
  if type(o1) == o2 then
    return o3(o1)
  else
    return o1
    end
  end
return s





|
|
|

|



1
2
3
4
5
6
7
8
9
10
11
12
13
local s = {}
-- 启
--~ 值
--~ 值类
--~ 办值的能
function s.操类(u1, u2, o3)
  if type(u1) == u2 then
    return o3(u1)
  else
    return u1
    end
  end
return s

Modified 残局文料/lua_lib/算机_程语_月_基类_能_返参.lua from [457f07f678] to [96e40aba8e].

1
2
3
4
5
6
7
8
9
10
11
12
local s = {}
-- 数量
--~ 入参1
function s.一参(o1)
  return o1
  end
--~ 入参1
--~ 入参2
function s.二参(o1, o2)
  return o1, o2
  end
return s



|
|



|
|


1
2
3
4
5
6
7
8
9
10
11
12
local s = {}
-- 数量
--~ 入参1
function s.一参(u1)
  return u1
  end
--~ 入参1
--~ 入参2
function s.二参(u1, u2)
  return u1, u2
  end
return s

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

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 历对库 = 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)
  local k1











|
|







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 历对库 = require(字集库.u8_to_a("算机_程语_月_基类_能_传能_历_基类_表_对_取全"))
local s = {}
-- 连对
--~ 对
--~ 对
function s.连两对(u1_0, u2_0)
  local k1_0
  --~ 合对
  k1_0 = 历对库.历对(u1_0, 返参库.二参)
  for u1, u2 in pairs(u2_0) do
    k1_0[u1] = u2
    end
  return k1_0
  end
-- 对长
--~ 对
function s.对长(u1_0)
  local k1

Modified 残局文料/lua_lib/算机_程语_月_基类_表_排_基类_数.lua from [378987d79b] to [5474266589].

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
  local k1
  --~ 总和
  k1 = s.总和(u1_0)
  return 基算库.除法(k1, #u1_0)
  end
--~ 排
--~ 标准值
function s.方差(u1_0, o1)
  local k1, k2
  local k1_0
  --~ 标准值
  k1 = o1 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)
  local k1
  --~ 方差
  k1 = s.方差(u1_0, o1)
  return 数库.指数(k1, 1, 2)
  end
--~ 排
--~ 标准值
function s.均差(u1_0, o1)
  local k1, k2
  local k1_0
  --~ 标准值
  k1 = o1 or s.均值(u1_0)
  --~ 排,用于算均差
  k1_0 = 历排库.历排(u1_0, 基算库.减法, k1)
  k1_0 = 历排库.历排(k1_0, 数库.正数)
  --~ 均差
  k2 = 基算库.除法(s.总和(k1_0), #k1_0)
  return k2
  end







|



|









|


|




|



|







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
  local k1
  --~ 总和
  k1 = s.总和(u1_0)
  return 基算库.除法(k1, #u1_0)
  end
--~ 排
--~ 标准值
function s.方差(u1_0, u1)
  local k1, k2
  local k1_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, u1)
  local k1
  --~ 方差
  k1 = s.方差(u1_0, u1)
  return 数库.指数(k1, 1, 2)
  end
--~ 排
--~ 标准值
function s.均差(u1_0, u1)
  local k1, k2
  local k1_0
  --~ 标准值
  k1 = u1 or s.均值(u1_0)
  --~ 排,用于算均差
  k1_0 = 历排库.历排(u1_0, 基算库.减法, k1)
  k1_0 = 历排库.历排(k1_0, 数库.正数)
  --~ 均差
  k2 = 基算库.除法(s.总和(k1_0), #k1_0)
  return k2
  end

Modified 残局文料/lua_lib/算机_程语_月_注_删_不虑字串.lua from [ccc52a6c1d] to [cd6e2aeb73].

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
local 字集库 = require("u8_to_a")
local 文库 = require(字集库.u8_to_a("算机_程语_月_基类_文"))
local string = string
local s = {}
-- 单行注与多行注
--~ 文
function s.删注(o1)
  o1 = s.删多行注(o1)
  return s.删单行注(o1)
  end
do
  local k1
  --~ 模
  k1 = 文库.连("%-%-", "%[", "(=*)", "%[", ".-", "%]", "%1", "%]")
  --~ 文
  function s.删多行注(o1)
    return string.gsub(o1, k1, "")
    end
  end
do
  local k1
  --~ 模
  k1 = 文库.连("%-%-", "[^\n]*")
  --~ 文
  function s.删单行注(o1)
    return string.gsub(o1, k1, "")
    end
  end
return s






|
|
|






|
|







|
|



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
local 字集库 = require("u8_to_a")
local 文库 = require(字集库.u8_to_a("算机_程语_月_基类_文"))
local string = string
local s = {}
-- 单行注与多行注
--~ 文
function s.删注(u1)
  u1 = s.删多行注(u1)
  return s.删单行注(u1)
  end
do
  local k1
  --~ 模
  k1 = 文库.连("%-%-", "%[", "(=*)", "%[", ".-", "%]", "%1", "%]")
  --~ 文
  function s.删多行注(u1)
    return string.gsub(u1, k1, "")
    end
  end
do
  local k1
  --~ 模
  k1 = 文库.连("%-%-", "[^\n]*")
  --~ 文
  function s.删单行注(u1)
    return string.gsub(u1, k1, "")
    end
  end
return s

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

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.执行命令(o1)
  print(o1)
  os.execute(o1)
  end
--~ function d_2.逐一执行命令(o1)
  --~ 历排库.处理(o1, d_2.执行命令)
  --~ end
--~ 件夹
--~ function d_2.入文件夹路径而用文件路径执行命令_全筛态_加前缀与后缀态_不虑子文件夹内态(o1, o2, o3, o4, o5, o6)
  --~ local k1_9
  --~ k1_9 = 件径库.入文件夹路径而返文件路径排_全筛态(o1, o2, 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)
  --~ end
return d_2




|
|
|

|
|


|

|




|
|


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)
  --~ local k1_9
  --~ k1_9 = 件径库.入文件夹路径而返文件路径排_全筛态(u1, u2, o3, 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)
  --~ end
return d_2

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
local d_2 = {}
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)
  end
return d_2






|

|
|

|

|
|

|
|


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
local d_2 = {}
local 历文库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_字串_逐一")
local 历排库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_序排_逐一")
local 前后缀库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_字串_前缀与后缀")
local 全筛文库 = 常用库.导入库_通用大字集态_八位态("程序语言_月_基础类型_字串_全筛")
local 简单文件系统库 = require("lfs")
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