Ana küme , bir tam sayı K daha yüksek 2 en yüksek asal oluşturduğu çift olarak tanımlanır kesinlikle daha düşük N ve düşük asal katı daha yüksek N .

Yukarıdaki tanımın ardından, eğer tamsayı bir başbakan ise, baş kümesinin ondan önceki ve sonraki asal çiftidir .

Görev

İki tamsayı N , M ( N, M ≥ 3 ) verildiğinde , N ve M'nin aynı ana kümeye sahip olup olmadıklarına bağlı olarak bir doğruluk / falsy değeri verin .

Bu kod golf , bu nedenle amaç bayt sayınızı mümkün olduğunca azaltmaktır. Böylece, her programlama dilinde en kısa kod kazanır.

Test senaryoları / Örnekler

Örneğin, bir asal küme 9 olduğunu [7, 11], çünkü:

• 7 , 9'dan kesinlikle daha düşük olan en yüksek asaldır ve
• 11 , 9'dan kesinlikle daha yüksek olan en düşük asaldır .

Benzer şekilde, asal küme 67 olduğunu [61, 71](yani not 67 bir asal).

Gerçek çiftler

8, 10
20, 22
65, 65
73, 73
86, 84
326, 318
513, 518

Falsy Çiftleri

4, 5
6, 8
409, 401
348, 347
419, 418
311, 313
326, 305

Jöle , 6 4 3 5 4 bayt

rÆPE

Çevrimiçi deneyin! veya Tüm test senaryolarını deneyin .

Nasıl çalışır

