Đầu vào

Một số nguyên duy nhất .$1 \leq x \leq 10^{15}$

Đầu ra

Số lượng lớn nhất của số nguyên dương khác biệt có sản phẩm .$x$

Ví dụ

Đầu vào: 1099511627776. Đầu ra: 9. Một danh sách các yếu tố tối ưu có thể là: (1, 2, 4, 8, 16, 32, 64, 128, 4096).

Đầu vào: 127381. Đầu ra 4. Một danh sách các yếu tố tối ưu có thể là: (1, 17, 59, 127).

Liên quan đến câu hỏi cũ này .

Ngôn ngữ Wolfram (Mathicala) , 52 byte

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

Hãy thử trực tuyến!

Lưu 4 byte nhờ @attinat

Đây cũng là một phiên bản 153 byte tính toán 1099511627776và10^15

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

Hãy thử trực tuyến!

Kết quả cho 10^15là 12

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

Ngôn ngữ Wolfram (Mathicala) , 38 byte

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

Hãy thử trực tuyến!

Thuật toán tham lam. Lần ra trên TIO trên các đầu vào lớn hơn như 1099511627776.

05AB1E , 9 byte

Rất kém hiệu quả. Sẽ hết thời gian trên TIO cho các số có số lượng lớn các ước.

ÑæʒPQ}€gZ

Hãy thử trực tuyến!

Giải trình

Ñ          # 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 byte

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

Hãy thử trực tuyến!

Đưa ra cách tiếp cận tham lam để chọn ước.

Javascript (ES6), 39 byte

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

Có lẽ một vài byte có thể được lưu ở đây và ở đó. Chỉ cần sử dụng thuật toán tham lam cho các yếu tố.

Thạch , 9 byte

ŒPP=³ƊƇẈṀ

Hãy thử trực tuyến!

-1 byte nhờ ai đó

-2 byte nhờ ErikTheOutgolfer

Japt -h , 13 byte

â à f_׶UÃmÊn

Thử nó

Brachylog , 8 byte

f;?⟨⊇×⟩l

Hãy thử trực tuyến!

(Cách tiếp cận ngây thơ {~×≠l}ᶠ⌉, tạo ra vô số giải pháp có thêm 1 trước khi loại bỏ chúng ≠, và do đó không thực sự chấm dứt. Tuy nhiên, đó không phải là vấn đề vì nó có cùng số byte!)

Đưa đầu vào thông qua biến đầu vào và đầu ra thông qua biến đầu ra. Tiêu đề trên TIO chứa một bản sao của hầu hết các mã nhằm mục đích cho bạn thấy danh sách các yếu tố là gì, nhưng điều này hoạt động hoàn toàn tốt mà không có nó. Vì ⊇trước tiên đưa ra danh sách con lớn hơn, vị từ này về cơ bản thực hiện giống như hầu hết các câu trả lời khác, nhưng không tạo ra và lọc rõ ràng quyền hạn hoàn chỉnh của các yếu tố, nhờ quay lui.

            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 byte

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}

Hãy thử trực tuyến!

Gaia , 10 9 byte

Π=
dz↑⁇(l

Hãy thử trực tuyến!

Theo cùng một "thuật toán" như đã thấy ở nơi khác - lọc bộ quyền hạn dài nhất với sản phẩm bằng số và trả về độ dài của nó.

	| 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)

Ngao , 15 byte

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

Sắp có liên kết TIO (khi dennis kéo)

Về cơ bản là một cổng của giải pháp 05AB1E của @ Emigna.

Giải trình

                - 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 # (Trình biên dịch tương tác Visual C #) , 54 byte

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

Sử dụng cách tiếp cận tương tự như câu trả lời của @ vrugtehagel và @ JoKing.

Hãy thử trực tuyến!

Ruby , 34 byte

Rõ ràng là hết thời gian với con số khổng lồ đó, nhưng cuối cùng sẽ hết thời gian nếu có đủ thời gian trên một máy khác.

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

Hãy thử trực tuyến!