ความท้าทายของคุณถ้าคุณเลือกที่จะยอมรับมันคือการฟังก์ชั่น code-golf ที่ส่งคืนจริงหรือเท็จ (หรือบางส่วนที่มีความหมายคล้ายกันคือใช่และไม่ใช่) หากตัวเลขตรงตามเกณฑ์ต่อไปนี้:

1. จำนวนเต็มนั้นเป็นจำนวนเฉพาะหรือ
2. จำนวนเต็มเพื่อนบ้านอย่างใดอย่างหนึ่งเป็นจำนวนเฉพาะ

ตัวอย่างเช่น:
อินพุต7จะคืนค่าเป็น True
อินพุตของ8จะส่งคืนค่าเป็น True ด้วยเช่นกัน
อินพุตของ15จะส่งคืนค่าเท็จ (ทั้ง 14, 15, หรือ 16 เป็นไพร์ม)

อินพุตต้องสามารถส่งคืนได้อย่างถูกต้องสำหรับตัวเลขระหว่าง 2 ^ 0 ถึง 2 ^ 20 ดังนั้นจึงไม่จำเป็นต้องกังวลเกี่ยวกับปัญหาการลงชื่อหรือการล้นของจำนวนเต็ม

J, 17

*/<:$&q:(<:,],>:)

ส่งคืน booleans ที่เข้ารหัสเป็นรหัสส่งคืนกระบวนการ: ศูนย์สำหรับจริงไม่ใช่ศูนย์สำหรับเท็จ ตัวอย่างการใช้งาน:

   */<:$&q:(<:,],>:) 7
0
   */<:$&q:(<:,],>:) 8
0
   */<:$&q:(<:,],>:) 15
3

Haskell, 47 ตัวอักษร

f n=any(\k->all((>0).mod k)[2..k-1])[n-1..n+1]

Python 85 80

def f(n):g=lambda n:all(n%i!=0for i in range(2,n));return g(n)or g(n-1)or g(n+1)

เป็นครั้งแรกที่ Code Golf ดังนั้นอาจมีลูกเล่นบางอย่างที่ขาดหายไป

ไม่ใช่คู่แข่งที่แท้จริงในการย่อรหัสด้วยวิธีการใด ๆ แต่ก็ยังคงส่งเนื่องจากการกำหนดความถูกต้องเบื้องต้นโดยการแสดงออกปกติบิดในหลาย ๆ !

Python (2.x), 85 ตัวอักษร

import re
f=lambda n:any(not re.match(r"^1?$|^(11+?)\1+$","1"*x)for x in[n,n-1,n+1])

ทับทิม (55 หรือ 50 เป็นแลมบ์ดา)

def f q;(q-1..q+1).any?{|n|(2..n-1).all?{|d|n%d>0}};end

หรือแลมบ์ดา (ใช้ g[23]เรียกมัน)

g=->q{(q-1..q+1).any?{|n|(2..n-1).all?{|d|n%d>0}}}

Coffeescript (53)

p=(q)->[q-1..q+1].some (n)->[2..n-1].every (d)->n%d>0

Mathematica ที่น่าเบื่อ35คำตอบ!

PrimeQ[n-1]||PrimeQ[n]||PrimeQ[n+1]

C, 112 82 72 ตัวอักษร

ติดตามความคิดเห็นของ Ilmari Karonen ได้บันทึก 30 ตัวอักษรโดยการลบmainตอนนี้Pกลับเป็นจริง / เท็จ แทนที่ลูปด้วยการเรียกซ้ำและการปรับแต่งเพิ่มเติม

p(n,q){return++q==n||n%q&&p(n,q);}P(n){return p(-~n,1)|p(n,1)|p(~-n,1);}

รุ่นเดิม:

p(n,q,r){for(r=0,q=2;q<n;)r|=!(n%q++);return!r;}
main(int n,int**m){putchar(48|p(n=atoi(*++m))|p(n-1)|p(n+1));}

Mathematica ขนาด 24 ไบต์

ไม่ทราบว่าทำไมโพสต์เก่านี้ปรากฏในรายการของฉันวันนี้ แต่ฉันรู้ว่า Mathematica แข่งขันที่นี่

