Artifact 9df7c4b8f881220e9f471161a3ab430c42659738388b51f0fcbc1bf7bf3a29d7:

• File 残局文料/lua_lib/算机_程语_月_基类_能_传能_历_基类_表_排_取一.lua — part of check-in [77f6e5c564] at 2024-02-08 12:35:22 on branch trunk — 慢慢来 (user: 顽雨沉风, size: 579) [annotate] [blame] [check-ins using]

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