プライムクラスタ整数Nよりも高い2は最高素数によって形成対として定義される厳密より低いNプライム最低厳密以上N。

整数が素数自体である場合は、上記の定義を以下、そのプライムクラスタが素数の組であることに注意先行及び後続それは。

仕事

2つの整数整数N、M（N、M≥3）が与えられた場合、NとMが同じ素数クラスターを持っているかどうかに基づいて、真/偽の値を出力します。

これはcode-golfであるため、目的はバイト数をできるだけ減らすことです。したがって、すべてのプログラミング言語で最も短いコードが優先されます。

テストケース/例

例えば、のプライムクラスタ9がある[7, 11]ので、：

• 7は9より厳密に低い最高の素数であり、
• 11は9よりも厳密に高い最低の素数です。

同様に、67の素数クラスターは[61, 71]（67は素数であることに注意）です。

真実のペア

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

偽のペア

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

ゼリー、6 4 3 5 4バイト

rÆPE

オンラインでお試しください！またはすべてのテストケースを試してください。

使い方

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).

2つの数が異なる素数クラスタを持つのは、それらの間に素数があるか、どちらかの数値自体が素数である場合に有効です。両方の数値が同じである場合を除き、どちらの場合も結果Eは返され1ます（単一項目配列内のすべての項目は等しい）。

Perl 6、52バイト

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

試して

拡張：

{  # 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バイト

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]

オンラインでお試しください！

Ruby、₅₇ 54バイト

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

オンラインでお試しください！

私の答え（クリックするまで忘れていました）から関連する質問への恐ろしい正規表現素数性テストを使用しますこの数は素数ですか？。N、M≥3であるため、1のチェックをパターンから削除できるため、バイト数を組み込みを使用するよりも少なくできます。

注：正規表現の素数性テストは、病理学的に、陽気に非効率的です。少なくともO（n！）だと思いますが、今はそれを理解する時間はありません。100,001をチェックするのに12秒かかり、キャンセルする前に1,000,001で5〜10分の研削を行っていました。自己の責任において使用/乱用してください。

網膜、58バイト

\b(.+)¶\1\b

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

オンラインでお試しください！説明：

\b(.+)¶\1\b

両方の入力が同じ場合は、すべてを削除し、最後に出力1に進みます。

.+
$*

単項に変換します。

O`

順番に並べ替えます。

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

すべての数値の範囲に展開します。

A`^(11+)\1+$

すべての合成数を削除します。

^$

数字が残っていない場合は1、それ以外の場合は0を出力します。

PARI / GP、28バイト

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

すべてのテストケースでオンラインでお試しください！

0または1（通常のPARI / GP "ブール"値）を返します。

説明：

v座標としての2つの数値Nを持つベクトル（または列ベクトル、またはリスト）でなければなりませんM。例えば[8, 10]。その後s、これらの数値から作成された「セット」になります。これは、1座標ベクトル（の場合N==M）、またはそれ以外の場合はエントリをソートした2 座標ベクトルのいずれかです。

次に#s、座標の数がs1つだけの場合、1（真実）になります。それ以外の場合primesは、閉じた区間からs[1]までのすべての素数のベクトルを返しs[2]ます。その否定!は1、ベクトルが空の場合に与えられ、1つ以上の非ゼロエントリ（ここでは1つ以上の素数）のベクトルの否定は、与えられ0ます。

JavaScript（ES6）、57 56バイト

カリー化構文で入力を受け取ります(a)(b)。0またはを返します1。

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

テストケース

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

どうやって？

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バイト

-17ジュゼッペ

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

オンラインでお試しください！

ETHProductionsのゼリーソリューションのかなり単純なアプリケーション。主な興味深い要点は、Rブールベクトルでany(x)==all(x)はと同等であることmin(x)==max(x)です。

C（GCC）、153の 146バイト

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から

定義する関数h2を取り込みintsおよびリターン1truthyのためと0 falseyのために

オンラインでお試しください！

n 引数が素数でない場合に1を返す関数です。

g 最初の引数と2番目の引数を、3番目の引数よりも小さい（大きい）次の素数に設定するマクロです。

hいg入力と出力が同じであるか否かを確認する両方のために。

ゼリー、6バイト

ÆpżÆnE

オンラインでお試しください！

-2 Dennisに感謝します。

APL（Dyalog Unicode）、18 + 16 = 34 24バイト

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

オンラインでお試しください！

アダムのおかげで10バイトしてにます。

行⎕CY'dfns'（C OP Yは）をインポートするために必要とされるDFNSを（D ynamic F unctio NS）コレクションは、デフォルトDyalog APLに含まがインストールされます。

使い方：

∧/=/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バイト

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

オンラインでお試しください！

C（gcc）、103バイト 100バイト

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

オンラインでお試しください！

ハスケル、81バイト

簡単な解決策：

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

オンラインでお試しください！

Mathematica、39 27 26バイト

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

拡張：

                         &  # 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?

使用法：

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

貢献：Jenny_mathyによる-12 バイト、Martin Enderによる-1バイト

J、15バイト

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

使い方：

   &(           ) - 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

オンラインでお試しください！