เขียนโปรแกรมที่รับอินพุต (ซึ่งอาจจะใช่หรือไม่ใช่ไพร์ม) และทำรายการไพรม์ทันทีที่ตามมาและนำหน้ามัน

อินพุตตัวอย่าง:

1259

ตัวอย่างผลลัพธ์:

1249 1277

โปรแกรมที่สั้นที่สุดชนะ ต้องดำเนินการภายใน 10 วินาทีบนเดสก์ท็อปพีซีที่ทันสมัย อินพุตจะ จำกัด สูงสุด 10,000

Perl 5.10 (perl -E), 65 ตัวอักษร

เครดิตครึ่งหนึ่ง (อย่างน้อย) ควรไปที่ @J B.

$m=<>;for(-1,1){$n=$m;0while(1x($n+=$_))=~/^1$|(^11+)\1+$/;say$n}

Mathematica , 19

#~NextPrime~{-1,1}&

Mathematica: 28 ตัวอักษร

(k=NextPrime;{k[#,-1],k@#})&  

การใช้

%[1259]
{1249, 1277}  

%[121231313159]  
{121231313129, 121231313191}

Python - 93

ขึ้นอยู่กับคำตอบโดย fR0DDY ฉันโดยทั่วไปผสานบรรทัดที่ 4 และ 5 และย่อบรรทัดที่ 2 โดยใช้วิธีอื่น

n=input()-1
m=n+2
f=lambda n:any(n%x<1for x in range(2,n))
exec"n-=f(n);m+=f(m);"*m
print n,m

Python 116 111 109 ตัวละคร

n=input()-1
m=n+2
f=lambda n:any(pow(b,n-1,n)>1for b in(3,5,7,13))
while f(n):n-=1
while f(m):m+=1
print n,m

J, 22 ตัวอักษร

(_4&p:,4&p:)(".stdin)_

Haskell: 99

s(z:y)=z:s[x|x<-y,mod x z>0];f(x:y:z:w)=(x,z):f(y:z:w);p x=(head.filter(\(c,v)->c<x&&v>x).f.s)[2..]

ตัวอย่าง

Main> p 1259
(1249,1277)

Python 116 139 chars (เยื้องคู่คือ tab-char)

ใช้ Sieve of Eratosthenes โดยตรง

แก้ไขและ (ขอบคุณ TON @JPvdMerwe) ควรทำงานกับจำนวนเฉพาะตอนนี้

l=n=input();a=range(n*2)
for i in a[2:]:a=[k for k in a if k==i or k%i]
for g in a:
 if g>n:print l,g;break
 if i!=n:l=g

เป็นต้นฉบับ

a=range(9999)
j=lambda a,n:[i for i in a if i==n or i%n]
for i in a[2:]:a=j(a,i)
o=n=input();
for i in a:
 if o<n and i>n: 
  print o,i
 o=i

สกาล่า 119:

def p(n:Int)=(2 to n-1).exists(n%_==0)
def i(n:Int,v:Int):Int=if(!p(n+v))n+v else i(n+v,v)
Seq(-1,1).map(i(readInt,_))

ungolfed:

def notPrime (n:Int) = 
    (2 to n-1).exists (n % _ == 0)

def itPrime (n: Int, vector:Int) : Int =
    if (! notPrime (n+vector)) n+vector
    else itPrime (n+vector, vector)

def nearbyPrime (value: Int) =
    Seq (-1, 1).map (sign => itPrime (value, sign))

21.2s เพื่อเรียกใช้int ทั้งหมด 9998 จาก 3 เป็น 10.000

Jelly , 5 ไบต์ (ไม่ใช่การแข่งขัน?)

Æp,Æn

ลองออนไลน์!

สวิฟต์190 187 185 110

สวิฟท์นั้นแย่มากในการเขียนโค้ดกอล์ฟ แต่ฉันก็ลองทำดู: D
มันสั้นลงเรื่อย ๆ ... (ขอบคุณ@HermanLauenstein ที่เอา 75 ไบต์ออก)

var a=Int(readLine()!)!;for b in[-1,1]{var n=a,c=0;while c<1{n+=b;c=1;for i in 2..<n{if n%i<1{c=0}}};print(n)}

Python (123)

import Primes as p
j=i=int(input())
n=p.primes(i*2)
while not i in n[:]:
 i+=1
print(i)
while not j in n[:]:
 j-=1
print(j)

หมายเหตุ: Primesฉันเขียนโมดูล แต่มีอยู่ก่อนที่คำถามนี้จะถูกถาม มันไม่ได้เขียนสำหรับสิ่งนี้ อย่างไรก็ตามนี่ถือว่าไม่ยุติธรรมดังนั้นนี่คือรุ่นที่อัปเดตแล้ว

งูหลาม (215)

j=i=int(input())
import math as m
s=list(range(i*2))
for n in s[:]:
 for l in range(1,int(m.ceil(m.sqrt(n)))):
  if(n%l)==0and l!=1and n in s:s.remove(n)
while not i in s:i+=1
print(i)
while not j in s:j-=1
print(j)

Stax , 7 ไบต์

èëïy▌Ü╚

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

ASCII เทียบเท่า:

^:Px:pLJ

Built-in

JavaScript (Node.js) , 79 ไบต์

f=(n,d)=>d?p(n)?n:f(n+d,d):[f(n-1,-1),f(n+1,1)]
p=(n,i=1)=>++i*i>n||n%i&&p(n,i)

ลองออนไลน์!

C (gcc) , 98 ไบต์

p(n,i){for(i=2;i<n;)n=n%i++?n:0;i=n;}g(n,d){for(;!p(n+=d););printf("%d ",n);}f(n){g(n,-1);g(n,1);}

ลองออนไลน์!

เวอร์ชั่นเต็มของโปรแกรมC (gcc) , 116 ไบต์

p(n,i){for(i=2;i<n;)n=n%i++?n:0;i=n;}g(n,d){for(;!p(n+=d););printf("%d ",n);}main(n){scanf("%d",&n);g(n,-1);g(n,1);}

ลองออนไลน์!

ทั้งสองรุ่นสันนิษฐานว่าเราไม่เคยทดสอบ 1 สำหรับการใช้งานดั้งเดิมซึ่งจะเกิดขึ้นหากอินพุตเป็น 2 หรือต่ำกว่าซึ่งในกรณีนี้เอาต์พุตจะไม่ได้กำหนดไว้