func.erl

-module(func).

-export([go/4]).


go(Child, Acc, Depth, Limit) ->
	{SeenAcc, LimitPosAcc, ChildAcc, BranchAcc} = Acc,
	case couch_key_tree:stem_tree(Depth + 1, Child, Limit, SeenAcc) of
		{NewSeenAcc, LimitPos, NewChild, NewBranches} ->
			NewLimitPosAcc = erlang:max(LimitPos, LimitPosAcc),
			NewChildAcc = [NewChild | ChildAcc],
			NewBranchAcc = NewBranches ++ BranchAcc,
			{NewSeenAcc, NewLimitPosAcc, NewChildAcc, NewBranchAcc};
		{NewSeenAcc, LimitPos, NewBranches} ->
			NewLimitPosAcc = erlang:max(LimitPos, LimitPosAcc),
			NewBranchAcc = NewBranches ++ BranchAcc,
			{NewSeenAcc, NewLimitPosAcc, ChildAcc, NewBranchAcc}
	end.