মৌলিক গুণক দ্বারা একটি সংখ্যার বিভাজকগুলি বাছাই করুন

23

একটি পূর্ণসংখ্যা ≥ 2 এর একটি ইনপুট দেওয়া হয়, তার বিভক্তকারীদের তাদের প্রধান কারণগুলির ভিত্তিতে সাজানো তার বিভাজকগুলির একটি তালিকা আউটপুট করুন, ক্রমবর্ধমান ক্রমে, প্রথমে বৃহত্তম প্রধান দ্বারা অর্ডার করুন, তারপরে দ্বিতীয় বৃহত্তম দ্বারা, এবং আরও।

উদাহরণ হিসাবে, পূর্ণসংখ্যা 72 নিন, যা 2 3 3 2 । এটির বিভাজন রয়েছে

1     3^0 · 2^0
2     3^0 · 2^1
3     3^1 · 2^0
4     3^0 · 2^2
6     3^1 · 2^1
8     3^0 · 2^3
9     3^2 · 2^0
12    3^1 · 2^2
18    3^2 · 2^1
24    3^1 · 2^3
36    3^2 · 2^2
72    3^2 · 2^3

বড় উপাদানগুলি অগ্রাধিকার গ্রহণ করে মূল উপাদানগুলির উপর নির্ভরকারীদের দ্বারা আরোহী ক্রম অনুসারে বাছাই করার পরে এটি হয়ে যায়

1     3^0 · 2^0
2     3^0 · 2^1
4     3^0 · 2^2
8     3^0 · 2^3
3     3^1 · 2^0
6     3^1 · 2^1
12    3^1 · 2^2
24    3^1 · 2^3
9     3^2 · 2^0
18    3^2 · 2^1
36    3^2 · 2^2
72    3^2 · 2^3

নোট করুন যে তালিকাটি প্রথমে 3 এর ব্যয়কারীর ক্রম অনুসারে এবং পরে 2 এর সূচক দ্বারা সাজানো হয়েছে আপনি নীচের গ্রিড জুড়ে বাম থেকে ডান এবং নীচে থেকে নীচে পড়া হিসাবে এটি ভাবতে পারেন:

        2^0  2^1  2^2  2^3

3^0     1    2    4    8
3^1     3    6    12   24
3^2     9    18   36   72

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

2 => 1 2
72 => 1 2 4 8 3 6 12 24 9 18 36 72
101 => 1 101
360 => 1 2 4 8 3 6 12 24 9 18 36 72 5 10 20 40 15 30 60 120 45 90 180 360
3780 => 1 2 4 3 6 12 9 18 36 27 54 108 5 10 20 15 30 60 45 90 180 135 270 540 7 14 28 21 42 84 63 126 252 189 378 756 35 70 140 105 210 420 315 630 1260 945 1890 3780
30030 => 1 2 3 6 5 10 15 30 7 14 21 42 35 70 105 210 11 22 33 66 55 110 165 330 77 154 231 462 385 770 1155 2310 13 26 39 78 65 130 195 390 91 182 273 546 455 910 1365 2730 143 286 429 858 715 1430 2145 4290 1001 2002 3003 6006 5005 10010 15015 30030
65536 => 1 2 4 8 16 32 64 128 256 512 1024 2048 4096 8192 16384 32768 65536
74088 => 1 2 4 8 3 6 12 24 9 18 36 72 27 54 108 216 7 14 28 56 21 42 84 168 63 126 252 504 189 378 756 1512 49 98 196 392 147 294 588 1176 441 882 1764 3528 1323 2646 5292 10584 343 686 1372 2744 1029 2058 4116 8232 3087 6174 12348 24696 9261 18522 37044 74088

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

code-golf  math  number  primes 
— ডোরকনব
সূত্র

উত্তর:

8

জেলি , 8 7 বাইট

ÆDÆfU$Þ

এটি অনলাইন চেষ্টা করুন! -1 বাইটের জন্য @ ডেনিসকে ধন্যবাদ

ÆD         Array of divisors, e.g. 24 -> [1, 2, 4, 8, 3, 6, 12, 24]
      Þ    Sort by...
     $       Combine previous two links...
  Æf           Factorise each, e.g. ['', [2], [3], [2, 2], [2, 3], [2, 2, 2],
                   [2, 2, 3], [2, 2, 2, 3]]
    U          Upend/reverse each sublist
— Sp3000
সূত্র
2
ÆDÆfU$Þ(জেলির নতুন বাছাই করে ব্যবহার করে), একটি বাইট সংরক্ষণ করে।
— ডেনিস
7

পাইথ, 10 বাইট

