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