놀랍게도, 우리는 숫자가 semiprime 인지를 결정 하는 코드 골프 질문 이 없다고 생각 합니다.

세미 프라임은 반드시 고유하지 않은 2 개의 소수의 곱인 자연수입니다.

간단하지만 매우 중요한 개념입니다.

양의 정수가 주어지면 세미 프라임인지 확인하십시오. 진실하거나 거짓된 가치에 대해 동일한 산출물을 제공하는 한 당신의 산출물은 어떤 형태 일 수 있습니다. 성능이나 오버플로가 문제가되지 않을 정도로 입력이 충분히 작다고 가정 할 수도 있습니다.

테스트 사례 :

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

이것은 code-golf 이므로 표준 규칙이 적용됩니다!

Brachylog , 2 바이트

기본적으로 Sphenic number 도전에 대한 Fatalize의 답변 에서 나온 포트 .

ḋĊ

온라인으로 사용해보십시오!

방법?

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

껍질 , 4 바이트

_{유니 코드를 보지 마라!}

=2Lp

온라인으로 사용해보십시오!

방법?

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

매스 매 티카, 16 바이트

PrimeOmega@#==2&

PrimeOmega 다중성을 계산하여 소수 요소의 수를 계산합니다.

Pyth , 4 바이트

q2lP

테스트 스위트 .

방법?

q2lPQ     - Q is implicit input.

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

파이썬 3 , 54 바이트

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

온라인으로 사용해보십시오!

^{이전 verson은 대형 큐브 번호 (약간의 반올림 문제가 있었다 125, 343등)}
이 약수의 양 (뿐만 아니라 소수)이있는 경우, 계산 1또는 2그것을 반환합니다 True.
숫자가 두 개 이상의 소수를 갖지만 두 개의 제수 만있는 경우는 예외입니다. 이 경우 프라임의 완벽한 큐브입니다 (제수는 큐브 루트와 제곱근입니다). x**3==n이 경우를 다룰 것입니다. 큐브 루트 항목에 1을 추가하면 합계가 3까지 올라가고 오 탐지가 중지됩니다. ^{이 아름다운 설명을 해주신 Jonathan Allan에게 감사드립니다.}

루비 , 56 48 바이트

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

온라인으로 사용해보십시오!

작동 방식 :

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

8 바이트를 절약 한 아이디어에 감사합니다.

Mathematica, 31 29 바이트

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

Neim , 4 바이트

𝐏𝐥δ𝔼

온라인으로 사용해보십시오!

파이썬 2 , 67 바이트

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]

온라인으로 사용해보십시오!

@JonathanAllan 덕분에 -10 바이트!

Prime factorization 알고리즘에 대한 크레딧은 Dennis 로갑니다 (초기 버전)

자바 스크립트 (ES6), 47 바이트

부울을 반환합니다.

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

데모

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 바이트

1 바이트 저장 ngenesis 덕분에

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

젤리 , 5 바이트

ÆfL=2

온라인으로 사용해보십시오!

설명

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

실제로 4 바이트

ol2=

온라인으로 사용해보십시오!

05AB1E, 4 바이트

Òg2Q

온라인으로 사용해보십시오!

방법?

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

MATL, 5 바이트

Yfn2=

온라인으로 사용해보십시오!

설명

• Yf -주요 요인.

• n - 길이.

• 2= -2와 같습니까?

Dyalog APL, 18 바이트

⎕CY'dfns'
2=≢3pco⎕

온라인으로 사용해보십시오!

방법?

⎕CY'dfns' -수입 pco

3pco⎕- pco왼쪽 인수 3을 사용하여 입력에서 실행 (기본 요소)

2=≢ -길이 = 2?

가이아 , 4 바이트

ḍl2=

4 바이트는 일반적인 길이 인 것 같습니다. 왜 궁금합니다 ... : P

온라인으로 사용해보십시오!

설명

ḍ     Prime factors
 l    Length
  2=  Equals 2?

파이썬 과 SymPy 1.1.1 ,  57  44 바이트

alephalpha 덕분에 -13 바이트 (1.1.1 사용 primeomega)

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

온라인으로 사용해보십시오!

R , 67 바이트

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

온라인으로 사용해보십시오!

루비 , 35 + 8 = 43 바이트

-rprime플래그를 사용하여 prime_division기능 을 잠금 해제하십시오 .

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

온라인으로 사용해보십시오!

자바 8, 69 61 바이트

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

@Nevay 덕분에 -8 바이트 .

여기에서 시도하십시오.

파이썬 2 , 75 65 바이트

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

온라인으로 사용해보십시오!

원래 소인수 분해 코드에 대한 xnor의 답변에 대한 모든 크레딧 .

C #, 112 바이트

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

서식이 적용된 상태 :

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

그리고 테스트 프로그램으로 :

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

어떤 출력이 있습니까?

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 바이트

n->bigomega(n)==2

온라인으로 사용해보십시오!

레티 나 , 45 바이트

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

온라인으로 사용해보십시오! 링크에는 테스트 사례가 포함됩니다. 설명:

.+
$*

단항으로 변환합니다.

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

두 가지 요소를 찾으십시오.

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

두 요소가 모두 주요한지 확인하십시오.

;

두 가지 요소가 발견되었는지 확인하십시오.

파이썬 2, 90 바이트

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

fn보다 크거나 같은 정수를 가져 1오면 부울을 반환합니다.

온라인으로 사용해보십시오!

테스트 사례 :

>>> 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 바이트

5 바이트는 일회성으로 작동합니다.

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

함수를 정의 할 때 6이 필요하다고 생각합니다.

   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

파이크 , 5 바이트

Pl02q

여기 사용해보십시오!

Japt , 6 5 바이트

k ʥ2

온라인 테스트

설명

대부분의 다른 답변과 거의 동일합니다. k소수 요소의 배열을 Ê가져오고 길이를 얻고와의 ¥동등성을 확인합니다 2.

펄 6 , 43 바이트

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

온라인으로 사용해보십시오!

f입력 인자의 1보다 작은 계수보다이다 $_또는 Nil경우 $_1이다 함수의 리턴 값이있는 경우 true f참 (즉,하지 Nil) 상기 인자에 의해 분할 된 입력 인수는 소수이다.

경우 $_자체가 소수 일 후 f동일 할 것 $_, 및 $_ / f상기 식뿐만 아니라이 경우에 작동하므로, 주요하지 않은 1이다.