luau/bench/gc/test_GC_Tree_Pruning_Lazy.lua

local function prequire(name) local success, result = pcall(require, name); return success and result end
local bench = script and require(script.Parent.bench_support) or prequire("bench_support") or require("../bench_support")

function test()
    local count = 1

    local function fill_tree(tree, levels)
        local left = tree.left;
        local right = tree.right;
    
        if not left then
            left = { id = count }
            count = count + 1
        end
    
        if not right then
            right = { id = count }
            count = count + 1
        end
    
        if levels ~= 0 then
            fill_tree(left, levels - 1)
            fill_tree(right, levels - 1)
        end
    
        tree.left = left;
        tree.right = right;
    end
    
    local function prune_tree(tree, level)
        if tree.left then
            if math.random() > 0.9 - level * 0.05 then
                tree.left = nil
            else
                prune_tree(tree.left, level + 1)
            end
        end

        if tree.right then
            if math.random() > 0.9 - level * 0.05 then
                tree.right = nil
            else
                prune_tree(tree.right, level + 1)
            end
        end
    end

    local tree = { id = 0 }

	for i = 1,100 do
		fill_tree(tree, 10)

		prune_tree(tree, 0)
	end
end

bench.runCode(test, "GC: tree pruning (lazy fill)")