游戏王残局简化版

Check-in [c4461ce231]
Login

Check-in [c4461ce231]

Overview
Comment:差不多了
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: c4461ce23153bdbbc383df82173ece39d1fc08f19994ede6e742bb8de4b0820a
User & Date: 顽雨沉风 on 2024-02-05 14:53:11
Other Links: manifest | tags
Context
2024-02-05
14:53
删冗 check-in: 1b8a66c38a user: 顽雨沉风 tags: trunk
14:53
差不多了 check-in: c4461ce231 user: 顽雨沉风 tags: trunk
11:37
又卡住了 check-in: 91958121fe user: 顽雨沉风 tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified 残局文料/lua_lib/常用库.lua from [ff88c3754c] to [4e9da26420].

︙
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

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








+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+




-
+


-
+







-
+








  --~ 集排
  k1_0 = {}
  for o3_0 in o2(o1, o1_0, o2_0) do
    k1_0[#k1_0 + 1] = o3_0
    end
  return k1_0
  end
--~ 排
--~ 能
function d.历排取一(o1_0, o1)
  local k1
  for o2 = 1, #o1_0 do
    --~ 值
    k1 = o1(k1, o1_0[o2])
    end
  return k1
  end
--~ 对
--~ 能
function d.历对取一(o1_0, o1)
  local k1, k2
  for o2, o2_0 in pairs(o1_0) do
    --~ 键
    --~ 值
    k1, k2 = o1(k1, k2, o2, o2_0)
    end
  return k1, k2
  end
function d.历对(o1_0, o1)
function d.历对(o1_0, o1, o2)
  local k1
  local k1_0, k2_0
  --~ 对
  k1_0 = {}
  for o2, o2_0 in pairs(o1_0) do
  for o3, o2_0 in pairs(o1_0) do
    --~ 键
    --~ 值
    k1, k2_0 = o1(o2, o2_0)
    k1, k2_0 = o1(o3, o2_0, o2)
    if k1 then
      k1_0[k1] = k2_0
    else
      end
    end
  return k1_0
  end
--~ 表中值
--~ 排中值
--~ 值类
--~ 办值的能
function d.操类(o1_0, o1, o2)
  if type(o1_0) == o1 then
    return o2(o1_0)
  else
    return o1_0
︙
192
193
194
195
196
197
198



199
200


201
202
203
204
205
206
207
208
209
210
































211
212
213
214
215









216

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








+
+
+
-
-
+
+
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+





+
+
+
+
+
+
+
+
+


  return bit.band(o1, o2)
  end
--~ 数
--~ 右移几位
function d.位右移(o1, o2)
  return bit.rshift(o1, o2)
  end
--~ 键
--~ 最大值
--~ 键
--~ 对
function d.找对中最大值(o1_0)
--~ 值
function d.筛对中最大值(o1, o2, o3, o4)
  local k1, k2
  k2 = -math.huge
  for o1, o2 in pairs(o1_0) do
    if k2 < o2 then
      k1, k2 = o1, o2
    else
      end
    end
  return k1, k2
  end
  if o2 == nil then
    return o3, o4
  elseif o2 < o4 then
    return o3, o4
  else
    return o1, o2
    end
  end
--~ 键
--~ 最短键
--~ 键
--~ 值
function d.筛对中最短键(o1, o2, o3, o4)
  if o1 == nil then
    return o3, o4
  elseif #o1 > #o3 then
    return o3, o4
  else
    return o1, o2
    end
  end
--~ 最短文
--~ 值
function d.筛排中最短文(o1, o2)
  if o1 == nil then
    return o2
  elseif #o1 > #o2 then
    return o2
  else
    return o1
    end
  end
--~ 内数
function d.to_uint64(o1)
  local uint64_pointer = ffi.new("uint64_t[1]", o1)
  return uint64_pointer[0]
  end
--~ 键
--~ 值
--~ 要找的值
function d.全等筛对中值(o1, o2, o3)
  if o2 == o3 then
    return o1, o2
  else
    end
  end
return d

Modified 残局文料/残局改名.lua from [f3ccfec413] to [e7854921b5].

︙
37
38
39
40
41
42
43
44

45
46
47

48
49
50
51
52
53
54
55

37
38
39
40
41
42
43

44



45

46
47
48
49
50
51
52








-
+
-
-
-
+
-








      else
        return o1_4
        end
      end
    end
  end
--~ 各文件的卡对排
function d.筛有效果卡的张数(o1_0)
function d.筛有效果卡_一维(o1_0)
  local k1_8
  --~ 卡排
  k1_8 = f.历排(o1_0, d.筛有效果卡)
  return f.历排(o1_0, d.筛有效果卡)
  return #k1_8
  end
--~ 各文件的卡编排
function d.取卡对_一维(o1_0)
  return f.历排(o1_0, d.取卡对)
  end
--~ 卡编
function d.取卡对(o1)
︙
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
202
203
204
205
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

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
202
203


204
205
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








+


+
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

-
+
+
+
+
+
+
+
+
+
+
+













-
-

-




-


-






+
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+








-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-

+
+
+
+
+
+
+
+
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+


-
-
+
+


+
+
-
-
-
-
-
+
+
+
+
+


-
+

-
+


-
-
-
+
+
+
+
+
+

-
-
+
+
+
+
+
+
+






-
-
+
+



  k1_0 = f.历排(k1_0, f.全筛前缀, "Debug.ReloadFieldBegin")
  --~ 则数
  k1 = string.match(k1_0[1], "[0-9]")
  return k1 or 3
  end
--~ 卡对排
function d.荐名(o1_0)
  local k1
  --~ print(o1_0[1].name)
  --~ return o1_0[1]
  --~ 名
  d.荐字段名(o1_0)
  end
  k1 = d.荐字段名(o1_0)
  if k1 then
  else
    k1 = d.荐卡名(o1_0)
    end
  if k1 then
    return k1
  else
    return "请便"
    end
  end
function d.荐卡名(o1_0)
  local k1_0
  --~ 卡名排
  k1_0 = d.取卡名排(o1_0)
  return f.历排取一(k1_0, f.筛排中最短文)
  end
--~ 卡对排
function d.荐字段名(o1_0)
function d.取卡名排(o1_0)
  local k1_0
  --~ 卡名排
  k1_0 = {}
  for o1 = 1, #o1_0 do
    k1_0[o1] = o1_0[o1].name
    end
  return k1_0
  end
--~ 卡对排
function d.取字段对(o1_0)
  local k1, k2, k3, k4
  local k1_0
  --~ 字段对
  k1_0 = {}
  for o1 = 1, #o1_0 do
    --~ 字段数
    k1 = f.to_uint64(o1_0[o1].setcode)
    if k1 > 0xffffFFFFffff then
      k1 = k1 - 1
    elseif k1 < 1 then
    else
      for o2 = 1, 11112222 do
        if k1 < 1 then
          --~ f.历对(k1_0, print)
          --~ print(3)
          break
          --~ return
        else
          --~ 大字段号
          k2 = f.位和(k1, 0xffff)
          k1 = f.位右移(k1, f.乘法(4, 4))
          --~ print(k1, k2)
          --~ 字段名
          k3 = 字段名对[tonumber(k2)]
          --~ print(k3)
          if k3 then
            if k1_0[k3] then
              k1_0[k3] = f.加法(k1_0[k3], 1)
            else
              k1_0[k3] = 1
              end
            if k2 > 0xfff then
            --~ 小字段号
            k4 = f.位和(k1, 0xfff)
            k3 = 字段名对[tonumber(k4)]
            if k3 then
              if k1_0[k3] then
                k1_0[k3] = f.加法(k1_0[k3], 1)
              else
                k1_0[k3] = 1
              --~ 小字段号
              k4 = f.位和(k2, 0xfff)
              k3 = 字段名对[tonumber(k4)]
              if k3 then
                if k1_0[k3] then
                  k1_0[k3] = f.加法(k1_0[k3], 1)
                else
                  k1_0[k3] = 1
                  end
              else
                end
            else
              end
          else
            end
          end
        end
      end
    --~ print(string.format("%x", k1))
    --~ for o2 = 1, 6 do
      --~ print(k1)
      --~ if k1 < 1 then
        --~ f.历对(k1_0, print)
        --~ print(23)
        --~ return
      --~ else
        --~ 大字段号
        --~ k2 = f.位和(k1, 0xffff)
        --~ k1 = f.位右移(k1, f.乘法(4, 4))
        --~ 字段名
        --~ k3 = 字段名对[k2]
        --~ if k3 then
          --~ if k1_0[k3] then
            --~ k1_0[k3] = f.加法(k1_0[k3], 1)
          --~ else
            --~ k1_0[k3] = 1
            --~ end
          --~ 小字段号
          --~ k4 = f.位和(k1, 0xfff)
          --~ k3 = 字段名对[k4]
          --~ if k3 then
            --~ if k1_0[k3] then
              --~ k1_0[k3] = f.加法(k1_0[k3], 1)
            --~ else
              --~ k1_0[k3] = 1
              --~ end
          --~ else
            --~ end
        --~ else
          --~ end
        --~ end

      --~ print(k1, k2)
      --~ k2 = 
      --~ end
    --~ 大字段号
    --~ k1 = bit.band(o1_0[o1].setcode, 0xffff)
    --~ print(o1_0[o1].setcode)
    --~ print(f.位和(o1_0[o1].setcode, 0xffff))
    --~ if k1 > 0xfff then
      --~ 字段名
      --~ k2 = 字段名对[k1]
      --~ print(k1, k2)
      --~ if k1_0[k2] then
        --~ k1_0[k2] = k1_0[k2] + 1
      --~ else
        --~ k1_0[k2] = 1
        --~ end
      --~ end
    --~ 小字段号
    --~ k1 = bit.band(o1_0[o1].setcode, 0xfff)
    --~ 字段名
    --~ k2 = 字段名对[k1]
    --~ if k1_0[k2] then
      --~ k1_0[k2] = k1_0[k2] + 1
    --~ elseif k2 == nil then
    --~ else
      --~ k1_0[k2] = 1
      --~ end
    end
  return k1_0
  end
--~ 卡对排
function d.荐字段名(o1_0)
  local k1, k2
  local k1_0
  --~ 字段对
  k1_0 = d.取字段对(o1_0)
  f.历对(k1_0, print)
  end
  --~ f.历对(k1_0, print)
  --~ 最大的字段名数量
  _, k1 = f.历对取一(k1_0, f.筛对中最大值)
  --~ print(_, k1)
  --~ 最高频字段名对
  k2_0 = f.历对(k1_0, f.全等筛对中值, k1)
  --~ f.历对(k2_0, print)
  --~ 最短的最高频字段
  k2 = f.历对取一(k2_0, f.筛对中最短键)
  --~ print(k2)
  if k2 then
    return k2
  else
    return false
    end
  end
--~ 目对
function d.残局改名(o1_0)
  local k1_0, k2_0, k3_0, k4_0, k5_0, k6_0
  --~ 文件排
  local k1_0, k2_0, k3_0, k4_0, k5_0, k6_0, k7_0, k8_0
  --~ 文件名排
  k1_0 = f.历文(o1_0.文件目, 简文件库.dir)
  k1_0 = f.历排(k1_0, f.全筛后缀, ".lua")
  --~ 文件排
  k2_0 = f.历排(k1_0, f.全筛后缀, ".lua")
  for o1 = 1, #k1_0 do
    k1_0[o1] = f.加前缀(k1_0[o1], o1_0.文件目)
    k1_0[o1] = f.读文件(k1_0[o1])
    k1_0[o1] = string.gsub(k1_0[o1], "%-%-" .. "%[(=*)%[" .. ".-" .. "%]%1%]", "")
    k1_0[o1] = string.gsub(k1_0[o1], "%-%-" .. "[^\n]*", "")
  for o1 = 1, #k2_0 do
    k2_0[o1] = f.加前缀(k2_0[o1], o1_0.文件目)
    k2_0[o1] = f.读文件(k2_0[o1])
    k2_0[o1] = string.gsub(k2_0[o1], "%-%-" .. "%[(=*)%[" .. ".-" .. "%]%1%]", "")
    k2_0[o1] = string.gsub(k2_0[o1], "%-%-" .. "[^\n]*", "")
    end
  --~ 则数排
  k2_0 = f.历排(k1_0, d.局筛则数)
  k3_0 = f.历排(k2_0, d.局筛则数)
  --~ 各文件的卡编排
  k3_0 = f.历排(k1_0, d.局筛卡编)
  k4_0 = f.历排(k2_0, d.局筛卡编)
  _G.数据库 = 简数据库库.open(o1_0.数据库路)
  --~ 各文件的卡对排
  k4_0 = f.历排(k3_0, d.取卡对_一维)
  --~ 有效果卡的张数排
  k5_0 = f.历排(k4_0, d.筛有效果卡的张数)
  k5_0 = f.历排(k4_0, d.取卡对_一维)
  --~ 有效果卡的卡对排
  k6_0 = f.历排(k5_0, d.筛有效果卡_一维)
  --~ print(k6_0[1][2].name)
  --~ 有效果卡的张数排
  k7_0 = f.历排(k6_0, table.maxn)
  --~ 荐名排
  k6_0 = f.历排(k4_0, d.荐名)
  --~ print(k6_0[0])
  k8_0 = f.历排(k6_0, d.荐名)
  for o1 = 1, #k1_0 do
    print(k1_0[o1], k3_0[o1], k7_0[o1], k8_0[o1])
    --~ print(k5_0[o1], k6_0[o1])
    end
  --~ k1 = 1
  --~ print(k2_0[k1], k5_0[k1], k6_0[k1])
  --~ print(k5_0[2])
  end
d.目对 = {
  ["文件目"] = "../single/"
  , ["数据库路"] = [[D:\install\YGOPro\cards.cdb]]
  }
for o1_0, o2_0 in pairs(d.目对) do
  d.目对[o1_0] = f.操类(o2_0, "string", u8)
for o1, o2 in pairs(d.目对) do
  d.目对[o1] = f.操类(o2, "string", u8)
  end
d.残局改名(d.目对)

Added 残局文料/残局荐名.lua version [1734e1f425]. 























































































































































































































































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
192
193
194
195
196
197
198
199
200
201
202
203
204
205
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

+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+

package.path = [[.\lua_lib\?.lua;]] .. package.path
package.cpath = [[.\lua_lib\?.dll;]] .. package.cpath
local 字集码互转库 = require("u8_to_a")
local u8 = 字集码互转库.u8_to_a
local f = require(u8("常用库"))
local 字段名对 = require(u8("字段名"))
local 简文件库 = require("lfs")
local 简数据库库 = require("lsqlite3")
local d = {}
do
  local TYPE_SPELL = 0x2
  local TYPE_TRAP = 0x4
  local TYPE_EFFECT = 0x20
  local TYPE_PENDULUM = 0x1000000
  local 有效果卡的类排 = {
  TYPE_SPELL
  , TYPE_TRAP
  , TYPE_EFFECT
  }
  local 无效果灵摆怪兽排 = {
    28363749 --火蛋白石头龙头领
    , 19474136 --曼陀林草龙
    , 17390179 --闪光之骑士
    , 83980492 --铜锣龙
    }
  --~ 卡对
  function d.筛有效果卡(o1_4)
    for o1 = 1, #有效果卡的类排 do
      if bit.band(有效果卡的类排[o1], o1_4.type) == 0 then
      else
        return o1_4
        end
      end
    if bit.band(TYPE_PENDULUM, o1_4.type) == 0 then
    else
      if 无效果灵摆怪兽排[o1_4.id] then
      else
        return o1_4
        end
      end
    end
  end
--~ 各文件的卡对排
function d.筛有效果卡_一维(o1_0)
  return f.历排(o1_0, d.筛有效果卡)
  end
--~ 各文件的卡编排
function d.取卡对_一维(o1_0)
  return f.历排(o1_0, d.取卡对)
  end
--~ 卡编
function d.取卡对(o1)
  local k1_0, k2_0
  --~ 卡文对
  k1_0 = d.取卡文(o1)
  --~ 卡数据对
  k2_0 = d.取卡数据(o1)
  return f.连两对(k1_0, k2_0)
  end
--~ 卡编
function d.取卡文(o1)
  for o1_4 in 数据库:nrows("select * from texts where id = " .. o1) do
    return o1_4
    end
  end
--~ 卡编
function d.取卡数据(o1)
  for o1_4 in 数据库:nrows("select * from datas where id = " .. o1) do
    --~ if o1_4.setcode > 0xffffffff then
      --~ ffi = require("ffi")
      --~ print(bit.tohex(o1_4.setcode, 16), o1_4.setcode, o1_4.setcode == 36592129229979791, bit.tohex(bit.rshift(o1_4.setcode, 31)), bit.tohex(bit.band(o1_4.setcode, 0xf)), string.format("%x", 36592129229979791 - 36592129229979791), bit.tohex(math.fmod(36592129229979791, 0xffff + 1)), math.fmod(36592129229979791, 0xffff + 1), ffi.new("uint64_t[1]", 36592129229979791)[0], tostring(36592129229979791) == tostring(o1_4.setcode), tonumber(tostring(o1_4.setcode)) == 36592129229979791, math.modf(36592129229979791 / (0xffff + 1)), bit.tohex(bit.band(o1_4.setcode - 4, ffi.new("uint64_t[1]", 0xffff)[0])))
      --~ print(string.format("%x", 36592129229979791 - 5))
    --~ else
      --~ end
    return o1_4
    end
  end
--~ 文
function d.局筛卡编(o1)
  local k1_0
  --~ 卡编排
  k1_0 = f.历文(o1, string.gmatch, "[^\n]+")
  k1_0 = f.历排(k1_0, string.match, "Debug%.AddCard.+")
  return f.历排(k1_0, string.match, "[0-9]+")
  end
--~ 文
function d.局筛则数(o1)
  local k1
  local k1_0
  --~ 则数排
  k1_0 = f.历文(o1, string.gmatch, "[^\n]+")
  k1_0 = f.历排(k1_0, f.全筛前缀, "Debug.ReloadFieldBegin")
  --~ 则数
  k1 = string.match(k1_0[1], "[0-9]")
  return k1 or 3
  end
--~ 卡对排
function d.荐名(o1_0)
  local k1
  --~ print(o1_0[1].name)
  --~ return o1_0[1]
  --~ 名
  k1 = d.荐字段名(o1_0)
  if k1 then
  else
    k1 = d.荐卡名(o1_0)
    end
  if k1 then
    return k1
  else
    return "请便"
    end
  end
function d.荐卡名(o1_0)
  local k1_0
  --~ 卡名排
  k1_0 = d.取卡名排(o1_0)
  return f.历排取一(k1_0, f.筛排中最短文)
  end
--~ 卡对排
function d.取卡名排(o1_0)
  local k1_0
  --~ 卡名排
  k1_0 = {}
  for o1 = 1, #o1_0 do
    k1_0[o1] = o1_0[o1].name
    end
  return k1_0
  end
--~ 卡对排
function d.取字段对(o1_0)
  local k1, k2, k3, k4
  local k1_0
  --~ 字段对
  k1_0 = {}
  for o1 = 1, #o1_0 do
    --~ 字段数
    k1 = f.to_uint64(o1_0[o1].setcode)
    if k1 > 0xffffFFFFffff then
      k1 = k1 - 1
    elseif k1 < 1 then
    else
      for o2 = 1, 11112222 do
        if k1 < 1 then
          break
        else
          --~ 大字段号
          k2 = f.位和(k1, 0xffff)
          k1 = f.位右移(k1, f.乘法(4, 4))
          --~ 字段名
          k3 = 字段名对[tonumber(k2)]
          if k3 then
            if k1_0[k3] then
              k1_0[k3] = f.加法(k1_0[k3], 1)
            else
              k1_0[k3] = 1
              end
            if k2 > 0xfff then
              --~ 小字段号
              k4 = f.位和(k2, 0xfff)
              k3 = 字段名对[tonumber(k4)]
              if k3 then
                if k1_0[k3] then
                  k1_0[k3] = f.加法(k1_0[k3], 1)
                else
                  k1_0[k3] = 1
                  end
              else
                end
            else
              end
          else
            end
          end
        end
      end
    end
  return k1_0
  end
--~ 卡对排
function d.荐字段名(o1_0)
  local k1, k2
  local k1_0
  --~ 字段对
  k1_0 = d.取字段对(o1_0)
  --~ f.历对(k1_0, print)
  --~ 最大的字段名数量
  _, k1 = f.历对取一(k1_0, f.筛对中最大值)
  --~ print(_, k1)
  --~ 最高频字段名对
  k2_0 = f.历对(k1_0, f.全等筛对中值, k1)
  --~ f.历对(k2_0, print)
  --~ 最短的最高频字段
  k2 = f.历对取一(k2_0, f.筛对中最短键)
  --~ print(k2)
  if k2 then
    return k2
  else
    return false
    end
  end
--~ 目对
function d.残局改名(o1_0)
  local k1_0, k2_0, k3_0, k4_0, k5_0, k6_0, k7_0, k8_0
  --~ 文件名排
  k1_0 = f.历文(o1_0.文件目, 简文件库.dir)
  k1_0 = f.历排(k1_0, f.全筛后缀, ".lua")
  --~ 文件排
  k2_0 = f.历排(k1_0, f.全筛后缀, ".lua")
  for o1 = 1, #k2_0 do
    k2_0[o1] = f.加前缀(k2_0[o1], o1_0.文件目)
    k2_0[o1] = f.读文件(k2_0[o1])
    k2_0[o1] = string.gsub(k2_0[o1], "%-%-" .. "%[(=*)%[" .. ".-" .. "%]%1%]", "")
    k2_0[o1] = string.gsub(k2_0[o1], "%-%-" .. "[^\n]*", "")
    end
  --~ 则数排
  k3_0 = f.历排(k2_0, d.局筛则数)
  --~ 各文件的卡编排
  k4_0 = f.历排(k2_0, d.局筛卡编)
  _G.数据库 = 简数据库库.open(o1_0.数据库路)
  --~ 各文件的卡对排
  k5_0 = f.历排(k4_0, d.取卡对_一维)
  --~ 有效果卡的卡对排
  k6_0 = f.历排(k5_0, d.筛有效果卡_一维)
  --~ print(k6_0[1][2].name)
  --~ 有效果卡的张数排
  k7_0 = f.历排(k6_0, table.maxn)
  --~ 荐名排
  k8_0 = f.历排(k6_0, d.荐名)
  for o1 = 1, #k1_0 do
    print(字集码互转库.a_to_u8(k1_0[o1]), k3_0[o1], k7_0[o1], k8_0[o1])
    --~ print(k5_0[o1], k6_0[o1])
    end
  --~ k1 = 1
  --~ print(k2_0[k1], k5_0[k1], k6_0[k1])
  --~ print(k5_0[2])
  end
d.目对 = {
  ["文件目"] = "../single/"
  , ["数据库路"] = [[D:\install\YGOPro\cards.cdb]]
  }
for o1, o2 in pairs(d.目对) do
  d.目对[o1] = f.操类(o2, "string", u8)
  end
d.残局改名(d.目对)