File 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取一.lua artifact 9df7c4b8f8 part of check-in bb99c8bbb8
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