ให้เป็นจำนวนมาก (ในฐาน 10) เช่น 1234567891011121314151617 ให้หา "subnumbers" ที่สำคัญในนั้น
Prime "หมายเลขย่อย" คือลำดับของตัวเลขที่ต่อเนื่องกัน (นำมาจากอินพุต) ซึ่งแสดงถึงจำนวนเฉพาะ (ในฐาน 10)

• อินพุต : ตัวเลข (ทั้งสตริงไฟล์หรืออะไรก็ได้ที่คุณต้องการ)
• เอาท์พุท : หมายเลขย่อยหลักทั้งหมดแยกออกจากกัน (ในรายการไฟล์สตริงที่คั่นด้วยเครื่องหมายจุลภาค ... ) หากผลลัพธ์ว่างเปล่าคุณสามารถใช้การประชุมที่คุณชอบ (สตริงฮาร์ดโค้ดสตริงว่างเปล่าซึ่งพูดพล่อยๆ แต่โปรแกรมไม่ควร ชน
• ตัวอย่าง
  1234 -> 2, 3, 23
  6542 -> 5, 2
  14 -> [.. เอาต์พุตที่ว่างเปล่า]

นี่คือรหัสกอล์ฟ โปรแกรมที่สั้นที่สุดชนะ!
[แก้ไข]: กฎเพิ่มเติมต้องอธิบายโปรแกรม! ไม่ใช่ทุกคนที่สามารถใช้ภาษาเยลลี่ได้อย่างคล่องแคล่ว :)

05AB1E (ดั้งเดิม) 3 ไบต์

Œʒp

ลองออนไลน์!

สตริงย่อยของอินพุตที่มีความสำคัญ

Perl 6 , 28 ไบต์

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

ลองออนไลน์!

การ:exตั้งค่าสถานะ ("ครบถ้วนสมบูรณ์") ไปยังตัวดำเนินการจับคู่mทำให้มันกลับมาทุกการแข่งขันที่เป็นไปได้ของ.+(เช่นสตริงย่อยของอักขระหนึ่งตัวหรือมากกว่า) แม้กระทั่งทับซ้อนกัน hyperoperator +«เปลี่ยนรายชื่อของMatchวัตถุที่เป็นตัวเลขซึ่งจะถูกกรองแล้วสำหรับ primeness grep &is-primeโดย

Brachylogขนาด 4 ไบต์

-1 ขอบคุณไบต์Kroppeb

sᶠṗˢ

ลองออนไลน์!

ᶠในทุกsubstrings ˢเลือกṗrimes

Python 2 , 66 65 ไบต์

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

ลองออนไลน์!

Japt , 13 10 ไบต์

ขอบคุณ @Shaggy -3 ไบต์

ò 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

ลองออนไลน์!

เยลลี่ ,  5  4 ไบต์

-1 ต้องขอบคุณ Kevin Cruijssen ( Ẓเป็นนามแฝงÆP)

ẆḌẒƇ

Monadic Link ยอมรับรายการตัวเลข * ซึ่งให้รายการของจำนวนเต็มเฉพาะ

^{* ไปตาม "ทั้งสตริงไฟล์หรืออะไรก็ได้ที่คุณชอบ" - ใช้จำนวนเต็มนำหน้ารหัสด้วย D}

ลองออนไลน์!

อย่างไร?

ẆḌẒƇ - 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 ไบต์

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

ลองออนไลน์

คำอธิบาย:

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 ไบต์

&XfXUtZp)

ลองออนไลน์!

คำอธิบาย

&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 ไบต์

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

นี่ไม่ใช่สั้นที่สุด แต่ฉันมีปัญหาในการหาอะไรดีกว่านี้ ต้องการความช่วยเหลือ!

โดยติดกับ POSIX เท่านั้นฉันได้ 82:

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

R , 60 ไบต์

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

ลองออนไลน์!

ไม่มีประสิทธิภาพจริงๆได้แรงบันดาลใจจาก @ovs python 2 คำตอบ

Python 2 , 115 114 ไบต์

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

ลองออนไลน์!

Husk , 5 ไบต์

foṗiQ

ลองออนไลน์!

ทำความสะอาด , 108 ไบต์

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

ลองออนไลน์!

Pyth, 8 ไบต์

fP_TsM.:

ชุดทดสอบ

รับอินพุตเป็นสตริงเอาต์พุตรายการจำนวนเต็ม ยังสามารถรับอินพุตเป็นint โดยการเพิ่ม`ที่ส่วนท้ายสำหรับไบต์พิเศษ

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

และ`เพียงแค่แปลงไปintstr

ภาษา Wolfram (Mathematica)ขนาด 40 ไบต์

Select[PrimeQ@*FromDigits]@*Subsequences

ลองออนไลน์!

อินพุตและเอาต์พุตเป็นรายการของตัวเลข ในกรณีที่ไม่มีหมายเลขย่อยเฉพาะรายการที่ว่าง{}จะถูกส่งกลับ

ใช้@*สำหรับCompositionฟังก์ชั่น Subsequencesจะช่วยให้รายการ subsequences ทั้งหมดของการป้อนข้อมูลและSelect[PrimeQ@*FromDigits]เป็นรูปแบบที่ผู้ประกอบการSelectที่ส่งกลับรายการขององค์ประกอบทั้งหมดที่มีการผลตอบแทนPrimeQ@*FromDigitsTrue

Matlab, 89 ไบต์

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

ลองออนไลน์!