প্রধান গুণাবলী মধ্যে পুরষ্কার


9

আমি পিপিসিজিতে আরও একটি প্রধান চ্যালেঞ্জ আসতে দেখলাম এবং আমি কিছু প্রাইমকে ভালবাসি। তারপরে আমি প্রবর্তনীয় পাঠ্যটি ভুলভাবে পড়েছি এবং ভাবলাম যে এখানে সৃজনশীল মস্তিষ্কগুলি কী নিয়ে এসেছিল।

দেখা যাচ্ছে যে উত্থাপিত প্রশ্নটি ছিল তুচ্ছ, তবে আমি ভাবছি যে আমি (ভুল) পড়েছি এমন প্রশ্নের ক্ষেত্রেও এটি একই কিনা:


6 টি 2 ^ 1 * 3 ^ 1 দ্বারা প্রতিনিধিত্ব করা যেতে পারে, এবং 50 টি 2 ^ 1 * 5 ^ 2 দ্বারা প্রতিনিধিত্ব করতে পারে (যেখানে on ক্ষয়ক্ষতি নির্দেশ করে)।

তোমার কাজ:

কোনও সংখ্যার এই উপস্থাপনায় কতগুলি স্বতন্ত্র প্রাইম রয়েছে তা নির্ধারণ করতে একটি প্রোগ্রাম বা ফাংশন লিখুন ।

ইনপুট:

একটি পূর্ণসংখ্যা এন যেমন 1 <n <10 ^ 12, যে কোনও সাধারণ পদ্ধতিতে নেওয়া।

আউটপুট:

এন এর অনন্য মৌলিক উপাদানগুলির প্রতিনিধিত্ব করতে প্রয়োজনীয় স্বতন্ত্র প্রাইমের সংখ্যা ।

পরীক্ষার কেস:

