Anehnya, saya tidak berpikir kita memiliki pertanyaan kode-golf untuk menentukan apakah suatu angka semiprime .

Semiprime adalah bilangan alami yang merupakan produk dari dua bilangan prima (tidak harus berbeda).

Cukup sederhana, tetapi konsep yang sangat penting.

Diberikan bilangan bulat positif, tentukan apakah itu semiprime. Keluaran Anda bisa dalam bentuk apa pun asalkan memberikan hasil yang sama untuk nilai apa pun yang benar atau salah. Anda juga dapat menganggap input Anda cukup kecil sehingga kinerja atau overflow tidak menjadi masalah.

Kasus uji:

input -> output
1     -> false
2     -> false
3     -> false
4     -> true
6     -> true
8     -> false
30    -> false   (5 * 3 * 2), note it must be EXACTLY 2 (non-distinct) primes
49    -> true    (7 * 7)      still technically 2 primes
95    -> true
25195908475657893494027183240048398571429282126204032027777137836043662020707595556264018525880784406918290641249515082189298559149176184502808489120072844992687392807287776735971418347270261896375014971824691165077613379859095700097330459748808428401797429100642458691817195118746121515172654632282216869987549182422433637259085141865462043576798423387184774447920739934236584823824281198163815010674810451660377306056201619676256133844143603833904414952634432190114657544454178424020924616515723350778707749817125772467962926386356373289912154831438167899885040445364023527381951378636564391212010397122822120720357
      -> true, and go call someone, you just cracked RSA-2048

Ini kode-golf , jadi aturan standar berlaku!

Brachylog , 2 byte

Pada dasarnya sebuah port dari jawaban Fatalize terhadap tantangan angka Sphenic.

ḋĊ

Cobalah online!

Bagaimana?

ḋĊ - implicitly takes input
ḋ  - prime factorisation (with duplicates included)
 Ċ - is a couple

Sekam , 4 byte

_{Lihat ma no Unicode!}

=2Lp

Cobalah online!

Bagaimana?

=2Lp - a one input function
   p - prime factorisation (with duplicates included)
  L  - length
=2   - equals 2?

Mathematica, 16 byte

PrimeOmega@#==2&

PrimeOmega menghitung jumlah faktor prima, menghitung multiplisitas.

Pyth , 4 byte

q2lP

Suite uji .

Bagaimana?

q2lPQ     - Q is implicit input.

q2        - Is equal to 2?
    lPQ   - The length of the prime factors of the input.

Python 3 , 54 byte

lambda n:0<sum((n%x<1)+(x**3==n)for x in range(2,n))<3

Cobalah online!

^{The verson sebelumnya memiliki beberapa masalah pembulatan pada angka kubus besar ( 125, 343, dll)}
ini menghitung jumlah pembagi (tidak hanya bilangan prima), jika memiliki 1atau 2mengembalikan True.
Satu-satunya pengecualian adalah ketika angka memiliki lebih dari dua faktor utama tetapi hanya dua pembagi. Dalam hal ini ia adalah kubus sempurna dari suatu prima (pembagi-nya adalah akar kubusnya dan akar kuadratnya kuadrat). x**3==nakan membahas kasus ini, menambahkan satu ke entri root cube mendorong jumlah hingga hitungan 3 dan menghentikan false-positive. ^{terima kasih Jonathan Allan untuk menulis dengan penjelasan yang indah ini}

Ruby , 56 48 byte

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

Cobalah online!

Bagaimana itu bekerja:

->x{                    # Lambda function
    r=c=2;              # Starting from r=2, c=2
    0 while             # Repeat (0 counts as a nop)
        x%r<1? (        # If x mod r == 0
            x/=r:       # Divide x by r
            c-=1        # decrease c
        ):              # else
            x>=r+=1     # increase r, terminate if r>x 
    );
    c==0                # True if we found 2 factors
}

Terima kasih Value Ink untuk ide yang menghemat 8 byte.

Mathematica, 31 29 byte

