B4X FEED - Finding primes | انجمن کاربردی (گروه آموزشی الغدیر)

practicalsoft · 2020-07-19T14:43:30+00:00

B4X: Sub Process_Globals Private numbers(10000000) As Boolean Private primes As List End Sub Sub AppStart (Args() As String) Dim n As Long = DateTime.Now primes.Initialize For i = 2 To numbers.Length - 1 If numbers(i) = False Then primes.Add(i) For i2 = 2 * i To numbers.Length - 1 Step i numbers(i2) = True Next End If Next Log($"took: ${DateTime.Now - n} ms"$) Log("number of primes: " & primes.Size) Log("last 20 primes") For i = primes.Size - 21 To primes.Size - 1 Log(primes.Get(i)) Next End Sub Takes 118 milliseconds to find all primes smaller than 10,000,000. Takes 42 seconds to find all primes smaller than 1,000,000,000. ادامه مطلب...

practicalsoft

پرسنل مدیریت

مدیر کل انجمن

Jul 19, 2020

B4X:

کد:

محتوای بلوک کدها در دسترس شما نیست. برای مشاهده بلوک کدها، وارد انجمن شوید یاثبت نام کنید

Takes 118 milliseconds to find all primes smaller than 10,000,000.
Takes 42 seconds to find all primes smaller than 1,000,000,000.

برای دیدن لینک ها باید ثبت نام کنید

اعلامیه حق چاپ

1. این انجمن تحت قوانین جمهوری اسلامی ایران اداره میشود؛
2. در موقع ثبت نام قوانین انجمن را پذیرفته اید اما پیشنهاد میشود قبل از هرگونه فعالیت قوانین را مرور بفرمایید؛
3. مسئولیت کلیه مطالب منتشر شده در این انجمن متعلق به نویسنده اصلی است که بیانگر دیدگاه های شخصی است و ربطی به این انجمن ندارد؛
4. بدون اجازه نویسنده این پست، سایر انجمن ها وبسایت و وبلاگها و افراد مجاز به استفاده، ونشر مجدد یا نقل قول از این مطالب نیستند، ودر این صورت تخلف تلقی می شود؛
5. برای نشر یا نقل مطالب این مقاله لطفا منبع و نویسنده اصلی را ذکر کنید. نویسنده اصلی و این انجمن حق نشر را برای خود محفوظ می دارد.
6. لطفا و حتما از ارسال مطالب تبلیغاتی و اسپم در انجمن خودداری فرمایید

B4X FEED Finding primes

اطلاعات موضوع

practicalsoft