Input      Factorisation      Unique primes in factorisation representation
24         2^3*3^1            2 (2, 3)
126        2^1*3^2*7^1        3 (2, 3, 7)
8          2^3                2 (2, 3)
64         2^6                1 (2) (6 doesn't get factorised further)
72         2^3*3^2            2 (2, 3)
8640       2^6*3^3*5^1        3 (2, 3, 5)
317011968  2^11*3^5*7^2*13^1  6 (2, 3, 5, 7, 11, 13)
27         3^3                1 (3)

এটি কোনও OEIS ক্রম নয়।

স্কোরিং:

এই , সর্বনিম্ন স্কোর বাইট জেতে!


এর জন্য প্রত্যাশিত ফলাফল কী 64? এটি কি 2 (2,3)(6 হিসাবে 2 * 3 হিসাবে উপস্থাপিত হতে পারে) বা 1 (2)(6 টি উপেক্ষা করুন)?
এমিগানা

জন্য 64প্রত্যাশিত ফলাফলের 1 (2) হয়। আমি এটি পুনরাবৃত্তভাবে করার ধারণা পছন্দ করি তবে এটি মূল প্রশ্নটি পড়ার উপায় নয়। আমি ভেবেছিলাম 8640একটি উপযুক্ত পরীক্ষার কেস, তবে আরও স্পষ্ট হওয়া উচিত ছিল - ধন্যবাদ।
pbeentje

আপনি দাবি এটি একটি OEIS ক্রম নয়। এটি কি A001221 নয়, (ছোট) ওমেগা ফাংশনের মান?
গ্রে টেইলর

A001221 অনুরূপ, তবে ব্যায়ামটিকে এই অনুশীলনে প্রধান হিসাবে অন্তর্ভুক্ত করার কারণে এটি 8 এবং 9 (এখানে 2, A001221 1) পদে বিভক্ত হওয়া শুরু করে।
pbeentje

আহ আমি দেখি. প্রাইম ফ্যাক্টরিজেশন লিখুন, তারপরে দেখুন আমি কতগুলি পৃথক প্রাইম লিখেছি (তারা যে ভূমিকা পালন করেছিল তা নির্বিশেষে)। আমি অবাক হই যে আপনি যদি আরও একধাপ এগিয়ে যান এবং ঘটনাকারীকে অনুমান করেন ...
গ্রে টেলর

উত্তর:


5

গণিত, 39 বাইট

Count[Union@@FactorInteger@#,_?PrimeQ]&

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

মার্টিন ইন্ডারকে (-11 বাইট) ধন্যবাদ


CasesSelect(-4 বাইট) এর চেয়ে সংক্ষিপ্ত Tr[1^Union@Cases[FactorInteger@#,_?PrimeQ,2]]&
আকারে পরিণত

কীভাবে Count[Union@@FactorInteger@#,_?PrimeQ]&? (না সব পরীক্ষার বিষয় পরীক্ষা করা।)
মার্টিন Ender

@ মার্টিনএেন্ডার মনে হয় এটির কাজ করা উচিত। সমস্ত পরীক্ষার কেসও পাস করে।
JungHwan Min

5

05 এ বি 1 ই , 9 7 বাইট

কেভিন ক্রুইজসেনকে 2 বাইট সংরক্ষণ করা হয়েছে

ÓsfìÙpO

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

ব্যাখ্যা

Ó        # push the prime factor exponents of the input
 sfì     # prepend the prime factors of the input
    Ù    # remove duplicates
     p   # check each if it is prime
      O  # sum

1
-1 €pOপ্রধান উপাদান এবং ÓsfìÙ€pO
উদ্দীপকগুলিকে

@ কেভিন ক্রুজসেন: ধন্যবাদ! প্রয়োজন নেই যেহেতু আসলে 2 সংরক্ষণ করে ।
এমিগিনা

আহ, অবশ্যই .. বাহ, আমি কীভাবে এটি মিস করেছি তা নিশ্চিত নয়, হা হা এক্সডি
কেভিন ক্রুইজসেন


4

জেলি ,  9  7 বাইট

ÆFFQÆPS

এটি অনলাইন চেষ্টা করুন! অথবা পরীক্ষার স্যুটটি পরীক্ষা করে দেখুন।

কিভাবে?

FFFQÆPS ~ সম্পূর্ণ প্রোগ্রাম।

PrimeF ~ প্রাইম ফ্যাক্টরিজেশন হিসাবে [প্রধান, ঘনিষ্ঠ] জোড়।
  এফ ~ ফ্ল্যাটেন
   প্রশ্ন ~ অনুলিপি।
    ÆP each প্রত্যেকের জন্য, এটি প্রধান কিনা তা পরীক্ষা করে দেখুন। 1 যদি সত্য হয়, 0 মিথ্যা হলে।
      এস ~ সম

4

গাইয়া , 6 বাইট

ḋ_uṗ¦Σ

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


  • প্রাইম ফ্যাক্টরাইজেশন গণনা করে, [প্রাইম, এক্সপোনেন্ট] পেয়ার হিসাবে।

  • _ তালিকা সমতল।

  • u সদৃশ উপাদানগুলি সরিয়ে দেয়।

  • ṗ¦উপাদানগুলির মাধ্যমে মানচিত্রগুলি এবং কোনও প্রাইম সন্ধান পেলে 1 প্রদান করে , অন্যথায় 0

  • Σ তালিকা যোগফল।


3

সিজেএম (১৩ বাইট)

{mFe__&:mp1b}

অনলাইন পরীক্ষা স্যুট

এটি বেশ সোজা ward

দুঃখের সাথে মার্টিন এমন কিছু কেস দেখিয়েছেন যা আমার মূল উত্তরে মৃদু আকর্ষণীয় কৌতুক দ্বারা পরিচালিত হয়নি, যদিও তিনি একটি বাইট সাশ্রয় দিয়েছিলেন যেহেতু ফিল্টার করার পরিবর্তে mpদেয় 0বা 1এটি ম্যাপ করা যায় obser










0

জে, 20 বাইট

3 :'+/1 p:~.,__ q:y'

হাত লোল দ্বারা গণনা করা, তাই যদি এটি বন্ধ থাকে তবে আমাকে বলুন।

কোন গল্ফ পরামর্শ?

বিরক্তিকর জমা: প্রাইম ফ্যাক্টরীকরণের টেবিলটি সমতল করুন এবং প্রাইমগুলি গণনা করুন।



0

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

n=>{for(a=[b=l=0],q=n,d=2;q>=2;)q%d?(b&&(a.push(0),l++),d++,b=0):(q/=d,a[l]++,b=1);for(i in a){for(d=1,e=a[i];e%d;d++);e-d||n%e&&l++};return l+1}
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.