نقل قول نوشته شده توسط فرید نجفلو مشاهده تاپیک
از توجه تون ممنون

\

مهمترین بخش متد دومه(MultiplyListAndInt)

این تابع یک لیست رو در یک عدد ضرب می کنه!
در وقع من عمل ضرب سنتی رو انجام میدم!


مگه اگورتیم من مشکلی داره؟
با روش شما هم سربار CPU و هم مقدار استفاده از حافظه به شدت بالا میره
همون طور که دید من تنها و فقط از یک لیست استفاده کردم (کم حجمتر از این؟!!)

اگه می خواید تک تک فاکتوریل ها رو به صورت پشت سر هم ببنید :
در تابع Fact بعد از خط زیر(داخل حلقه):

MultiplyListAndInt(ResultNumSet, i)


این خطوط رو اضافه کنید:

Dim aFact As String = ""

            For Each Digit As Byte In ResultNumSet

                aFact &= CStr(CInt(Digit))

            Next

        rtxRes.Text &=rtxRes.Text &  aFact & VbNewLine


باز اگه جایی ابهام هست من در خدمتم
بخوایم تعداد مثلا ۶ ها رو در ۱۰۰۰ فاکتوریل حساب کنیم باید چیکار کرد؟