77f6e5c564 2024-02-08 1: local d = {}
77f6e5c564 2024-02-08 2: -- 启
77f6e5c564 2024-02-08 3: --~ 排
77f6e5c564 2024-02-08 4: --~ 能
77f6e5c564 2024-02-08 5: function d.历排(o1_0, o1)
77f6e5c564 2024-02-08 6: local k1
77f6e5c564 2024-02-08 7: for o2 = 1, #o1_0 do
77f6e5c564 2024-02-08 8: --~ 值
77f6e5c564 2024-02-08 9: k1 = d.模(k1, o1_0[o2], o1)
77f6e5c564 2024-02-08 10: end
77f6e5c564 2024-02-08 11: return k1
77f6e5c564 2024-02-08 12: end
77f6e5c564 2024-02-08 13: -- 模
77f6e5c564 2024-02-08 14: --~ 值
77f6e5c564 2024-02-08 15: --~ 排中值
77f6e5c564 2024-02-08 16: function d.模(o1, o2, o3)
77f6e5c564 2024-02-08 17: if o1 == nil then
77f6e5c564 2024-02-08 18: return o2
77f6e5c564 2024-02-08 19: elseif o3(o1, o2) then
77f6e5c564 2024-02-08 20: return o2
77f6e5c564 2024-02-08 21: else
77f6e5c564 2024-02-08 22: return o1
77f6e5c564 2024-02-08 23: end
77f6e5c564 2024-02-08 24: end
77f6e5c564 2024-02-08 25: -- 最短
77f6e5c564 2024-02-08 26: --~ 最短文
77f6e5c564 2024-02-08 27: --~ 值
77f6e5c564 2024-02-08 28: function d._筛最短文(o1, o2)
77f6e5c564 2024-02-08 29: if #o1 > #o2 then
77f6e5c564 2024-02-08 30: return true
77f6e5c564 2024-02-08 31: end
77f6e5c564 2024-02-08 32: end
77f6e5c564 2024-02-08 33: --~ 排
77f6e5c564 2024-02-08 34: function d.筛最短文(o1_0)
77f6e5c564 2024-02-08 35: return d.历排(o1_0, d._筛最短文)
77f6e5c564 2024-02-08 36: end
77f6e5c564 2024-02-08 37: return d