Diberi nomor besar (dalam basis 10), seperti 1234567891011121314151617, temukan "subnumber" utama di dalamnya.
"Subnumber" utama adalah urutan digit berurutan (diambil dari input), yang mewakili bilangan prima (dalam basis 10).

• Input : Nomor (baik string, file, atau apa pun yang Anda suka).
• Output : Semua subnumber utama dipisahkan entah bagaimana (baik dalam daftar, file, string dipisahkan koma ...) Jika hasilnya kosong, Anda dapat mengambil konvensi yang Anda suka (string hardcoded, string kosong, omong kosong, tetapi program tidak boleh jatuh.
• Contoh
  1234 -> 2, 3, 23
  6542 -> 5, 2
  14 -> [.. output kosong]

Ini adalah kode-golf. Program terpendek menang!
[Sunting]: aturan tambahan, program harus dijelaskan! Tidak semua orang fasih berbahasa Jelly :)

05AB1E (warisan) , 3 byte

Œʒp

Cobalah online!

Substring dari input yang prima.

Perl 6 , 28 byte

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

Cobalah online!

The :ex( "lengkap") bendera untuk operator pertandingan mmembuatnya kembali setiap pertandingan mungkin .+(yaitu, setiap substring dari satu atau lebih karakter), bahkan tumpang tindih yang. Hyperoperator +«mengubah daftar Matchobjek menjadi angka, yang kemudian difilter untuk pemberian nilai oleh grep &is-prime.

Brachylog , 4 byte

-1 byte terima kasih kepada Kroppeb .

sᶠṗˢ

Cobalah online!

ᶠind semua substrings, ˢmemilih ṗRimes

Python 2 , 66 65 byte

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

Cobalah online!

Japt , 13 10 byte

Terima kasih @ Shaggy -3 byte

ò 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

Cobalah online!

Jelly ,  5  4 byte

-1 terima kasih kepada Kevin Cruijssen ( Ẓalias untuk ÆP)

ẆḌẒƇ

Tautan monadik yang menerima daftar angka * yang menghasilkan daftar bilangan bulat utama.

^{* pergi dengan "baik string, file, atau apa pun yang Anda suka" - untuk mengambil integer, awali kode dengan D}

Cobalah online!

Bagaimana?

ẆḌẒƇ - 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 byte

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

Cobalah online.

Penjelasan:

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 byte

&XfXUtZp)

Cobalah online!

Penjelasan

&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+$'
}

Ini tidak mungkin yang terpendek, tetapi saya mengalami kesulitan untuk menghasilkan sesuatu yang lebih baik. Dibutuhkan bantuan!

Dengan hanya berpegang pada POSIX, saya mendapat 82:

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

R , 60 byte

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

Cobalah online!

Tidak terlalu efisien, terinspirasi oleh jawaban @ovs python 2

Python 2 , 115 114 byte

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[]

Cobalah online!

Sekam , 5 byte

foṗiQ

Cobalah online!

Bersihkan , 108 byte

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]]

Cobalah online!

Pyth, 8 byte

fP_TsM.:

Suite uji

Mengambil input sebagai string, menampilkan daftar bilangan bulat. Dapat juga mengambil input sebagai int dengan menambahkan `di bagian akhir untuk byte tambahan.

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

Dan `baru saja dikonversi intke str.

Bahasa Wolfram (Mathematica) , 40 byte

Select[PrimeQ@*FromDigits]@*Subsequences

Cobalah online!

Input dan output adalah daftar digit. Dalam hal tidak ada subnumber utama daftar kosong {}dikembalikan.

Penggunaan @*untuk Compositionfungsi. Subsequencesmemberikan daftar semua urutan input, dan Select[PrimeQ@*FromDigits]merupakan bentuk operator Selectyang mengembalikan daftar semua elemen yang PrimeQ@*FromDigitsdikembalikan True.

Matlab, 89 byte

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

Cobalah secara Online!