ধারাবাহিক পুরষ্কার পণ্য

Question

স্যান্ডবক্সে জমা দেওয়ার সময় হিসাবে, আমার 17017 খ্যাতি ছিল, যা আপনি সকলেই 7 × 11 × 13 × 17 হিসাবে টানা 4 প্রাইমসের পণ্য হিসাবে অনুকরণ করতে সক্ষম হবেন।

একটি ইনপুট পূর্ণসংখ্যা পর্যন্ত দুই বা ততোধিক ক্রমাগত প্রাইমের সমস্ত পণ্য আউটপুট করতে দয়া করে একটি ফাংশন বা প্রোগ্রাম লিখুন n। উদাহরণস্বরূপ, আপনার দেওয়া n=143উচিত আউটপুট 6, 15, 30, 35, 77, 105, 143(বা সমমানের আউটপুট ফর্ম্যাট) should

I / O এবং লুফোলের উপর সাধারণ বিধিনিষেধগুলি প্রযোজ্য।

এটি কোড-গল্ফ , তাই সংক্ষিপ্ততম প্রোগ্রামটি জয়ী।

Comments

oeis.org/A097889

— রবার্ট ফ্রেজার

আউটপুট বাছাই করা উচিত বা না?

— ফলশালী করুন

@ ফ্যাটালাইজ আমি এটি বাছাই করার অর্থ দিয়েছিলাম, তবে আমি দেখতে পাচ্ছি যে আমি এটি যথেষ্ট ভালভাবে নির্দিষ্ট করেছিলাম না এবং ইতিমধ্যে বেশ কয়েকটি উত্তর রয়েছে যা একটি সাজানো তালিকার আউটপুট দেয় না।

— নীল

Answer 1

জেলি , 14 10 বাইট

(এখানে করার মতো কোনও গল্ফ নেই! - হ্যাঁ ...)
-4 বাইটস @ ডেনিসকে ধন্যবাদ - একটি ব্যাপ্তি ব্যবহার করে এন এর চেয়ে বড় চেক প্রতিস্থাপন করুন

ÆRẆP€ḟÆRfR

দ্রষ্টব্য - এটি উভয়ই চূড়ান্তভাবে অদক্ষ এবং ফলাফলগুলি সাজানো হয়েছে।

এটি ট্রাইটঅনলাইনে পরীক্ষা করুন

কিভাবে?

ÆRẆP€ḟÆRfR - main link takes an argument, n
ÆR    ÆR   - primes up to n
  Ẇ        - all sublists
   P€      - product for each
     ḟ     - filter out the primes (since the sublists include those of lnegth 1)
        fR - filter out any not in range [1,N]
             (yep, it's calculating all products of primes up to n - gross)

Comments

আপনার দরকার নেই µএবং ³; >Ðḟনিজের উপর ঠিক কাজ করে। fRএমনকি আরও খাটো।

— ডেনিস

@ ডেনিস - আপনার উচ্চতর পদ্ধতির জন্য আমি অপেক্ষা করছি। ধন্যবাদ!

— জোনাথন অ্যালান

Answer 2

এমএটিএল , 25 20 বাইট

Zq&Xf"@gnq?2MpG>~?6M

জোনাথন অ্যালান এর উত্তরের অনুরূপ পন্থা ।

এটি অনলাইন চেষ্টা করুন!

---

পুরানো সংস্করণ, 25 বাইট

:YF!"@2<@sq0@0hhdz2=v?X@D

এটি 1ইনপুট থেকে সমস্ত সংখ্যার জন্য মৌলিক ফ্যাক্টরের পঁচনের ক্ষতিকারকগুলি অর্জন করে । প্রতিটি এটি পরীক্ষা করে:

1. সমস্ত এক্সটেনশন যদি কম হয় 2।
2. যদি সমস্ত প্রকাশকের যোগফল 1 এর চেয়ে বেশি হয়।
3. প্রতিটি প্রান্তে অতিরিক্ত শূন্যের সাহায্যে এক্সপোজারগুলির অ্যারে প্রসারিত করা হয়। বর্ধিত অ্যারের একটানা পার্থক্য গণনা করা হয়। ঠিক 2 ননজারো পার্থক্য থাকা উচিত।

তিনটি শর্ত পূরণ হলে সংখ্যাটি প্রদর্শিত হয়। ফলাফলগুলি incresing ক্রমে হয়।

Answer 3

জাভাস্ক্রিপ্ট (ES6), 105 104 বাইট

n=>{for(i=1,P=[];i++<n;P[P.every(v=>i%v)?i:n]=i);P.map(i=>P.map(j=>j>i&&(p*=j)<=n&&console.log(p),p=i))}

ডেমো

var f =
n=>{for(i=1,P=[];i++<n;P[P.every(v=>i%v)?i:n]=i);P.map(i=>P.map(j=>j>i&&(p*=j)<=n&&console.log(p),p=i))}

f(143)

Answer 4

05 এ বি 1 ই , 17 15 বাইট

L<ØŒ€PD¹>‹ÏDp_Ï

ব্যাখ্যা

L<Ø                 # get the first N primes, where N is the input
   Π               # get all combinations of consecutive primes
    €P              # calculate the product of these sublists
      D¹>‹Ï         # keep only the products less than or equal to N
           Dp_Ï     # keep only those that aren't prime

এটি অনলাইন চেষ্টা করুন!

Answer 5

পাইথ, 18 বাইট

f}PTftlY.:fP_YSQ)S

একটি প্রোগ্রাম যা STDIN- তে একটি পূর্ণসংখ্যার ইনপুট নেয় এবং পূর্ণসংখ্যার একটি তালিকা মুদ্রণ করে।

এটি অনলাইনে চেষ্টা করুন

কিভাবে এটা কাজ করে

f}PTftlY.:fP_YSQ)S  Program. Input: Q
              SQ    Yield [1, 2, 3, ..., Q]
          fP_Y      Filter that by primality
        .:      )   Yield all sublists of that
    f               Filter the sublists by:
      lY             Length
     t               -1
                    removing sublists of length 1
f                S  Filter [1, 2, 3, ..., Q] (implicit input fill) by:
  PT                 Prime factorisation
 }                   is in the sublists
                    Implicitly print

Answer 6

জেলি , 11 বাইট

ÆfÆCI=1Ȧµ€T

সংক্ষিপ্ত জেলি উত্তর নয়, তবে এই পদ্ধতির পরিবর্তে দক্ষ এবং আউটপুটটি সাজানো হয়েছে।

এটি অনলাইন চেষ্টা করুন!

কিভাবে এটা কাজ করে

ÆfÆCI=1Ȧµ€T  Main link. Argument: n

        µ€   Map the preceding chain over each k in [1, ..., n].
Æf             Compute all prime factors of k, with multiplicities.
  ÆC           Count the number of primes less than or equal to each prime factor.
               This maps the j-th to j.
    I          Increments; compute the forward differences of consecutive indices.
     =1        Compare each difference with 1.
       Ȧ       All; return 1 iff the array is non-empty and has no zeroes.
          T  Truth; yield all indices for which the chain returned 1.