+1{*Mt_DyP

অনলাইনে চেষ্টা করুন: বিক্ষোভ

দুঃখের বিষয় একটি খালি তালিকার উপরের পণ্যটি পাইথের 1 হিসাবে সংজ্ঞায়িত করা হয়নি। এর জন্য তিনটি অতিরিক্ত বাইট খরচ হয়।

ব্যাখ্যা:

+1{*Mt_DyPQ   implicit Q (=input number) at the end
         PQ   prime factorization of input
        y     powerset
      _D      order by reversed subsets
     t        remove the empy subset
   *M         compute the product of each subsets
  {           remove duplicates
+1            prepend 1
— Jakube
সূত্র
7

জেলি , 12 10 বাইট

@ স্প3000 কে 2 বাইট ধন্যবাদ।

ÆE'ḶUṚŒpUṚÆẸ
ÆEU'ḶŒpUÆẸ

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

পরীক্ষা স্যুট.

ÆE            Array of exponents, e.g. 24 -> [3, 1] since 24 = 2^3*3^1
  U           Upend/reverse, e.g. [1, 3]
   ‘Ḷ         Range of each, from 0, e.g. [[0, 1], [0, 1, 2, 3]]
     Œp       Cartesian product, e.g. [[0, 0], [0, 1], ..., [1, 3]]
       U      Upend, reversing the innermost lists
        ÆẸ    Inverse of ÆE, converting exponents back into a number

ব্যাখ্যার ফর্ম্যাটটি আসার জন্য ক্রেডিটগুলি @ স্প3000

— ফুটো নুন
সূত্র
7

পাইথন 2, 85 বাইট

n=input()
p,=L=[1]
while~-n:
 l=L;p+=1
 while n%p<1:L=l+[x*p for x in L];n/=p
print L

কোন ফ্যাক্টরীকরণ, কোন বাছাই। একই দৈর্ঘ্যের পুনরাবৃত্তিমূলক বাস্তবায়ন:

f=lambda n,p=2:1/n*[1]or n%p and f(n,p+1)or[x*c for x in f(n/p)for c in[1,p][x%p<1:]]
— xnor
সূত্র
5

আসলে, 19 বাইট

;÷#o♂w♂RS`"iⁿ"£Mπ`M

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

ব্যাখ্যা:

;÷#o♂w♂RS`"iⁿ"£Mπ`M
;                    duplicate input
 ÷                   divisors
  #o                 include input in divisors list (note to self: fix this bug)
    ♂w               factor each integer into a list of [prime, exponent] pairs
      ♂R             reverse each list, so that the largest prime comes first
        S            sort the list
         `"iⁿ"£Mπ`M  for each factorization:
          "iⁿ"£M       for each [prime, exponent] pair:
           iⁿ            push prime**exponent
                π      product
— ঐ মেগো
সূত্র
5

জাভাস্ক্রিপ্ট, 78 বাইট

f=(n,p=2,a=[1],b=a)=>n<2?a:n%p?f(n,p+1,a):f(n/p,p,a.concat(b=b.map(m=>m*p)),b)

@ Xnor এর ধারণার ভিত্তিতে, যদিও আমি তার কোডটি বুঝতে পারি নি তাই আমাকে এটি স্ক্র্যাচ থেকে পুনরায় প্রয়োগ করতে হয়েছিল। বেসিক অ্যালগরিদমটি হ'ল আপনি [১] দিয়ে শুরু করুন এবং এন এর মূল গুণককরণের প্রতিটি পিএর জন্য [1, ..., pᵏ] দিয়ে গুণ করুন, যদিও আমার কাছে প্রাথমিক গুণক বা কার্তেসিয়ান পণ্য না থাকায় এটি করতে হবে সব পুনরাবৃত্তি। উদাহরণ:

n=72 p=2 a=[1] b=[1]
n=36 p=2 a=[1,2] b=[2]
n=18 p=2 a=[1,2,4] b=[4]
 n=9 p=2 a=[1,2,4,8] b=[8]
 n=9 p=3 a=[1,2,4,8] b=[1,2,4,8]
 n=3 p=3 a=[1,2,4,8,3,6,12,24] b=[3,6,12,24]
 n=1 p=3 a=[1,2,4,8,3,6,12,24,9,18,36,72] b=[9,18,36,72]
— নিল
সূত্র
আপনি যখন 10 কে তখন সবেমাত্র মনে হয়েছে .. এখন প্রায় 14 ক। এটা বজায় রাখা!!
— নিকক নিউম্যান
2

আর, 196 বাইট

n=scan()
if(n<4)c(1,n)else{
r=2:n
d=NULL
while(n>1){i=r[min(which(n%%r==0))];d=c(d,i);n=n/i}
m=unique(d)
b=table(d)
l=list()
for(i in 1:length(m))l[[i]]=m[i]^(0:b[i])
apply(expand.grid(l),1,prod)}

এটি হ্যাক হিসাবে অকার্যকর হতে চলেছে কারণ আমি ব্যবহারের প্রলোভনকে খুব কমই প্রতিহত করেছি library(primes)। এটি dইনপুটটির সমস্ত মৌলিক কারণগুলির একটি ভেক্টর তৈরি করে , তাদের ফ্রিকোয়েন্সি (সংঘটনগুলির সংখ্যা) গণনা করে এবং তারপরে সমস্ত সম্ভাব্য শক্তির কার্টেসিয়ান পণ্যকে (0 থেকে সম্পর্কিত ফ্রিকোয়েন্সি পর্যন্ত b[i]) গণনা করে , যেখানে prodফাংশন প্রয়োগ করা হয়। এটি ডাং, বিশেষ মামলা 2 এবং 3! অন্যথায়, এটি আর ডেটাফ্রেম হ্যান্ডলিং এবং ভেক্টর ফাংশনগুলি / বাই-সারির ক্রিয়াকলাপগুলির (এবং এমনকি খাঁটি পরিসংখ্যানীয় tableফাংশন!) এর একটি দুর্দান্ত শোকেস ।

অবশ্যই, r=2:ceiling(sqrt(n))যদি কেউ যত্নশীল হন তবে 15 বাইট ব্যবহার করে এর দক্ষতা উন্নত করা যেতে পারে । এখানে একটি সুন্দর অবারিত সংস্করণ:

factorise <- function(n){
  if (n<4) c(1,n) else { # Now that all special cases have been handled
    r=2:ceiling(sqrt(n)) # We check all divisors smaller than the square root
    d=NULL # Initiate the variable for divisors
    while (n>1) {
      i=r[min(which(n%%r==0))] # Check the first divisor with a zero remainder
      d=c(d,i) # Append it to the list of divisors
      n=n/i   # Divide by it and check again
    }
    m=unique(d) # Get unique divisors, and they are already sorted
    b=table(d) # Count their frequencies
    l=list() # Initiate a list of all possible powers of unique factors
    for(i in 1:length(m)) l[[i]]=m[i]^(0:b[i]) # Calculate powers
    apply(expand.grid(l),1,prod) # Make a cartesian dataframe and row-multiply
  }
}
— আন্ড্রে কোস্টায়ারকা
সূত্র
2

গণিত 150 বাইট

f[t_]:=Thread@{#,IntegerExponent[t,#]&/@#}&@Prime@Range@PrimePi@Max@FactorInteger[t][[All,1]];Times@@@(#^#2&@@@#&/@Sort[Reverse/@(f@#&/@Divisors@#)])&
— মার্টিন
সূত্র
2

ব্র্যাচল্যাগ , 3 বাইট

fḋᵒ

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

কোডটি কমবেশি চ্যালেঞ্জের শিরোনামের মতো পড়বে: "ইনপুটটির কারণগুলি, তাদের প্রধান পচন দ্বারা সাজানো"। এই 3-বাইট সৌন্দর্যটি কেবল ব্র্যাচলগের অন্তর্নির্মিত তালিকাগুলি কীভাবে তালিকাগুলি বাছাই করা যায় তা ব্যবহার করে পরীক্ষার কেসগুলি পাস করেছে তা নিশ্চিত করে আমাকে ক্লোজার আরএপিএলে এই সমস্ত সংখ্যার অনুলিপি এবং পেস্ট করতে হবে, যেখানে তালিকার উপাদানগুলি সাদা স্পেস দ্বারা পৃথক করা হয়েছে এবং কমাগুলি হোয়াইটস্পেস, তবে দেখা গেল যে এটি আসলে কাজ করে।

— সম্পর্কযুক্ত স্ট্রিং
সূত্র
2

এপিএল (ডায়ালগ প্রসারিত) , 17 বাইট

এপিএল শেখার জন্য এবং এপিএল সহায়তা পাওয়ার জন্য দুর্দান্ত জায়গা এপিএল অর্চার্ডে এই দুটি এপিএল প্রোগ্রাম গল্ফ করতে তাদের সহায়তার জন্য এনএনজি এবং অ্যাডামকে অনেক ধন্যবাদ ।

∊×⍀/⌽{⊂×\1,⍵}⌸⍨⍭⎕

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

Ungolfing

∊×⍀/⌽{⊂×\1,⍵}⌸⍨⍭⎕

                ⎕  Gets evaluated input from stdin.
               ⍭   Gives us a list of the prime factors of our input.
                   Example for 720: 2 2 2 2 3 3 5
     {      }⌸⍨    ⌸ groups our prime factors by the keys in the left argument,
                   and ⍨ passes the prime factors as both arguments,
                   grouping all the identical primes together
                   before running a {} dfn on them
      ⊂×\1,⍵       We append 1 to each group, get a list of powers of each prime,
                   and enclose the groups to remove 0s from uneven rows.
    ⌽             This reverses the prime power groups.
 ×⍀/              This multiplies all the powers together into
                   a matrix of the divisors of our input.
                   (Same as ∘.×/ in Dyalog Unicode)
∊                  And this turns the matrix into 
                   a list of divisors sorted by prime factorization.
                   We print implicitly, and we're done.

এপিএল (ডায়ালগ ইউনিকোড) , 29 বাইট এসবিসিএস

{∊∘.×/⌽{⊂×\1,⍵}⌸⍨¯2÷/∪∧\⍵∨⍳⍵}

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

Ungolfing

{∊∘.×/⌽{⊂×\1,⍵}⌸⍨¯2÷/∪∧\⍵∨⍳⍵}

{                           }  A dfn, a function in brackets.
                        ⍵∨⍳⍵   We take the GCD of our input with 
                               all the numbers in range(1, input).
                     ∪∧\       This returns all the unique LCMs of
                               every prefix of our list of GCDs.
                               Example for 72: 1 2 6 12 24 72.
                 ¯2÷/          We divide pairwise (and in reverse)
                               by using a filter window of negative two (¯2).
                               Example for 72: 2 3 2 2 3, our prime factors.
       {      }⌸⍨              ⌸ groups our prime factors by the keys in the left argument,
                               and ⍨ passes the prime factors as both arguments,
                               grouping all the identical primes together
                               before running a {} dfn on them
           1,⍵                 We append 1 to each group.
        ⊂×\                    Then we get a list of powers of each prime,
                               and enclose the groups to remove 0s from uneven rows.
      ⌽                        This reverses the prime power groups.
  ∘.×/                         This multiplies all the powers together into 
                               a matrix of the divisors of our input.
 ∊                             And this turns the matrix into a list of divisors
                               sorted by prime factorization.
                               We return implicitly, and we're done.
— Sherlock9
সূত্র
1

জে, 32 31 বাইট

[:(*/@#~>:#:[:i.[:*/>:)&|./2&p:

ইনপুট পূর্ণসংখ্যার প্রাইমস এবং এক্সপোজারগুলির তালিকাগুলি ধরুন, প্রতিটি বিপরীত করুন এবং সেখান থেকে বিভাজক তৈরি করুন।

ব্যবহার

   f =: [:(*/@#~>:#:[:i.[:*/>:)&|./2&p:
   f 2
1 2
   f 72
1 2 4 8 3 6 12 24 9 18 36 72
   f 101
1 101

ব্যাখ্যা

[:(*/@#~>:#:[:i.[:*/>:)&|./2&p:  Input: n
                           2&p:  Factor n as a list where the first row are the primes
                                 and the second are their exponents
[:                     &|./      Reverse each list
                    >:           Increment each exponent by 1
                [:*/             Reduce it using multiplication
            [:i.                 Construct a range from 0 to that product exclusive
        >:                       The list of each exponent incremented
          #:                     Reduce each number in the previous range as a mixed base
                                 using the incremented exponents
      #~                         For each mixed base value in that range, copy from
                                 the list of primes that many times
   */@                           Reduce the copied primes using multiplication
                                 Return this list of products as the result
— মাইল
সূত্র
1

রুবি, 71 বাইট

এই উত্তরটি এক্সনোর পাইথন 2 উত্তরের উপর ভিত্তি করে।

->n{a,=t=[1];(s=t;a+=1;(t=s+t.map{|z|z*a};n/=a)while n%a<1)while n>1;t}

একই দৈর্ঘ্যের বিকল্পটি হ'ল:

->n{a,=t=[1];(a+=1;(t+=t.map{|z|z*a};n/=a)while n%a<1)while n>1;t.uniq}

Ungolfing:

def f(num)
  factor = 1
  list = [1]
  while num != 1
    s = list
    factor += 1
    while num % factor == 0
      list = s + list.map{|z| z*factor}
      num /= factor
    end
  end
  return list
end

def g(num)
  factor = 1
  list = [1]
  while num != 1
    factor += 1
    while num % factor == 0
      list += list.map{|z| z*factor}
      num /= factor
    end
  end
  return list.uniq
end
— Sherlock9
সূত্র
1

জাপট , 12 9 বাইট

â mk ñÔ®×

-৩ বাইট @ শ্যাগি ধন্যবাদ

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

— Quintec
সূত্র
এটি 9 বাইটের জন্য কাজ করা উচিত।
— শেগি
@ শেগি ওহ হ্যাঁ, ভুলে যাওয়া সহজ ফাংশনগুলি সেভাবে সংজ্ঞায়িত করা উচিত, যদিও আমি এটি কেবলমাত্র ASCII-lol এর জন্য প্রস্তাব দিয়েছিলাম
— কুইনটেক
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.