local function some_magic(V)
assert(#V % 2 == 0 and #V > 0)
table.sort(V)
local S = {[-1] = math.huge, [0] = 0}
for i = 1, #V do
S[i] = S[i-1] + V[i]
end
local half_sum = math.floor(S[#V] / 2)
local half_len = #V / 2
local m = 2^math.ceil(math.log(half_len+1)/math.log(2))
local P = {[0] = 0}
for idx = #V, 1, -1 do
local v, P2 = V[idx], {}
for k in pairs(P) do
if math.floor(k/m) + v + S[half_len - k%m - 1] <= half_sum then
P2[k + v*m + 1] = idx
end
end
for k, v in pairs(P2) do
P[k] = P[k] or v
end
end
local k = 0
for next_k in pairs(P) do
if next_k > k and next_k%m == half_len then
k = next_k
end
end
local A, B, prev_idx = {}, {}, 0
repeat
local idx = P[k]
for i = prev_idx + 1, idx - 1 do
table.insert(B, V[i])
end
table.insert(A, V[idx])
prev_idx = idx
k = k - V[idx]*m - 1
until k == 0
for i = prev_idx + 1, #V do
table.insert(B, V[i])
end
return A, B
end
local values = {4, 4, 7, 8, 10, 15}
print('values: '..table.concat(values, ','))
local a, b = some_magic(values)
print('a: '..table.concat(a, ','))
print('b: '..table.concat(b, ','))
------------- Output: ------------
values: 4,4,7,8,10,15
a: 4,4,15
b: 7,8,10