• Subject: Re: [FUN] Compress number in 2 bytes
• From: Xmilia Hermit <xmilia.hermit@...>
• Date: Fri, 2 Jul 2021 20:58:18 +0200

On Fri, Jul 2, 2021 at 18:51 Egor Skriptunoff wrote:

It gives me Decode(Encode(1))==3 when I try it on the Lua demo page.

Seems to be caused by a change in the integer hash algorithm. Changed the code accordingly to detect the old and new hash algorithm and tested it on Lua demo page too.

-- compressor.lua
local num_bits = 64

local function Encode(what)
local tab = {}
for i = 3, num_bits * 4 + 4, 2 do
tab[i] = 1
end
local top = num_bits * 4 - 4
for i = 1, num_bits do
if (what & (1 << (i - 1))) ~= 0 then
tab[top] = 1
end
top = top - 2
end
for k, v in pairs(tab) do
tab[k] = nil
end
return tab
end

return Encode(...)

-- decompressor.lua
local num_bits = 64

function Decode(tab)
for i = 3, num_bits * 4 + 4, 2 do
tab[i] = 1
end
local pow2 = next(tab, num_bits * 4 - 3) == num_bits * 4 + 3
local top = num_bits * 4 - 5
local step = (num_bits * 4) - (pow2 and 0 or 1)
tab[step * 2] = 1
tab[step * 3] = 2
if not pow2 then
tab[step * 4] = 2
end
local num = 0
for i = 1, num_bits do
local k, v = next(tab, top)
if v == 1 then
num = num | (1 << (i - 1))
else
tab[step * (i + 4)] = 2
end
top = top - 2
end
return num
end

return Decode(...)

Regards,
Xmilia