lean2/tests/lua/big.lua
Leonardo de Moura 691893258d feat(kernel/expr): add hash code based on allocation time
The new hash code has the property that given expr_cell * c1 and expr_cell * c2,
if c1 != c2 then there is a high propbability that c1->hash_alloc() != c2->hash_alloc().

The structural hash code hash() does not have this property because we may have
c1 != c2, but c1 and c2 are structurally equal.

The new hash code is only compatible with pointer equality.
By compatible we mean, if c1 == c2, then c1->hash_alloc() == c2->hash_alloc().
This property is obvious because hash_alloc() does not have side-effects.

The test tests/lua/big.lua exposes the problem fixed by this commit.

Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
2013-11-14 02:43:11 -08:00

21 lines
352 B
Lua

f, a, b = Consts("f, a, b")
nodes = {}
function mk_big(num)
local r
if num == 0 then
r = f(a, b)
else
r = f(mk_big(num-1), mk_big(num-1))
end
return r
end
function size(e)
local r = 0
e:for_each(function(e, o) assert(e:is_app() or e:is_constant()); r = r + 1 end)
return r
end
local F = mk_big(14)
print(size(F))