Chúng tôi đã có một thử thách nhân tố chính cách đây một thời gian, nhưng thử thách đó đã gần sáu năm và hầu như không đáp ứng các yêu cầu hiện tại của chúng tôi, vì vậy tôi tin rằng đã đến lúc cần một cái mới.

Thử thách

Viết chương trình hoặc hàm lấy đầu vào là số nguyên lớn hơn 1 và xuất hoặc trả về danh sách các thừa số nguyên tố của nó.

Quy tắc

• Đầu vào và đầu ra có thể được cung cấp bởi bất kỳ phương pháp tiêu chuẩn và trong bất kỳ định dạng tiêu chuẩn.
• Các yếu tố trùng lặp phải được đưa vào đầu ra.
• Đầu ra có thể theo thứ tự bất kỳ.
• Đầu vào sẽ không ít hơn 2 hoặc nhiều hơn 2 ³¹ - 1.
• Xây dựng được cho phép, nhưng bao gồm một giải pháp không tích hợp được khuyến khích.

Các trường hợp thử nghiệm

2 -> 2
3 -> 3
4 -> 2, 2
6 -> 2, 3
8 -> 2, 2, 2
12 -> 2, 2, 3
255 -> 3, 5, 17
256 -> 2, 2, 2, 2, 2, 2, 2, 2
1001 -> 7, 11, 13
223092870 -> 2, 3, 5, 7, 11, 13, 17, 19, 23
2147483646 -> 2, 3, 3, 7, 11, 31, 151, 331
2147483647 -> 2147483647

Chấm điểm

Đây là mã golf , vì vậy mã ngắn nhất tính bằng byte sẽ thắng.

Bình thường , 1 byte

P

Tôi thích cơ hội của Pyth trong thử thách này.

Python 2 , 55 byte

f=lambda n,k=2:n/k*[0]and(f(n,k+1),[k]+f(n/k,k))[n%k<1]

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

Python 2, 53 byte

f=lambda n,i=2:n/i*[f]and[f(n,i+1),[i]+f(n/i)][n%i<1]

Thử ilần lượt từng ước số tiềm năng . Nếu ilà một ước số, hãy chuẩn bị trước và khởi động lại với n/i. Khác, cố gắng ước số cao nhất tiếp theo. Bởi vì các ước số được kiểm tra theo thứ tự tăng dần, chỉ có các số nguyên tố được tìm thấy.

Là một chương trình, cho 55 byte:

n=input();i=2
while~-n:
 if n%i:i+=1
 else:n/=i;print i

Toán học, 38 30 byte

Cảm ơn @MartinEnder cho 8 byte!

Join@@Table@@@FactorInteger@#&

Thạch , 2 byte

Æf

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

Haskell , 48 byte

(2%)
n%1=[]
n%m|mod m n<1=n:n%div m n|k<-n+1=k%m

Hãy thử trực tuyến! Ví dụ sử dụng: (2%) 1001sản lượng [7,11,13].

JavaScript (ES6), 44 byte

f=(n,x=2)=>n-1?n%x?f(n,x+1):[x,...f(n/x)]:[]

Không hiệu quả khủng khiếp do thực tế là nó lặp từ 2 đến mọi yếu tố chính, bao gồm cả yếu tố cuối cùng. Bạn có thể cắt giảm độ phức tạp thời gian một cách đáng kể với chi phí là 5 byte:

f=(n,x=2)=>x*x>n?[n]:n%x?f(n,x+1):[x,...f(n/x,x)]

Khối , 37 32 byte

vs(...<..1I>(!@)s)%?w;O,s(No;^;<

Hãy thử trực tuyến! hoặc xem nó trong hành động .

Trên thực tế , 6 byte

w`in`M

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

Giải trình:

w`in`M
w       factor into primes and exponents
 `in`M  repeat each prime # of times equal to exponent

J, 2 byte

q:

Cơ thể phải có ít nhất 30 ký tự.

MATL , 2 byte

Yf

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

Bắt buộc "câu trả lời tích hợp nhàm chán".

Japt, 2 byte

Uk

Một tích hợp được ksử dụng trên đầu vào U. Cũng đề cập đến một quốc gia.

Kiểm tra nó trực tuyến!

giai điệu điếc , 3 byte

Ngôn ngữ này còn khá trẻ và chưa thực sự sẵn sàng cho bất cứ điều gì quan trọng, nhưng nó có thể làm yếu tố chính:

A/D

Điều này sẽ đợi đầu vào của người dùng, và sau đó xuất ra danh sách các yếu tố chính.

MATLAB, 6 byte

Tôi nghĩ rằng điều này không yêu cầu bất kỳ lời giải thích.

factor

Bash + coreutils, 19 byte

factor|sed s/.*:.//

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

Mẻ, 96 byte

@set/an=%1,f=2,r=0
:l
@set/af+=!!r,r=n%%f
@if %r%==0 echo %f%&set/an/=f
@if %n% gtr 1 goto l

Pyke, 1 byte

P

Hãy thử nó ở đây!

Các yếu tố chính được xây dựng.

Lục giác , 58 byte

Chưa chơi golf, nhưng @MartinEnder vẫn có thể phá hủy điều này

In ra các yếu tố được phân tách bằng không gian, với một khoảng trắng ở cuối

Chơi gôn

2}\..}$?i6;>(<...=.\'/})."@...>%<..'':\}$"!>~\{=\)=\}&<.\\

Trả tiền:

     2 } \ . .
    } $ ? i 6 ;
   > ( < . . . =
  . \ ' / } ) . "
 @ . . . > % < . .
  ' ' : \ } $ " !
   > ~ \ { = \ )
    = \ } & < .
     \ \ . . .

