Jag undrar hur man på mest simpelt sätt gör så att ett inmatat nummer (i mitt fall är det 4 siffror) blir utskrivet i alla möjliga siffer-kombinationer.
Skulle kunna köra en random som sparar ner möjliga kombinationer i en array och kör tills arrayen blir full men det känns inte som bra programering :)
getCombinations "1234"
sub getCombinations(value)
set dict=Server.CreateObject("Scripting.Dictionary")
getSubCombinations value,len(value),"",dict
for each item in dict
response.write item & "<br>"
next
end sub
sub getSubCombinations(value,targetlen,accum,dict)
if len(accum)=targetlen then
dict(accum)=""
else
for i=1 to len(value)
getSubCombinations left(value,i-1) & mid(value,i+1),targetlen,accum & mid(value,i,1),dict
next
end if
end sub
