lean2/tests/lua/slow/t1.lua

13 lines
285 B
Lua
Raw Normal View History

function mk_big(f, depth, val)
if depth == 1 then
return Const{"foo", val}
else
return f(mk_big(f, depth - 1, 2 * val), mk_big(f, depth - 1, 2 * val + 1))
end
end
local f = Const("f")
local r1 = mk_big(f, 20, 0)
local r2 = mk_big(f, 20, 0)
assert(r1 == r2)