Giriş

Tek bir tamsayı .$1 \leq x \leq 10^{15}$

Çıktı

ürününe sahip maksimum pozitif tamsayı sayısı .$x$

Örnekler

Girdi: 1099511627776. Çıktı: 9. Olası en uygun faktör listesi: (1, 2, 4, 8, 16, 32, 64, 128, 4096).

Girdi: 127381. Çıktı 4. Olası bir optimal faktör listesi: (1, 17, 59, 127).

Bu eski soru ile ilgili .

Wolfram Dili (Mathematica) , 52 bayt

Max[Length/@Cases[Subsets@Divisors@#,{a__}/;1a==#]]&

Çevrimiçi deneyin!

@Attinat sayesinde 4 byte tasarruf edildi

İşte da 153 byte versiyonu olduğunu hesaplamamakta 1099511627776ve10^15

Max[Length/@Table[s=RandomSample@Flatten[Table@@@FactorInteger[#]];Last@Select[Times@@@TakeList[s,#]&/@IntegerPartitions@Length@s,DuplicateFreeQ],5!]]+1&      

Çevrimiçi deneyin!

İçin sonuç 10^15olduğunu 12

{1, 2, 4, 5, 10, 16, 25, 40, 50, 100, 125, 250}

Wolfram Dili (Mathematica) , 38 bayt

(c=n=#;If[i∣n,n/=i,--c]~Do~{i,n};c)&

Çevrimiçi deneyin!

Açgözlü algoritma. Gibi daha büyük girişlerde TIO zaman aşımına uğradı 1099511627776.

05AB1E , 9 bayt

Çok verimsiz. Çok sayıda bölücüye sahip sayılar için TIO'da zaman aşımına uğrar.

ÑæʒPQ}€gZ

Çevrimiçi deneyin!

açıklama

Ñ          # push a list of divisors of the input
 æ         # push the powerset of that list
  ʒPQ}     # filter, keep only the lists whose product is the input
      €g   # get the length of each
        Z  # take the maximum

Perl 6 , 38 bayt

{$!=$_;+grep {$!%%$_&&($!/=$_)},1..$_}

Çevrimiçi deneyin!

Bölenleri seçmek için açgözlü yaklaşımı benimser.

Javascript (ES6), 39 bayt

f=(n,i=0)=>n%++i?n>i&&f(n,i):1+f(n/i,i)

Muhtemelen buraya ve buraya kaydedilebilecek birkaç bayt var. Sadece açgözlü algoritmayı faktörler için kullanır.

Jöle , 9 bayt

ŒPP=³ƊƇẈṀ

Çevrimiçi deneyin!

Birisi sayesinde -1 bayt

ErikTheOutgolfer sayesinde -2 bayt

Japt -h , 13 bayt

â à f_׶UÃmÊn

Dene

Brachylog , 8 bayt

f;?⟨⊇×⟩l

Çevrimiçi deneyin!

(Saf yaklaşım, {~×≠l}ᶠ⌉bunları ortadan kaldırmadan önce fazladan 1'ler ile sonsuz sayıda çözüm üretir ≠ve böylece aslında sonlandırılamaz. Yine de, aynı bayt sayısı için olduğu için bu bir sorun değildir!)

Girdi değişkeni üzerinden girdi ve çıktı değişkeni üzerinden çıktı alır. TIO'daki başlık, faktör listesinin ne olduğunu göstermek için kodun çoğunun bir kopyasını içerir, ancak bu onsuz mükemmel şekilde çalışır. Yana ⊇ilk büyük sublists verir, bu yüklem aslında diğer birçok cevapları aynı şeyi yapar, ancak açıkça üreten ve faktörlerin tam POWERSET filtreleme olmadan, teşekkürler Backtracking için.

            The output
       l    is the length of
    ⊇       a sublist (the largest satisfying these constraints)
f           of the factors of
            the input
 ; ⟨  ⟩     which
     ×      with its elements multiplied together
  ?         is the input.

Scala , 77 bayt

def f(n:Long)={var(m,c,i)=(n,1,2L);while(i<=m){if(m%i==0){m/=i;c+=1};i+=1};c}

Çevrimiçi deneyin!

Gaia , 10 9 bayt

Π=
dz↑⁇(l

Çevrimiçi deneyin!

Başka bir yerde görüldüğü gibi aynı "algoritma" izler - numaraya eşit ürün ile en uzun bölen güç setini filtre ve uzunluğunu döndürür.

	| helper function
Π=	| is prod(list)==n (implicit)?
	|
	| main function; implicitly takes n
dz	| divisor powerset (in decreasing order of size)
  ↑⁇	| filter by helper function
    (l	| take the first element and take the length (implicitly output)

Deniz tarağı , 15 bayt

p}_`nq#:;qQ@s~Q

TIO bağlantısı çok yakında (dennis çekildiğinde)

Temelde @ Emigna'nın 05AB1E çözümünün bir limanı.

açıklama

                - Implicit Q = first input
p               - Print...
 }              - The last element of...
  _             - Sorted...
   `nq          - Lengths of... (map q => q.len)
           @s   - Items in powerset of
             ~Q - Proper divisors of Q
      #         - Where... (filter)
        ;q      - Product of subset
       :        - Equals...
          Q     - Q

C # (Visual C # Etkileşimli Derleyici) , 54 bayt

int f(int n,int i=0)=>n%++i<1?1+f(n/i,i):n>i?f(n,i):0;

@ Vrugtehagel ve @ JoKing'in cevaplarıyla aynı yaklaşımı kullanır.

Çevrimiçi deneyin!

Ruby , 34 bayt

Açıkçası bu büyük sayı zaman aşımına uğrar, ancak sonunda başka bir makinede yeterli zaman verilirse zaman aşımına uğrar.

->n{(1..n).count{|e|n%e<1?n/=e:p}}

Çevrimiçi deneyin!