Or@@PrimeQ/@{#-1,#,#+1}&

ฟังก์ชั่นที่ไม่มีชื่อการอาร์กิวเมนต์จำนวนเต็มและกลับมาหรือTrue Falseการใช้งานโดยตรง

Stax , 6 ไบต์

Ç▀<╝ºΩ

เรียกใช้และแก้ไขข้อบกพร่อง

คำอธิบาย (แยกออก):

;v:Pv<! Full program, implicit input  Example: 7
;v      Copy input and decrement               7 6
  :P    Next prime                             7 7
    v   Decrement                              7 6
     <! Check if input is >= result            1

JavaScript (71 73 80 )

n=prompt(r=0);for(j=n-2;p=j++<=n;r|=p)for(i=1;++i<j;)p=j%i?p:0;alert(r)

การสาธิต: http://jsfiddle.net/ydsxJ/3/

แก้ไข 1:เปลี่ยนfor(i=2;i<j;i++)เป็น for(i=1;++i<j;)(ขอบคุณ@minitech) แปลงifคำสั่งเป็นสามส่วน ย้ายr|=pและp=1เข้าสู่ภายนอกforเพื่อกำจัดการจัดฟันด้านใน บันทึก 7 ตัวอักษร

แก้ไข 2:รวมp=1และj++<=nไปยังp=j++<=nบันทึก 2 ตัวอักษร (ขอบคุณ@ugoren)

Regex (ECMAScript), 20 ไบต์

^x?x?(?!(x+)(x\1)+$)

ลองออนไลน์!

เวอร์ชั่นด้านบนจัดการกับศูนย์ไม่ถูกต้อง แต่ใช้เวลาเพิ่ม 1 ไบต์เท่านั้น:

^x?x?(?!(x+)(x\1)+$)x

ในฐานะโบนัสที่เพิ่มเข้ามานี่เป็นเวอร์ชั่นที่ให้ผลตอบแทนการแข่งขัน1สำหรับผู้ที่มีค่าน้อยกว่าผู้ชนะเลิศ2สำหรับ3ผู้ชนะเลิศและผู้ชนะมากกว่าหนึ่งคน:

^x?x??(?!(x+)(x\1)+$)x

ลองออนไลน์!

C #, 96

มันส่งกลับ -1,0,1 สำหรับจริงสิ่งอื่นใดเป็นเท็จ

ข้อเสนอแนะใด ๆ ที่จะทำให้มันสั้นลงจะยอดเยี่ยม!

int p(int q){var r=q-1;for(var i=2;i<r&r<q+2;i++){if(i==r-1)break;if(r%i==0)r+=i=1;}return r-q;}

รูปแบบการขยายตัว:

int p(int q){
    var r=q-1;
    for(var i=2;i<r&r<q+2;i++){
        if(i==r-1)break;
        if(r%i==0)r+=i=1;
    }
    return r-q;     
}

GolfScript: 26

)0\{.:i,{i\%!},,2=@|\(}3*;

คำอธิบาย: บล็อกชั้นในสุด{.:i,{i\%!},,2=@|\(}จะกำหนดว่าส่วนบนสุดของสแต็กนั้นเป็นไพร์มหรือไม่โดยตรวจสอบว่ามีปัจจัย 2 อย่างน้อยกว่าด้านบนสุดของสแต็กหรือไม่ จากนั้นจะแยกสิ่งนี้ออกด้วยไอเท็มที่สองบนสแต็กซึ่งเก็บสถานะว่ามีการดูไพรม์หรือไม่ ในที่สุดก็ลดจำนวนที่ด้านบนของสแต็ค

เริ่มต้นด้วยการเพิ่มอินพุตอินพุตเริ่มต้นสถานะไพรม์ที่เห็นและทำซ้ำบล็อก 3 ครั้ง ตั้งแต่นี้จะพร่องสองครั้ง แต่เราเริ่มต้นโดยการเพิ่มนี้จะครอบคลุมและn+1n-1

C #, 87 97 ตัวอักษร

bool p(int q){return new[]{q-1,q,q+1}.Any(x=>Enumerable.Range(2,Math.Abs(x-2)).All(y=>x%y!=0));}

CJam, 12 ไบต์

CJam อายุน้อยกว่าความท้าทายนี้ดังนั้นคำตอบนี้จึงไม่มีสิทธิ์ใช้เครื่องหมายถูกสีเขียว (ซึ่งควรได้รับการอัปเดตเป็นคำตอบแบบสุ่มของต่อไป) อย่างไรก็ตามการเล่นกอล์ฟมันสนุกจริงๆ - ฉันเริ่มต้นที่ 17 ไบต์และเปลี่ยนวิธีการเล่นของฉันอย่างสมบูรณ์สามครั้งโดยประหยัดหนึ่งหรือสองไบต์ในแต่ละครั้ง

{(3,f+:mp:|}

นี่คือบล็อกซึ่งเทียบเท่ากับฟังก์ชันใน CJam ที่ใกล้เคียงที่สุดซึ่งคาดว่าอินพุตในสแต็กและปล่อย 1 (ความจริง) หรือ 0 (เท็จ) บนสแต็ก

ทดสอบที่นี่

นี่คือวิธีการทำงาน:

(3,f+:mp:|
(          "Decrement the input N.";
 3,        "Push an array [0 1 2].";
   f+      "Add each of those to N-1, to get [N-1 N N+1].";
     :mp   "Test each each element for primality, yielding 0 or 1.";
        :| "Fold bitwise OR onto the list, which gives 1 if any of them was 1.";

F #, 68 ไบต์ (ไม่แข่งขัน)

let p n=Seq.forall(fun x->n%x>0){2..n-1}
let m n=p(n-1)||p n||p(n+1)

ลองออนไลน์!

นี่คือเหตุผลที่ฉันรักรหัสกอล์ฟ ฉันยังคงเป็นมิตรกับสิ่งแวดล้อมด้วย F # แต่ฉันได้เรียนรู้มากมายเกี่ยวกับวิธีการทำงานของภาษาและสิ่งที่สามารถทำได้จากความท้าทายเหล่านี้

APL (Dyalog Classic)ขนาด 20 ไบต์

0∊¯1 0 1∘+∊(∘.×⍨1↓⍳)

ลองออนไลน์!

เรติน่า 22 ไบต์

$
1
^1?1?(?!(11+)\1+$)

ลองออนไลน์!

ใช้เวลารวมกันเป็นอินพุต

Java 8, 83 ไบต์

n->n==1|p(n-1)+p(n)+p(n+1)>0int p(int n){for(int i=2;i<n;n=n%i++<1?0:n);return--n;}

ส่งคืนtrue/ falseเป็นค่าจริง / เท็จ

ลองออนไลน์

คำอธิบาย: "

n->                    // Method with integer parameter and boolean return-type
  n==1                 //  Return whether the input is 1 (edge-case)
  |p(n-1)+p(n)+p(n+1)>0//  Or if the sum of `n-1`, `n`, and `n+1` in method `p(n)` is not 0

int p(int n){          // Separated method with integer as both parameter and return-type
  for(int i=2;i<n;     //  Loop `i` in the range [2, `n`)
    n=n%i++<1?         //   If `n` is divisible by `i`
       0               //    Change `n` to 0
      :                //   Else:
       n);             //    Leave `n` as is
                       //  (After the loop `n` is either 0, 1, or unchanged,
                       //   if it's unchanged it's a prime, otherwise not)
  return--n;}          //  Return `n` minus 1

ดังนั้นint p(int n)จะส่งผลให้-1สำหรับn=0และไม่ใช่ช่วงเวลาและจะส่งผลn-1ให้n=1หรือเฉพาะช่วงเวลา ตั้งแต่p(0)+p(1)+p(2)จะกลายเป็น-1+0+1 = 0และจะกลับเท็จ (แม้ว่า2จะเป็นนายก) n=1เป็นกรณีที่ขอบโดยใช้วิธีการนี้

วนรอบเดียวโดยไม่มีวิธีการแยกจะเป็น85 ไบต์ :

n->{int f=0,j=2,i,t;for(;j-->-1;f=t>1?1:f)for(t=n+j,i=2;i<t;t=t%i++<1?0:t);return f;}

ส่งคืน1/ 0เป็นค่าจริง / เท็จ

ลองออนไลน์

คำอธิบาย:

n->{              // Method with integer as both parameter and return-type
  int f=0,        //  Result-integer, starting at 0 (false)
      j=2,i,      //  Index integers
      t;          //  Temp integer
  for(;j-->-1;    //  Loop `j` downwards in range (2, -1]
      f=          //    After every iteration: Change `f` to:
        t>1?      //     If `t` is larger than 1 (`t` is a prime):
         1        //      Change `f` to 1 (true)
        :         //     Else:
         f)       //      Leave `f` the same
    for(t=n+j,    //   Set `t` to `n+j`
        i=2;i<t;  //   Inner loop `i` in the range [2, t)
      t=t%i++<1?  //    If `t` is divisible by `i`:
         0        //     Change `t` to 0
        :         //    Else:
         t);      //     Leave `t` the same
                  //   (If `t` is still the same after this inner loop, it's a prime;
                  //   if it's 0 or 1 instead, it's not a prime)
  return f;}      //  Return the result-integer (either 1/0 for true/false respectively)

Japtap , 7 ไบต์

´Uô2 dj
´Uô2    // Given the range [U-1..U+1],
     dj // sing "Daddy DJ", uh, I mean, check if any are a prime.

ลองออนไลน์!

R, 68 ตัวอักษร

f=function(n){library(gmp);i=isprime;ifelse(i(n-1)|i(n)|i(n+1),1,0)}

การใช้งาน (1 สำหรับ TRUE, 0 สำหรับ FALSE):

f(7)
[1] 1
f(8)
[1] 1
f(15)
[1] 0

C ++

k=3;cin>>i;i--;
while(k)
{l[k]=0;
  for(j=2;j<i;j++)
   if(!(i%j))
     l[k]++;
  k--;
  i++;
}
if(!l[1]|!l[2]|!l[3])
     cout<<"1";
else cout<<"0";

Q, 43 chars 36

{any min each a mod 2_'til each a:x+-1 0 1}

{any(min')a mod 2_'(til')a:x+-1 0 1}

J, 16 ตัวอักษร

   (_2&<@-4 p:]-2:)

   (_2&<@-4 p:]-2:) 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
1 1 1 1 1 1 1 1 0 1 1 1 1 1 0 1 1 1 1

Python, 69 67 ตัวอักษร

any(all(i%j for j in range(2,i))for i in range(input()-1,8**7)[:3])

8**7 > 2**20 ในขณะที่เขียนให้สั้นลงเล็กน้อย

Ruby, 47 ตัวอักษร แต่อ่านง่ายมาก

require'Prime'
f=->x{[x-1,x,x+1].any? &:prime?}

C ++ 97

ugoren ดูเหมือนจะเอาชนะฉันไปยังทางออกที่ฉลาด ดังนั้นเขาจึงเป็นเวอร์ชั่นสั้น ๆ ในวงวนสามครั้ง:

P(int k){int j=1;for(int i=2;i<k;){j=k%i++&&j;}return j;}
a(int b){return P(b)|P(b+1)|P(b-1);}

ออกมา (gforth) 104 ไบต์

: p dup 1 > if 1 over 2 ?do over i mod 0> * loop else 0 then nip ;
: f dup 1- p over 1+ p rot p + + 0< ;

ลองออนไลน์!

คำอธิบาย

นายกรัฐมนตรี (p)

dup 1 > if          \ if number to check if greater than 1
   1 over 2 ?do     \ place a 1 on the stack to act as a boolean and loop from 2 to n
      over i  mod   \ take the modulo of n and i
      0> *          \ check if greater than 0 (not a divisor) and multiply result by boolean
   loop             \ end the loop, result will be -1 if no divisor was found (prime)
else                \ if n is less than 2
   0                \ put 0 on the stack (not prime)
then                \ end the loop
nip                 \ drop n from the stack

ฟังก์ชั่นหลัก (f)

dup 1- p             \ get n-1 and check if prime
over 1+ p            \ get n+1 and check if prime
rot p                \ rotate stack to put n on top and check if prime
+ + 0<               \ add the three results and check if less than 0 (at least 1 was prime)

Julia 0.4 , 23 ไบต์

n->any(isprime,n-1:n+1)

ลองออนไลน์!

เยลลี่ 5 ไบต์

‘r’ẒẸ

ลองออนไลน์!

มันทำงานอย่างไร

‘r’ẒẸ    Monadic main link. Input: integer n
‘r’      Generate range n-1..n+1
   ẒẸ    Is any of them a prime?