rÆPE    Main link. Arguments: N, M
r       Yield the range of integers between N and M, inclusive.
 ÆP     For each integer, yield 1 if it is prime, 0 otherwise.
   E    Yield 1 if all items are equal (none in the range were prime,
        or there's only one item).

Çalışır, çünkü iki sayının aralarında bir asal varsa veya her iki sayının da asal olması durumunda farklı ana kümeler vardır; her iki sayı da aynı değilse , bu durumda yine de Edöndürür 1(tek öğe dizisindeki tüm öğeler eşittir).

Perl 6 , 52 bayt

{[eqv] @_».&{(($_...0),$_..*)».first(*.is-prime)}}

Dene

Expanded:

{  # bare block lambda with implicit slurpy input ｢@_｣

  [eqv]               # see if each sub list is equivalent

    @_».&{            # for each value in the input

      (

        ( $_ ... 0 ), # decreasing Seq
          $_ ..  *    # Range

      )».first(*.is-prime) # find the first prime from both the Seq and Range

    }
}

Python 3 , 103 95 91 bayt

lambda*z:len({*z})<2or[1for i in range(min(z),max(z)+1)if all(i%k for k in range(2,i))]<[0]

Çevrimiçi deneyin!

Yakut , ₅₇ 54 bayt

->n,m{[*n..m,*m..n].all?{|x|?1*x=~/^(11+)\1+$/}||n==m}

Çevrimiçi deneyin!

Kullanımları gelen korkunç regex asallık testi Cevabıma ilgili soruya (Ben bunu tıkladım kadar yaklaşık unutmuştu) bu sayı asal mı? . N, M ≥ 3'ümüz olduğundan, 1 için kontrol desenden kaldırılabilir, böylece bayt sayısı yerleşik olandan daha az olur.

Not: Regex primality testi patolojik, komik bir şekilde verimsizdir. En azından O (n!) Olduğuna inanıyorum, ancak şu anda anlamaya zamanım yok. 100.001'i kontrol etmesi on iki saniye sürdü ve iptal etmeden önce 1.000.001'de beş veya on dakika taşlama yapıyordu. Kullanım / kötüye kullanım riski size aittir.

Retina , 58 bayt

\b(.+)¶\1\b

.+
$*
O`
+`\b(1+)¶11\1
$1¶1$&
A`^(11+)\1+$
^$

Çevrimiçi deneyin! Açıklama:

\b(.+)¶\1\b

Her iki giriş de aynıysa, her şeyi silin ve sonunda çıkış 1'e geçin.

.+
$*

Tekli'ye dönüştür.

O`

Sırala.

+`\b(1+)¶11\1
$1¶1$&

Tüm sayıların aralığını genişletin.

A`^(11+)\1+$

Tüm kompozit numaraları silin.

^$

Hiç sayı kalmadıysa, çıkış 1, aksi takdirde 0.

PARI / GP, 28 bayt

v->s=Set(v);#s<2||!primes(s)

Tüm test senaryoları ile çevrimiçi deneyin!

Döndürür 0veya 1(normal PARI / GP "Boole" değerleri).

Açıklama:

viki sayı Nve Mkoordinat olarak bir vektör (veya sütun vektörü veya liste) olmalıdır . Örneğin [8, 10]. Daha sonra sbu sayılardan yapılan "küme" olacaktır, bu ya bir koordinat vektörü (if N==M) ya da sıralı girişleri olan iki koordinat vektörü olacaktır .

Eğer #skoordinatların sayısı ssadece bir ise, 1(doğruluk) elde ederiz. Aksi takdirde, ila primesarasındaki kapalı aralıktaki tüm primerlerin bir vektörünü döndürür . Olumsuzluk Bunun verecektir (burada bir veya daha fazla asal) bir veya birden fazla sıfır olmayan girişlerinin vektörün olumsuzlaması verecektir ise vektör, boşsa .s[1]s[2]!10

JavaScript (ES6), 57 56 bayt

Körili sözdiziminde girdi alır (a)(b). 0Veya döndürür 1.

a=>b=>a==b|!(g=k=>a%--k?g(k):k<2||a-b&&g(a+=a<b||-1))(a)

Test senaryoları

let f =

a=>b=>a==b|!(g=k=>a%--k?g(k):k<2||a-b&&g(a+=a<b||-1))(a)

console.log('Truthy')
console.log(f(8)(10))
console.log(f(20)(22))
console.log(f(65)(65))
console.log(f(73)(73))
console.log(f(86)(84))
console.log(f(326)(318))
console.log(f(513)(518))

console.log('Falsy')
console.log(f(4)(5))
console.log(f(6)(8))
console.log(f(409)(401))
console.log(f(348)(347))
console.log(f(419)(418))
console.log(f(311)(313))

Nasıl?

a => b =>                 // given a and b
  a == b |                // if a equals b, force success right away
  !(g = k =>              // g = recursive function taking k
    a % --k ?             //   decrement k; if k doesn't divide a:
      g(k)                //     recursive calls until it does
    :                     //   else:
      k < 2 ||            //     if k = 1: a is prime -> return true (failure)
      a - b &&            //     if a equals b: neither the original input integers nor
                          //     any integer between them are prime -> return 0 (success)
      g(a += a < b || -1) //     else: recursive call with a moving towards b
  )(a)                    // initial call to g()

R , 63 46 bayt

-17 Giuseppe tarafından

function(a,b)!sd(range(numbers::isPrime(a:b)))

Çevrimiçi deneyin!

ETHProductions 'Jelly çözümü oldukça basit bir uygulama . Ana ilginç paket , R boolean vektörleri any(x)==all(x)ile eşdeğer olmasıdır min(x)==max(x).

C (gcc), 153146 bayt

i,B;n(j){for(B=i=2;i<j;)B*=j%i++>0;return!B;}
#define g(l,m,o)for(l=o;n(--l););for(m=o;n(++m););
a;b;c;d;h(e,f){g(a,b,e)g(c,d,f)return!(a-c|b-d);}

-7 Jonathan Frech tarafından

hİki intsaniye 1süren ve doğruluk ve falsey 0için geri dönen bir işlevi tanımlar

Çevrimiçi deneyin!

n argümanı asal değilse 1 döndüren bir işlevdir.

g birinci ve ikinci argümanlarını, üçüncü argümanından (sırasıyla) daha küçük ve daha büyük bir sonraki başlığa ayarlayan bir makrodur

hgher iki giriş için de yapar ve çıkışların aynı olup olmadığını kontrol eder.

Jöle , 6 bayt

ÆpżÆnE

Çevrimiçi deneyin!

-2 Dennis sayesinde .

APL (Dyalog Unicode) , 18 + 16 = 34 24 bayt

⎕CY'dfns'
∧/=/4 ¯4∘.pco⎕

Çevrimiçi deneyin!

Adám'a 10 bayt için teşekkürler .

Varsayılan Dyalog APL yüklemelerinde bulunan dfns ( d ynamic f unctio ns ) koleksiyonunu içe aktarmak için ⎕CY'dfns'( C OP Y ) satırı gereklidir .

Nasıl çalışır:

∧/=/4 ¯4∘.pco⎕ ⍝ Main function. This is a tradfn body.
             ⎕ ⍝ The 'quad' takes the input (in this case, 2 integers separated by a comma.
          pco  ⍝ The 'p-colon' function, based on p: in J. Used to work with primes.
    4 ¯4∘.     ⍝ Applies 4pco (first prime greater than) and ¯4pco (first prime smaller than) to each argument.
  =/           ⍝ Compares the two items on each row
∧/             ⍝ Applies the logical AND between the results.
               ⍝ This yields 1 iff the prime clusters are equal.

Python 2 , 87 86 bayt

lambda*v:v[0]==v[1]or{1}-{all(v%i for i in range(2,v))for v in range(min(v),max(v)+1)}

Çevrimiçi deneyin!

C (gcc) , 103 bayt 100 bayt

i,j,p,s;f(m,n){s=1;for(i=m>n?i=n,n=m,m=i:m;i<=n;i++,p?s=m==n:0)for(p=j=2;j<i;)p=i%j++?p:0;return s;}

Çevrimiçi deneyin!

Haskell , 81 bayt

Basit bir çözüm:

p z=[x|x<-z,all((0/=).mod x)[2..x-1]]!!0
c x=(p[x-1,x-2..],p[x+1..])
x!y=c x==c y

Çevrimiçi deneyin!

Mathematica, 39 27 26 bayt

Equal@@#~NextPrime~{-1,1}&

Expanded:

                         &  # pure function, takes 2-member list as input
       #~NextPrime~{-1,1}   # infix version of NextPrime[#,{-1,1}], which
                            # finds the upper and lower bounds of each
                              argument's prime clusters
Equal@@                     # are those bounds pairs equal?

Kullanımı:

Equal@@#~NextPrime~{-1,1}& [{8, 10}]
(*  True  *)

Equal@@#~NextPrime~{-1,1}& [{6, 8}]
(*  False  *)

Equal@@#~NextPrime~{-1,1}& /@ {{8, 10}, {20, 22}, {65, 65}, 
    {73, 73}, {86, 84}, {326, 318}, {513, 518}}
(*  {True, True, True, True, True, True, True}  *)

Equal@@#~NextPrime~{-1,1}& /@ {{4, 5}, {6, 8}, {409, 401}, 
    {348, 347}, {419, 418}, {311, 313}}
(*  {False, False, False, False, False, False}  *)

Katkılar: Jenny_mathy tarafından -12 bayt , Martin Ender tarafından -1 bayt

J , 15 bayt

-:&(_4&p:,4&p:)

Nasıl çalışır:

   &(           ) - applies the verb in the brackets to both arguments
            4&p:  - The smallest prime larger than y
      _4&p:       - The largest prime smaller than y
           ,      - append
 -:               - matches the pairs of the primes

Çevrimiçi deneyin!