อินพุต

จำนวนเต็มเดียว{15}$1 \leq x \leq 10^{15}$

เอาท์พุต

จำนวนสูงสุดของจำนวนเต็มบวกที่แตกต่างกันที่มีสินค้าx$x$

ตัวอย่าง

อินพุต: 1099511627776 เอาต์พุต: 9. หนึ่งในปัจจัยที่เหมาะสมที่สุดที่เป็นไปได้คือ: (1, 2, 4, 8, 16, 32, 64, 128, 4096)

อินพุต: 127381. เอาท์พุท 4. หนึ่งในปัจจัยที่เหมาะสมที่สุดที่เป็นไปได้คือ: (1, 17, 59, 127)

เกี่ยวข้องกับคำถามเก่านี้

ภาษา Wolfram (Mathematica) , 52 ไบต์

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

ลองออนไลน์!

บันทึกขนาด 4 ไบต์ด้วย @attinat

นี่เป็นรุ่น153 ไบต์ที่คำนวณ1099511627776และ10^15

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

ลองออนไลน์!

ผลลัพธ์ที่ได้10^15คือ12

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

ภาษา Wolfram (Mathematica) , 38 ไบต์

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

ลองออนไลน์!

อัลกอริทึมโลภ ไทม์ออกใน TIO 1099511627776ในปัจจัยการผลิตขนาดใหญ่เช่น

05AB1E , 9 ไบต์

ไม่มีประสิทธิภาพมาก จะหมดเวลากับ TIO สำหรับตัวเลขที่มีตัวหารจำนวนมาก

ÑæʒPQ}€gZ

ลองออนไลน์!

คำอธิบาย

Ñ          # 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 ไบต์

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

ลองออนไลน์!

ใช้วิธีการโลภเพื่อเลือกตัวหาร

Javascript (ES6), 39 ไบต์

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

อาจมีไม่กี่ไบต์ที่สามารถบันทึกได้ที่นี่และที่นั่น เพียงแค่ใช้อัลกอริทึมโลภสำหรับปัจจัยต่างๆ

เยลลี่ขนาด 9 ไบต์

ŒPP=³ƊƇẈṀ

ลองออนไลน์!

-1 ไบต์ขอบคุณใครบางคน

-2 ไบต์ขอบคุณ ErikTheOutgolfer

Japt -h , 13 ไบต์

â à f_׶UÃmÊn

ลองมัน

Brachylogขนาด 8 ไบต์

f;?⟨⊇×⟩l

ลองออนไลน์!

(วิธีการที่ไร้เดียงสา{~×≠l}ᶠ⌉สร้างจำนวนอนันต์ที่มี 1s พิเศษก่อนที่จะกำจัดพวกเขาด้วย≠และทำให้ล้มเหลวในการยุติจริง ๆ แล้วมันไม่ใช่ปัญหา แต่เนื่องจากเป็นจำนวนไบต์เดียวกัน!)

รับอินพุตผ่านตัวแปรอินพุตและเอาต์พุตผ่านตัวแปรเอาต์พุต ส่วนหัวบน TIO มีสำเนาของรหัสส่วนใหญ่เพื่อแสดงให้คุณเห็นว่ารายการปัจจัยคืออะไร แต่สิ่งนี้ทำงานได้อย่างสมบูรณ์แบบหากไม่มีมัน เนื่องจาก⊇ให้รายการย่อยที่ใหญ่กว่าก่อนส่วนคำกริยานี้ทำสิ่งเดียวกันกับคำตอบอื่น ๆ ส่วนใหญ่ แต่ไม่มีการสร้างและกรอง powerset ที่สมบูรณ์ของปัจจัยโดยชัดเจนขอบคุณการย้อนรอย

            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.

สกาลา , 77 ไบต์

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}

ลองออนไลน์!

Gaiaขนาด10 9 ไบต์

Π=
dz↑⁇(l

ลองออนไลน์!

ทำตาม "อัลกอริทึม" แบบเดียวกับที่เห็นที่อื่น - กรองชุดตัวหารสำหรับส่วนที่ยาวที่สุดกับผลิตภัณฑ์เท่ากับจำนวนและส่งคืนความยาว

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

หอย 15 ไบต์

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

ลิงค์ TIO เร็ว ๆ นี้ (เมื่อเดนนิสดึง)

โดยทั่วไปจะเป็นพอร์ตของโซลูชัน 05AB1E ของ @ Emigna

คำอธิบาย

                - 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 # Interactive Compiler) , 54 ไบต์

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

ใช้วิธีการเดียวกันกับคำตอบของ @ vrugtehagel และ @ JoKing

ลองออนไลน์!

Ruby , 34 ไบต์

เห็นได้ชัดว่าหมดเวลาจำนวนมาก แต่ในที่สุดก็จะหมดเวลาถ้าให้เวลากับเครื่องอื่น

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

ลองออนไลน์!