Dado un gran número (en la base 10), como 1234567891011121314151617, encuentre "subnúmeros" primos en él.
Un "subnúmero" primo es una secuencia consecutiva de dígitos (tomados de la entrada), que representa un número primo (en la base 10).

• Entrada : un número (ya sea una cadena, un archivo o lo que quieras).
• Salida : todos los subnúmeros principales separados de alguna manera (ya sea en una lista, un archivo, cadenas separadas por comas ...) Si el resultado está vacío, puede tomar cualquier convención que desee (cadena codificada, cadena vacía, galimatías, pero el programa no debería choque.
• Ejemplo
  1234 -> 2, 3, 23
  6542 -> 5, 2
  14 -> [.. salida vacía]

Este es el código de golf. ¡El programa más corto gana!
[editar]: regla adicional, el programa debe ser explicado! No todos hablan con fluidez Jelly :)

05AB1E (heredado) , 3 bytes

Œʒp

Pruébalo en línea!

Subcadenas de la entrada que son primas.

Perl 6 , 28 bytes

{grep &is-prime,+«m:ex/.+/}

Pruébalo en línea!

El :exindicador ("exhaustivo") para el operador de coincidencia mhace que devuelva cada coincidencia posible de .+(es decir, cada subcadena de uno o más caracteres), incluso superpuestos. El hiperoperador +«convierte esa lista de Matchobjetos en números, que luego se filtran por primo grep &is-prime.

Brachylog , 4 bytes

-1 byte gracias a Kroppeb .

sᶠṗˢ

Pruébalo en línea!

ᶠsInd todos los hilos, ˢelegir los ṗrimes

Python 2 , 66 65 bytes

P=k=1
n=input()
while~n+k:
 if`k`in`n`>0<P%k:print k
 P*=k*k;k+=1

Pruébalo en línea!

Japt , 13 10 bytes

Gracias @Shaggy -3 bytes

ò fj f@søX

ò fj f@søX              Full program
                        implicity input
ò                       inclusive range [this - 1]
  fj                    filter primes and
     f@søX              values contained in input

Pruébalo en línea!

Jalea ,  5  4 bytes

-1 gracias a Kevin Cruijssen ( Ẓes un alias para ÆP)

ẆḌẒƇ

Un enlace monádico que acepta una lista de dígitos * que produce una lista de enteros primos.

^{* pasando por "una cadena, un archivo o lo que quieras" - para tomar un número entero, prefije el código con D}

Pruébalo en línea!

¿Cómo?

ẆḌẒƇ - Link: list of integers (digits)   e.g. [1,2,3,4]
Ẇ    - non-empty contiguous substrings        [[1],[2],[3],[4],[1,2],[2,3],[3,4],[1,2,3],[2,3,4],[1,2,3,4]]
 Ḍ   - convert to decimal (vectorises)        [1,2,3,4,12,23,34,123,234,1234]
   Ƈ - filter keep if:
  Ẓ  -   is prime?                            [2,3,23]

Java 8, 148 147 bytes

n->{for(int l=n.length(),i=l,j;i-->0;)for(j=l;j>i;){long k=2,x=new Long(n.substring(i,j--));for(;k<x;x=x%k++<1?0:x);if(x>1)System.out.println(x);}}

Pruébalo en línea.

Explicación:

n->{                     // Method with String parameter and no return-type
  for(int l=n.length(),  //  Length of the input-String
          i=l,j;         //  Temp-integers
      i-->0;)            //  Loop `i` in the range [length, 0)
    for(j=l;j>i;){       //   Inner loop `j` in the range [length, 0)
      for(long k=2,      //    Set `k` to 2
               x=new Long(n.substring(i,j--)
                         //    Take the substring [`i`, `j`) from the input,
            );           //    convert it to a long, and set it as `x`
          k<x;           //    Inner loop as long as `k` is still smaller than `x`
        x=x%k++<1?       //     If `x` is divisible by `k`:
           0             //      Set `x` to 0
          :              //     Else:
           x);           //      Leave `x` unchanged
      if(x>1)            //    If `x` is now larger than 1 (a.k.a. If `x` is a prime):
        System.out.println(x);}}
                         //     Print `x` with a trailing newline to STDOUT

MATL , 9 bytes

&XfXUtZp)

Pruébalo en línea!

Explicación

&Xf   % Implicit input: string. Push cell array of non-empty substrings
XU    % Convert to number. Vectorizes
t     % Duplicate
Zp    % Isprime. Vectorizes.
)     % Index. Keeps substrings indicated by the previous result. Implicit display

Bash + GNU Core Utils: 80 77 Bytes

for i in $(seq `tee a|wc -c`)
{
grep -oE .{$i}<a|factor|grep -oP ': \K\d+$'
}

Esto no puede ser lo más corto, pero tengo problemas para encontrar algo mejor. ¡Se busca ayudante!

Al apegarme solo a POSIX, obtuve 82:

for i in $(seq `tee a|wc -c`)
{
grep -oE .{$i}<a|factor|awk -F\  'NF<3{print$2}'
}

R , 60 bytes

function(v)Filter(function(i)grepl(i,v)&sum(!i%%1:i)==2,1:v)

Pruébalo en línea!

No es realmente eficiente, inspirado por la respuesta de @ovs python 2

Python 2 , 115 114 bytes

f=lambda s:s and[n for n in[int(s[j:])for j in range(len(s))]if n>1and all(n%i for i in range(2,n))]+f(s[:-1])or[]

Pruébalo en línea!

Casco , 5 bytes

foṗiQ

Pruébalo en línea!

Limpio , 108 bytes

import StdEnv,Data.List
$s=nub[n\\u<-inits s,n<-map(toInt o toString)(tails u)|n>1&&all(\m=n/m*m<n)[2..n-1]]

Pruébalo en línea!

Pyth, 8 bytes

fP_TsM.:

Banco de pruebas

Toma la entrada como una cadena, genera una lista de enteros. También puede tomar la entrada como un int agregando `al final un byte adicional.

fP_TsM.:  | Full code
fP_TsM.:Q |  with implicit variables added
          | Print (implicit)
      .:Q |  list of all substrings of the input
    sM    |   converted to integers
fP_T      |    filtered for prime numbers

Y `solo se convierte inta str.

Wolfram Language (Mathematica) , 40 bytes

Select[PrimeQ@*FromDigits]@*Subsequences

Pruébalo en línea!

Entrada y salida son listas de dígitos. En el caso de que no haya subnúmeros primos, se devuelve la lista vacía {}.

Usos @*para Compositionde funciones. Subsequencesda una lista de todas las subsecuencias de la entrada, y Select[PrimeQ@*FromDigits]es una forma de operador de la Selectque se devuelve una lista de todos los elementos para los que se PrimeQ@*FromDigitsdevuelve True.

Matlab, 89 bytes

function[m]=f(x),m=1;for i=1:length(x),m=[m;str2num(combnk(x,i))];end,m=m(isprime(m));end

Pruébalo en línea!