Viết chương trình lấy một đầu vào (có thể có hoặc không phải là số nguyên tố) và liệt kê các số nguyên tố ngay sau đó và trước nó.

Ví dụ đầu vào:

1259

Ví dụ đầu ra:

1249 1277

Chương trình ngắn nhất sẽ thắng. Phải thực hiện trong vòng 10 giây trên máy tính để bàn hiện đại. Đầu vào sẽ được giới hạn tối đa 10.000.

Perl 5.10 (perl -E), 65 ký tự

Một nửa tín dụng (ít nhất) nên vào @J B.

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

Toán học , 19

#~NextPrime~{-1,1}&

Toán học: 28 ký tự

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

Sử dụng

%[1259]
{1249, 1277}  

%[121231313159]  
{121231313129, 121231313191}

Con trăn - 93

Dựa trên câu trả lời của fR0DDY . Về cơ bản, tôi đã hợp nhất các dòng 4 và 5 và rút ngắn dòng 2 bằng cách sử dụng một phương pháp khác.

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 Ký tự

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 ký tự

(_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..]

Thí dụ

Main> p 1259
(1249,1277)

Python, 116 139 ký tự (thụt đôi là tab-char)

Sử dụng tốt ole Sàng của Eratosthenes

Chỉnh sửa và (cảm ơn TON @JPvdMerwe). Nên làm việc với số nguyên tố bây giờ.

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

Nguyên

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

Scala 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,_))

vô dụng:

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,2 giây để chạy tất cả 9998 int từ 3 ​​đến 10.000

Jelly , 5 byte (không cạnh tranh?)

Æp,Æn

Hãy thử trực tuyến!

Swift 190 187 185 110

Swift rất tệ trong môn đánh gôn, nhưng dù sao tôi cũng đã thử: D
Nó ngày càng ngắn hơn ... (Cảm ơn @HermanLauenstein vì đã xóa 75 byte)

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

Con trăn (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)

LƯU Ý: PrimesMô-đun được viết bởi tôi nhưng nó đã tồn tại trước khi câu hỏi này được hỏi. Nó KHÔNG được viết cho điều này. Tuy nhiên, điều này được coi là không công bằng, vì vậy đây là phiên bản cập nhật.

Con trăn (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 byte

èëïy▌Ü╚

Chạy và gỡ lỗi nó

Tương đương ASCII:

^:Px:pLJ

Được xây dựng trong.

JavaScript (Node.js) , 79 byte

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)

Hãy thử trực tuyến!

C (gcc) , 98 byte

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

Hãy thử trực tuyến!

Phiên bản chương trình đầy đủ, C (gcc) , 116 byte

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

Hãy thử trực tuyến!

Cả hai phiên bản đều cho rằng chúng tôi không bao giờ kiểm tra tính nguyên thủy 1, điều này chỉ xảy ra nếu đầu vào là 2 hoặc thấp hơn, trong trường hợp đó đầu ra sẽ không được xác định.