Tr[Last/@FactorInteger@#]==2&

Neim , 4 byte

𝐏𝐥δ𝔼

Cobalah online!

Python 2 , 67 byte

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

Cobalah online!

-10 byte terima kasih kepada @JonathanAllan!

Kredit untuk algoritma faktorisasi Perdana diberikan kepada Dennis (dalam versi awal)

JavaScript (ES6), 47 byte

Mengembalikan boolean.

n=>(k=1)==(d=n=>++k<n?n%k?d(n):d(n/k--)+1:0)(n)

Demo

let f =

n=>(k=1)==(d=n=>++k<n?n%k?d(n):d(n/k--)+1:0)(n)

console.log(
  [...Array(200).keys()].filter(f).join`, `
)

Mathematica 32 byte

Berkat ngenesis selama 1 byte disimpan

Tr@FactorInteger[#][[;;,2]]==2&

Jelly , 5 byte

ÆfL=2

Cobalah online!

Penjelasan

ÆfL=2  Main link
Æf     Prime factors
  L    Length
   =   Equals
    2  2

Sebenarnya , 4 byte

ol2=

Cobalah online!

05AB1E, 4 byte

Òg2Q

Cobalah online!

Bagaimana?

Ò       prime factors list (with duplicates)
 g      length
   Q    equal to
  2     2

MATL, 5 byte

Yfn2=

Cobalah online!

Penjelasan

• Yf - Faktor utama.

• n - Panjangnya.

• 2= - Apakah sama dengan 2?

Dyalog APL, 18 byte

⎕CY'dfns'
2=≢3pco⎕

Cobalah online!

Bagaimana?

⎕CY'dfns' - impor pco

3pco⎕- berjalan pcodi input dengan argumen kiri 3 (faktor prima)

2=≢ - panjang = 2?

Gaia , 4 byte

ḍl2=

4 byte sepertinya panjang yang umum, saya bertanya-tanya mengapa ...: P

Cobalah online!

Penjelasan

ḍ     Prime factors
 l    Length
  2=  Equals 2?

Python dengan SymPy 1.1.1 ,  57  44 byte

-13 byte berkat alephalpha (gunakan 1.1.1's primeomega)

from sympy import*
lambda n:primeomega(n)==2

Cobalah online!

R , 67 byte

c=0;n=scan();for(p in(1:n)[-1:-2]-1)while(n%%p<1){c=c+1;n=n/p};c==2

Cobalah online!

Rubi , 35 + 8 = 43 byte

Menggunakan -rprimebendera untuk membuka kunci prime_divisionfungsi.

->n{n.prime_division.sum(&:pop)==2}

Cobalah online!

Java 8, 69 61 byte

n->{int r=1,c=2;for(;r++<n;)for(;n%r<1;n/=r)c--;return c==0;}

-8 byte berkat @Nevay .

Coba di sini.

Python 2 , 75 65 byte

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

Cobalah online!

Semua kredit untuk jawaban xnor untuk kode faktorisasi prima asli.

C #, 112 Bytes

n=>{var r=Enumerable.Range(2,n);var l=r.Where(i=>r.All(x=>r.All(y=>y*x!=i)));return l.Any(x=>l.Any(y=>y*x==n));}

Dengan pemformatan diterapkan:

n =>
{
    var r = Enumerable.Range (2, n);
    var l = r.Where (i => r.All (x => r.All (y => y * x != i)));
    return l.Any (x => l.Any (y => y * x == n));
}

Dan sebagai program uji:

using System;
using System.Linq;


namespace S
{
    class P
    {
        static void Main ()
        {
            var f = new Func<int, bool> (
                n =>
                {
                    var r = Enumerable.Range (2, n);
                    var l = r.Where (i => r.All (x => r.All (y => y * x != i)));
                    return l.Any (x => l.Any (y => y * x == n));
                }
            );

            for (var i = 0; i < 100; i++)
                Console.WriteLine ($"{i} -> {f (i)}");
            Console.ReadLine ();
        }
    }
}

Yang memiliki output:

0 -> False
1 -> False
2 -> False
3 -> False
4 -> True
5 -> False
6 -> True
7 -> False
8 -> False
9 -> True
10 -> True
11 -> False
12 -> False
13 -> False
14 -> True
15 -> True
16 -> False
17 -> False
18 -> False
19 -> False
20 -> False
21 -> True
22 -> True
23 -> False
24 -> False
25 -> True
26 -> True
27 -> False
28 -> False
29 -> False
30 -> False
31 -> False
32 -> False
33 -> True
34 -> True
35 -> True
36 -> False
37 -> False
38 -> True
39 -> True
40 -> False
41 -> False
42 -> False
43 -> False
44 -> False
45 -> False
46 -> True
47 -> False
48 -> False
49 -> True
50 -> False
51 -> True
52 -> False
53 -> False
54 -> False
55 -> True
56 -> False
57 -> True
58 -> True
59 -> False
60 -> False
61 -> False
62 -> True
63 -> False
64 -> False
65 -> True
66 -> False
67 -> False
68 -> False
69 -> True
70 -> False
71 -> False
72 -> False
73 -> False
74 -> True
75 -> False
76 -> False
77 -> True
78 -> False
79 -> False
80 -> False
81 -> False
82 -> True
83 -> False
84 -> False
85 -> True
86 -> True
87 -> True
88 -> False
89 -> False
90 -> False
91 -> True
92 -> False
93 -> True
94 -> True
95 -> True
96 -> False
97 -> False
98 -> False
99 -> False

Pari / GP , 17 byte

n->bigomega(n)==2

Cobalah online!

Retina , 45 byte

.+
$*
^(11+)(\1)+$
$1;1$#2$*
A`\b(11+)\1+\b
;

Cobalah online! Tautan termasuk kasus uji. Penjelasan:

.+
$*

Konversikan ke unary.

^(11+)(\1)+$
$1;1$#2$*

Coba cari dua faktor.

A`\b(11+)\1+\b

Pastikan kedua faktor prima.

;

Pastikan dua faktor ditemukan.

Python 2, 90 byte

def g(x,i=2):
 while x%i:i+=1
 return i
def f(n,l=0):
 while 1%n:l+=1;n/=g(n)
 return l==2

fmembutuhkan integer yang nlebih besar atau sama dengan 1, mengembalikan boolean.

Cobalah online!

Kasus uji:

>>> f(1)
False
>>> f(2)
False
>>> f(3)
False
>>> f(4)
True
>>> f(6)
True
>>> f(8)
False
>>> f(30)
False
>>> f(49)
True
>>> f(95)
True

J , 6 byte

5 byte akan berfungsi sebagai satu kali:

   2=#q: 8
0
   2=#q: 9
1

Saya percaya saya perlu enam ketika saya mendefinisikan fungsi:

   semiprime =. 2=#@q:
   (,. semiprime) 1 + i. 20
 1 0
 2 0
 3 0
 4 1
 5 0
 6 1
 7 0
 8 0
 9 1
10 1
11 0
12 0
13 0
14 1
15 1
16 0
17 0
18 0
19 0
20 0

Pyke , 5 byte

Pl02q

Coba di sini!

Japt , 6 5 byte

k ʥ2

Uji secara online

Penjelasan

Apakah hampir sama dengan sebagian besar jawaban lainnya: kdapatkan berbagai faktor utama, Êdapatkan panjangnya dan ¥periksa kesetaraannya 2.

Perl 6 , 43 byte

{my \f=first $_%%*,2..$_;?f&&is-prime $_/f}

Cobalah online!

fadalah faktor terkecil yang lebih besar dari 1 argumen input $_, atau Niljika $_1. Nilai kembalinya fungsi true jika fbenar (yaitu, tidakNil ) DAN argumen input dibagi dengan faktor prima.

Jika $_itu sendiri prima, maka fakan sama dengan $_, dan $_ / fadalah 1, yang tidak prima, jadi rumusnya bekerja dalam kasus itu juga.