Giải thích đến sau.

05AB1E , 1 byte

Ò

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

CJam, 2 byte

mf

cjam.aditsu.net / ...

Đây là một chức năng. Martin, có vẻ như tôi đã buồn ngủ.

C, 92 byte

int p(int n){for(int i=2;i<n;i++)if(n%i==0)return printf("%d, ",i)+p(n/i);printf("%d\n",n);}

Phiên bản bị đánh cắp:

#include <stdio.h>
#include <unistd.h>
#include <stdlib.h>

int prime(int number) {
    for (int i = 2; i < number; i++) {
        if (number % i == 0) {
            printf("%d, ", i);
            return prime(number / i); //you can golf away a few bytes by returning the sum of your recursive function and the return of printf, which is an int
        }                             //this allow you to golf a few more bytes thanks to inline calls
    }
    printf("%d\n", number);
}

int main(int argc, char **argv) {
    prime(atoi(argv[1]));
}

Japt , 1 byte (không cạnh tranh)

k

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

PHP , 51 byte

for($i=2;1<$a=&$argn;)$a%$i?$i++:$a/=$i*print"$i ";

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

C (gcc) , 51 byte

i;f(n){for(i=2;i<=n;)n%i?i++:printf("%d ",i,n/=i);}

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

Perl 6 , 77 64 byte  

{my$a=$_;.is-prime??$_!!map ->\f{|({$a%f||($a/=f)&&f}...^*!= f)},(2... *>$a)}

Thử nó

{my$a=$_;map ->\f{|({$a%f||($a div=f)&&f}...^ f>*)},(2... *>$a)}

Thử nó (Lưu ý: nó không có đủ thời gian được phân bổ để kết thúc)

Một phiên bản hiệu suất cao hơn nhiều là hơi dài hơn ở mức 100 byte.

{my$a=$_;map ->\f{|({$a.is-prime??($/=$a)&&($a=0)||$/!!($a%f||($a div=f)&&f)}...^ f>*)},(2... *>$a)}

Thử nó

Mở rộng: ^{_{(phiên bản 64 byte)}}

{
  my $a = $_;  # the input ｢$_｣ is read-only by default
  map
    -> \f {
      |(              # slip ( flattens into outer list )

        # generate sequence of 0 or more ｢f｣s
        {
          $a % f      # is it not evenly divisible

          ||          # if it is evenly divisible
          ($a div=f)  # divide it
          &&          # and
          f           # return ｢f｣
        }
        ...^   # keep doing that until
        f > *  # ｢f｣ is bigger
      )

    },

    # do that over the following list

    (2 ... * > $a) # generate a sequence from 2
                   # up to whatever the value of $a
                   # is at the time of the check
}

VB.NET, 86 byte

Có điều này ngồi xung quanh từ một số chương trình Project Euler. Loại bỏ các tối ưu hóa vì lợi ích của sự ngắn gọn, và đây là kết quả. Đương nhiên, VB rất dài dòng, vì vậy nó khá dài. Tôi không tính khoảng trắng hàng đầu. Nó có thể được bỏ qua, nhưng dễ đọc hơn với nó.

Cái này lấy một số nguyên làm tham số và in các thừa số nguyên tố bằng dấu phẩy sau. Có một dấu phẩy ở cuối.

Sub A(a)
    For i=2To a ' VB re-evaluates a each time, so the /= at the end of the loop shortens this
        While a Mod i=0 ' this is a factor. We've grabbed primes before this, so this must be a prime factor
            Console.Write(i &",") ' output
            a/=i ' "mark" the prime as "used"
        End While
    Next
End Sub

Perl 6 , 51 byte

Một giải pháp đệ quy:

sub f(\n,\d=2){n-1??n%d??f n,d+1!!(d,|f n/d,d)!!()}

Java (OpenJDK) , 259 byte

import java.util.*;interface g{static void main(String[]z){int a=new Scanner(System.in).nextInt();int b=0;int[]l={};for(int i=2;i<=a;i++){for(;a%i<1;l[b-1]=i){l=Arrays.copyOf(l,b=l.length+1);a/=i;}}for(int i=0;i<b;i++)System.out.print(l[i]+(i<b-1?", ":""));}}

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

Ruby, 61 byte

require'prime';->x{x.prime_division.flat_map{|x|[x[0]]*x[1]}}

Phiên bản dựng sẵn ngắn nhất tôi có thể nghĩ ra.

Ruby , 48 byte

->x{r,*c=2;0while(x%r<1?(x/=r)&&c<<r:x>=r+=1);c}

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

Đến bữa tiệc muộn một chút, nhưng ... tại sao không?