optimize "Sky Striker Alternative - Lemnis Gate"

avoid taking too much time to compute combinations when there are a lot of candidate cards
* infer the spell count by subtracting the monster count from the subgroup count, instead of looping through the cards again
* stop looking for more candidate subgroups if the remaining spell count can never match the current monster count (or vice-versa)
* limit the max number of cards that can be selected to be twice whichever is lower between the monster count and the spell count in the full group (which are pre-computed outside the rescon)

Author: that-hatter

pre-release/c101301069.lua

@@ -35,15 +35,24 @@ function s.tdfilter(c,e)
 	return ((c:IsSetCard(SET_SKY_STRIKER_ACE) and c:IsMonster()) or (c:IsSetCard(SET_SKY_STRIKER) and c:IsSpell()))
 		and c:IsAbleToDeck() and c:IsCanBeEffectTarget(e)
 end
-function s.rescon(sg,e,tp,mg)
-	return sg:FilterCount(Card.IsMonster,nil)==sg:FilterCount(Card.IsSpell,nil)
+function s.rescon(full_mct,full_sct)
+	return function(sg,e,tp,mg)
+		local mct=sg:FilterCount(Card.IsMonster,nil)
+		local sct=#sg-mct
+		if mct==sct then return true end
+		local rem_mct=full_mct-mct
+		local rem_sct=full_sct-sct
+		return false,mct>sct and rem_sct<(mct-sct) or rem_mct<(sct-mct)
+	end
 end
 function s.target(e,tp,eg,ep,ev,re,r,rp,chk,chkc)
 	if chkc then return false end
 	local g=Duel.GetMatchingGroup(s.tdfilter,tp,LOCATION_GRAVE,0,nil,e)
-	local ct=#g
-	if chk==0 then return ct>1 and aux.SelectUnselectGroup(g,e,tp,2,2,s.rescon,0) end
-	local tg=aux.SelectUnselectGroup(g,e,tp,2,ct,s.rescon,1,tp,HINTMSG_TODECK,s.rescon)
+	local full_mct=g:FilterCount(Card.IsMonster,nil)
+	local full_sct=#g-full_mct
+	local rescon=s.rescon(full_mct,full_sct)
+	if chk==0 then return full_mct>0 and full_sct>0 and aux.SelectUnselectGroup(g,e,tp,2,2,rescon,0) end
+	local tg=aux.SelectUnselectGroup(g,e,tp,2,math.min(full_mct,full_sct)*2,rescon,1,tp,HINTMSG_TODECK,rescon)
 	Duel.SetTargetCard(tg)
 	Duel.SetOperationInfo(0,CATEGORY_TODECK,tg,#tg,tp,0)
 	Duel.SetPossibleOperationInfo(0,CATEGORY_TOHAND,nil,1,tp,LOCATION_ONFIELD)
@@ -83,4 +92,4 @@ function s.spop(e,tp,eg,ep,ev,re,r,rp)
 	if sc then
 		Duel.LinkSummon(tp,sc)
 	end
-end
+end