Escriba un programa que tome una entrada (que puede ser primo o no), y enumera el primo inmediato que lo sigue y lo precede.

Entrada de ejemplo:

1259

Salida de ejemplo:

1249 1277

El programa más corto gana. Debe ejecutarse en 10 segundos en una PC de escritorio moderna. Las entradas se limitarán a un máximo de 10,000.

Perl 5.10 (perl -E), 65 caracteres

La mitad del crédito (al menos) debe ir a @J B.

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

Mathematica , 19

#~NextPrime~{-1,1}&

Mathematica: 28 caracteres

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

Uso

%[1259]
{1249, 1277}  

%[121231313159]  
{121231313129, 121231313191}

Python - 93

Basado en la respuesta de fR0DDY . Básicamente fusioné las líneas 4 y 5, y acorté la línea 2 usando un método diferente.

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 Personajes

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 caracteres

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

Ejemplo

Main> p 1259
(1249,1277)

Python, 116 139 caracteres (la doble sangría es tab-char)

Utiliza buen tamiz ole de Eratóstenes

Ediciones y (gracias a TON @JPvdMerwe). Debería trabajar con primos ahora.

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

Original

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

sin golf:

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 para ejecutar todos los 9998 ints de 3 a 10,000

Jelly , 5 bytes (¿no compite?)

Æp,Æn

Pruébalo en línea!

Swift 190 187 185 110

Swift es muy malo en code-golf, pero lo intenté de todos modos: D
Se está volviendo cada vez más corto ... (Gracias a @HermanLauenstein por eliminar 75 bytes)

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

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

NOTA: El Primesmódulo fue escrito por mí pero existía antes de que se hiciera esta pregunta. NO fue escrito para esto. Sin embargo, esto se consideró injusto, así que aquí está la versión actualizada.

Pitó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 bytes

èëïy▌Ü╚

Ejecutar y depurarlo

ASCII equivalente:

^:Px:pLJ

Empotrados.

JavaScript (Node.js) , 79 bytes

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)

Pruébalo en línea!

C (gcc) , 98 bytes

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

Pruébalo en línea!

Versión completa del programa, C (gcc) , 116 bytes

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

Pruébalo en línea!

Ambas versiones suponen que nunca probamos 1 para primalidad, lo que solo sucede si la entrada es 2 o inferior, en cuyo caso la salida no estaría definida de todos modos.