Cho một số lượng lớn (trong cơ sở 10), chẳng hạn như 1234567891011121314151617, hãy tìm các "số nguyên tố" chính trong đó.
Một số nguyên tố phụ là một chuỗi các chữ số liên tiếp (được lấy từ đầu vào), đại diện cho một số nguyên tố (trong cơ sở 10).

• Đầu vào : Một số (có thể là một chuỗi, một tệp hoặc bất cứ thứ gì bạn thích).
• Đầu ra : Tất cả các mạng con nguyên tố được phân tách bằng cách nào đó (trong danh sách, tệp, chuỗi được phân tách bằng dấu phẩy ...) Nếu kết quả trống, bạn có thể thực hiện bất kỳ quy ước nào bạn muốn (chuỗi cứng, chuỗi rỗng, vô nghĩa, nhưng chương trình không nên tai nạn.
• Ví dụ
  1234 -> 2, 3, 23
  6542 -> 5, 2
  14 -> [.. đầu ra trống]

Đây là môn đánh gôn. Chương trình ngắn nhất sẽ thắng!
[sửa]: quy tắc bổ sung, chương trình phải được giải thích! Không phải ai cũng thông thạo Jelly :)

05AB1E (di sản) , 3 byte

Œʒp

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

Chất nền của đầu vào là số nguyên tố.

Perl 6 , 28 byte

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

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

Các :ex( "đầy đủ") cờ để các nhà điều hành trận đấu mlàm cho nó trở lại mỗi trận đấu có thể xảy ra .+(ví dụ, mỗi chuỗi con của một hoặc nhiều nhân vật), thậm chí chồng chéo những người thân. Hyperoperator +«biến danh sách các Matchđối tượng đó thành các số, sau đó được lọc theo độ nguyên thủy grep &is-prime.

Brachylog , 4 byte

-1 byte nhờ Kroppeb .

sᶠṗˢ

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

ᶠTrong tất cả các substrings, ˢbầu các ṗ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

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

Japt , 13 10 byte

Cảm ơn @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

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

Thạch ,  5  4 byte

-1 cảm ơn Kevin Cruijssen ( Ẓlà bí danh cho ÆP)

ẆḌẒƇ

Liên kết đơn âm chấp nhận danh sách các chữ số * dẫn đến danh sách các số nguyên tố.

^{* đi bằng "một chuỗi, một tệp hoặc bất cứ thứ gì bạn thích" - để lấy một số nguyên, tiền tố mã với một D}

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

Làm sao?

ẆḌẒƇ - 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);}}

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

Giải trình:

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)

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

Giải trình

&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

Sử dụng Bash + GNU Core: 80 77 byte

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

Đây không thể là ngắn nhất, nhưng tôi gặp khó khăn với bất cứ điều gì tốt hơn. Cần giúp đỡ!

Bằng cách chỉ sử dụng POSIX, tôi đã nhận được 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)

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

Không thực sự hiệu quả, lấy cảm hứng từ câu trả lời @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[]

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

Husk , 5 byte

foṗiQ

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

Sạch , 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]]

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

Bình thường, 8 byte

fP_TsM.:

Bộ kiểm tra

Lấy đầu vào dưới dạng chuỗi, xuất ra danh sách các số nguyên. Cũng có thể lấy đầu vào làm int bằng cách thêm` vào cuối cho một byte thêm.

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

Và `chỉ cần chuyển đổi intsang str.

Ngôn ngữ Wolfram (Mathicala) , 40 byte

Select[PrimeQ@*FromDigits]@*Subsequences

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

Đầu vào và đầu ra là danh sách các chữ số. Trong trường hợp không có số nguyên tố phụ, danh sách trống {}được trả về.

Sử dụng @*cho Compositioncác chức năng. Subsequencesđưa ra một danh sách tất cả các chuỗi con của đầu vào và Select[PrimeQ@*FromDigits]là một dạng toán tử Selecttrả về một danh sách tất cả các phần tử PrimeQ@*FromDigitstrả về 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

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