Şaşırtıcı bir şekilde, bir sayının yarı yarıya olup olmadığını belirlemek için bir kod golf sorusu olduğunu sanmıyorum .

Bir yarı sayı, iki (zorunlu olarak farklı) asal sayıların ürünü olan doğal bir sayıdır.

Yeterince basit, ama oldukça önemli bir kavram.

Olumlu bir tamsayı verildiğinde, bunun bir yarı süre olup olmadığını belirleyin. Çıktınız, herhangi bir gerçek veya falsey değeri için aynı çıktıyı verdiği sürece herhangi bir biçimde olabilir. Ayrıca, girişinizin, performans veya taşma sorun olmayacak kadar küçük olduğunu da varsayabilirsiniz.

Test durumları:

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

Bu kod golf , yani standart kurallar geçerlidir!

Brachylog , 2 bayt

Temelde Fatalize'in Sphenic sayı yarışmasına vereceği yanıttan bir bağlantı noktası .

ḋĊ

Çevrimiçi deneyin!

Nasıl?

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

Kabuğu , 4 bayt

_{Bak ma Unicode yok!}

=2Lp

Çevrimiçi deneyin!

Nasıl?

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

Mathematica, 16 bayt

PrimeOmega@#==2&

PrimeOmega asal çarpanların sayısını sayarak çokluğu sayar.

Pyth , 4 bayt

q2lP

Test paketi .

Nasıl?

q2lPQ     - Q is implicit input.

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

Python 3 , 54 bayt

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

Çevrimiçi deneyin!

^{Bir önceki verson büyük küp sayılar (bazı yuvarlama sorunlar vardı 125, 343vs.)}
Bu bölenler miktarını (sadece asal) o varsa, hesaplar 1veya 2döndürür True.
Bunun tek istisnası, bir sayının ikiden fazla asal faktöre sahip olması, ancak sadece iki bölen olmasıdır. Bu durumda mükemmel bir küp küptür (bölenler küp kökü ve küp kökü karesidir). x**3==nbu durumu kapsayacak, küp kök girişine bir tane eklemek, toplamı 3'e kadar iter ve yanlış-pozitifliği durdurur. ^{Bu güzel açıklama ile yazmak için teşekkürler Jonathan Allan}

Ruby , 56 48 bayt

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

Çevrimiçi deneyin!

Nasıl çalışır:

->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 bayt kazandıran fikir için Teşekkürler Mürekkep.

Mathematica, 31 29 bayt

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

Neim , 4 bayt

𝐏𝐥δ𝔼

Çevrimiçi deneyin!

Python 2,67 bayt

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]

Çevrimiçi deneyin!

-JonathanAllan sayesinde -10 bayt!

Asal çarpanlara ayırma algoritması için kredi Dennis'e (ilk sürümde) gider

JavaScript (ES6), 47 bayt

Bir boole döndürür.

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

gösteri

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 bayt

1 byte için ngenesis sayesinde kaydedildi

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

Jöle , 5 bayt

ÆfL=2

Çevrimiçi deneyin!

açıklama

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

Aslında , 4 bayt

ol2=

Çevrimiçi deneyin!

05AB1E, 4 bayt

Òg2Q

Çevrimiçi deneyin!

Nasıl?

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

MATL, 5 bayt

Yfn2=

Çevrimiçi deneyin!

açıklama

• Yf - Asal faktörler.

• n - Uzunluk.

• 2= - 2'ye eşit mi?

Dyalog APL, 18 bayt

⎕CY'dfns'
2=≢3pco⎕

Çevrimiçi deneyin!

Nasıl?

⎕CY'dfns' - ithalat pco

3pco⎕- pcosol argüman 3 ile girdiyi çalıştır (asal çarpanlar)

2=≢ - uzunluk = 2?

Gaia , 4 bayt

ḍl2=

4 bayt ortak bir uzunluk gibi görünüyor, neden acaba ...: P

Çevrimiçi deneyin!

açıklama

ḍ     Prime factors
 l    Length
  2=  Equals 2?

SymPy ile Python 1.1.1 ,  57  44 bayt

-Alefhal sayesinde 13 bayt (1.1.1'in kullanımı primeomega)

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

Çevrimiçi deneyin!

R , 67 bayt

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

Çevrimiçi deneyin!

Ruby , 35 + 8 = 43 bayt

İşlevin -rprimekilidini açmak için bayrağı kullanır prime_division.

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

Çevrimiçi deneyin!

Java 8, 69 61 bayt

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

@Nevay sayesinde -8 bayt .

Burada dene.

Python 2 , 75 65 bayt

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

Çevrimiçi deneyin!

Xnor'ın asıl çarpanlara ayırma koduna vereceği cevaba verilen tüm kredi .

C #, 112 Bayt

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

Biçimlendirme uygulandığında:

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

Ve test programı olarak:

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

Hangi çıktı var:

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 bayt

n->bigomega(n)==2

Çevrimiçi deneyin!

Retina , 45 bayt

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

Çevrimiçi deneyin! Link, test durumlarını içerir. Açıklama:

.+
$*

Birliğe dönüştür.

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

İki faktör bulmaya çalışın.

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

Her iki faktörün de asıl olduğundan emin olun.

;

İki faktörün bulunduğundan emin olun.

Python 2,90 bayt

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

fneşit veya daha büyük bir tamsayı alır 1, boolean döndürür.

Çevrimiçi deneyin!

Test durumları:

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

5 bayt bir kereye mahsus olarak çalışacak:

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

Fonksiyonu tanımlarken altıya ihtiyacım olduğuna inanıyorum:

   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 bayt

Pl02q

Burada dene!

Japt , 6 5 bayt

k ʥ2

Çevrimiçi olarak test edin

açıklama

Diğer cevapların çoğu ile hemen hemen aynı mı: ktemel faktörlerin dizisini Êalır, uzunluğunu alır ve ¥eşitlik için kontrol eder 2.

Perl 6 , 43 bayt

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

Çevrimiçi deneyin!

fgiriş argüman 1'den küçük bir faktör daha büyüktür $_ya da Nileğer $_1'dir işlevin dönüş değeri bu durum geçerlidir fgeçerlidir (yani, Nil) ve faktörü ile bölünen giriş argüman asal.

Eğer $_kendisi asal sonra feşit olacaktır $_ve $_ / fformül de bu durumda çalışır, böylece asal değildir ki, 1'dir.