File 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取一.lua artifact 4a0437f74d part of check-in 21639c4512
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 elseif u3(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 return s