游戏王残局简化版

Diff
Login

Diff

Annotate Patch Unified Diff

Differences From Artifact [d276baf2ce]:

To Artifact [244fd8ea5d]:

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


package.path = [[.\lib\?.lua;]] .. package.path
package.cpath = [[.\lib\?.dll;]] .. package.cpath
local 字集码互转库 = require("u8_to_a")
local d_5 = {}
local 简件系库 = require("lfs")
--~ 程语_月_标准库_仿照_加多_多编码_大字集_通用
function d_5.require_通用大字集态_八位态(modname)
	return require(字集码互转库.u8_to_a(modname))
end
do
	local k1 = 0
	function _G.递增示()
		k1 = k1 + 1
		print(k1)
	end
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









|
|

|
|
|
|
|
|







|
|
|
|
|
|
|
|

|
|
|
|
|
|
|

|
|
|
|
|
|

|
|
|
|
|
|

|
|








|
|
|
|
|
|



















|
|

|
|
|
|
|
|
|
|
|
|
|














|
|
|
|
|
|










|
|
|
|
|
|
|
|
|
|
|
|







|
|
|
|
|
|
|
|
|
|

|
|
|












>

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

package.path = [[.\lib\?.lua;]] .. package.path
package.cpath = [[.\lib\?.dll;]] .. package.cpath
local 字集码互转库 = require("u8_to_a")
local d_5 = {}
local 简件系库 = require("lfs")
--~ 程语_月_标准库_仿照_加多_多编码_大字集_通用
function d_5.require_通用大字集态_八位态(modname)
  return require(字集码互转库.u8_to_a(modname))
  end
do
  local k1 = 0
  function _G.递增示()
    k1 = k1 + 1
    print(k1)
    end
  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