Artifact 4a0437f74d87319fd8c0618fab67f76f19ebeab72fdd1f226babf724320e3ff4:

• File single_doc/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取一.lua — part of check-in [60c256f91b] at 2024-06-27 23:36:58 on branch trunk — 0 (user: 顽雨沉风, size: 579) [annotate] [blame] [check-ins using]
• File 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取一.lua — part of check-in [89f423ff38] at 2024-02-13 07:31:23 on branch trunk — 好 (user: 顽雨沉风, size: 579) [annotate] [blame] [check-ins using]

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