Kami memiliki tantangan faktorisasi utama beberapa waktu yang lalu, tetapi tantangan itu sudah hampir enam tahun dan hampir tidak memenuhi persyaratan kami saat ini, jadi saya percaya ini saatnya untuk yang baru.

Tantangan

Tulis program atau fungsi yang memasukkan bilangan bulat lebih besar dari 1 dan menampilkan atau mengembalikan daftar faktor prima.

Aturan

• Input dan output dapat diberikan dengan metode standar apa pun dan dalam format standar apa pun.
• Faktor duplikat harus dimasukkan dalam output.
• Output mungkin dalam urutan apa pun.
• Masukan tidak akan kurang dari 2 atau lebih dari 2 ³¹ - 1.
• Built-in diizinkan, tetapi termasuk solusi non-builtin dianjurkan.

Uji kasus

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

Mencetak gol

Ini adalah kode-golf , jadi kode terpendek dalam byte menang.

Pyth , 1 byte

P

Saya suka peluang Pyth dalam tantangan ini.

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]

Cobalah online!

Python 2, 53 byte

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

Mencoba setiap pembagi potensial isecara bergantian. Jika iadalah pembagi, tambahkan dan mulai kembali dengan n/i. Lain, coba pembagi tertinggi berikutnya. Karena pembagi diperiksa dalam urutan yang meningkat, hanya yang utama yang ditemukan.

Sebagai sebuah program, untuk 55 byte:

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

Mathematica, 38 30 byte

Terima kasih @MartinEnder selama 8 byte!

Join@@Table@@@FactorInteger@#&

Jelly , 2 byte

Æf

Cobalah online!

Haskell , 48 byte

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

Cobalah online! Contoh penggunaan: (2%) 1001hasil [7,11,13].

JavaScript (ES6), 44 byte

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

Sangat tidak efisien karena fakta bahwa ia beralih dari 2 hingga setiap faktor utama, termasuk yang terakhir. Anda dapat memotong kompleksitas waktu secara dramatis dengan biaya 5 byte:

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

Cubix , 37 32 byte

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

Cobalah online! atau Tontonlah dalam aksi .

Sebenarnya , 6 byte

w`in`M

Cobalah online!

Penjelasan:

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

J, 2 byte

q:

Badan harus minimal 30 karakter.

MATL , 2 byte

Yf

Cobalah online!

Wajib "jawaban bawaan yang membosankan".

Japt, 2 byte

Uk

Built-in kdigunakan pada input U. Juga merujuk ke suatu negara.

Uji secara online!

tuli-nada , 3 byte

Bahasa ini cukup muda dan belum benar-benar siap untuk jurusan apa pun, tetapi dapat melakukan faktorisasi utama:

A/D

Ini akan menunggu input pengguna, dan kemudian menampilkan daftar faktor prima.

MATLAB, 6 byte

Saya pikir ini tidak memerlukan penjelasan apa pun.

factor

Bash + coreutils, 19 byte

factor|sed s/.*:.//

Cobalah online!

Batch, 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

Coba di sini!

Faktor prima dibangun.

Hexagony , 58 byte

Belum bermain golf, tapi @MartinEnder seharusnya bisa menghancurkan ini

Mencetak faktor-faktor yang dipisahkan ruang, dengan ruang tambahan

Golf:

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

Ditata:

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

Penjelasan datang nanti.

05AB1E , 1 byte

Ò

Cobalah online!

CJam, 2 byte

mf

cjam.aditsu.net / ...

Ini sebuah fungsi. Martin, sepertinya aku mengantuk.

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

Versi tidak disatukan:

#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 (tidak bersaing)

k

Cobalah online!

PHP , 51 byte

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

Cobalah online!

C (gcc) , 51 byte

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

Cobalah online!

Perl 6 , 77 64 byte  

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

Cobalah

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

Cobalah (Catatan: tidak punya cukup waktu untuk menyelesaikannya)

Versi yang jauh lebih performan sedikit lebih lama yaitu 100 byte.

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

Cobalah

Diperluas: ^{_{(versi 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

Apakah ini duduk di sekitar dari beberapa program Project Euler. Dihapus optimasi untuk kepentingan kependekan, dan ini adalah hasilnya. Secara alami, VB sangat bertele-tele, jadi cukup panjang. Saya tidak menghitung spasi putih terkemuka. Itu bisa dihilangkan, tetapi lebih mudah dibaca dengan itu.

Ini mengambil integer sebagai parameter, dan mencetak faktor prima dengan koma setelah. Ada koma tertinggal di akhir.

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

Solusi rekursif:

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?", ":""));}}

Cobalah online!

Ruby, 61 byte

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

Versi builtin terpendek yang bisa saya pikirkan.

Ruby , 48 byte

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

Cobalah online!

Sedikit terlambat ke pesta, tapi ... kenapa tidak?