1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
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, u3)
if u1 == nil then
return u2
|
|
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
local s = {}
-- 启
--~ 排
--~ 能
function s.历排(u1_0, u1)
local h1
for u2 = 1, #u1_0 do
--~ 值
h1 = s.模(h1, u1_0[u2], u1)
end
return h1
end
-- 模
--~ 值
--~ 排中值
function s.模(u1, u2, u3)
if u1 == nil then
return u2
|