1234567891011121314151617과 같이 많은 수 (기본 10)가 주어지면 소수의 "하위 번호"를 찾으십시오.
소수 "하위 번호"는 연속 된 숫자 시퀀스 (입력에서 가져옴)이며 소수 (10 진수)를 나타냅니다.

• 입력 : 숫자 (문자열, 파일 또는 원하는 것)
• 출력 : 모든 소수 하위 번호가 어떻게 든 분리되었습니다 (목록, 파일, 쉼표로 구분 된 문자열 ...) 결과가 비어 있으면 원하는 방식 (하드 코딩 된 문자열, 빈 문자열, 횡설수설)을 취할 수 있지만 프로그램은 크래시.
• 예
  1234-> 2, 3, 23
  6542-> 5, 2
  14-> [.. 빈 출력]

이것은 코드 골프입니다. 가장 짧은 프로그램이 승리합니다!
[편집] : 추가 규칙, 프로그램을 설명해야합니다! 모두가 젤리에 유창하지는 않습니다 :)

05AB1E (레거시) , 3 바이트

Œʒp

온라인으로 사용해보십시오!

소수 인 입력의 부분 문자열.

펄 6 , 28 바이트

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

온라인으로 사용해보십시오!

:exmatch 연산자에 대한 ( "exhaustive") 플래그 m는 가능한 모든 일치 .+(즉, 하나 이상의 문자의 모든 하위 문자열)를 겹치더라도 반환 합니다. 하이퍼 오퍼레이터 +«는 해당 Match객체 목록 을 숫자로 변환 한 다음로 소수를 필터링합니다 grep &is-prime.

Brachylog , 4 바이트

Kroppeb 덕분에 -1 바이트 .

sᶠṗˢ

온라인으로 사용해보십시오!

ᶠ모든 산업사 s, ubstrings을 ˢ택함 ṗrimes을

파이썬 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 바이트

Kevin Cruijssen에게 -1 감사합니다 ( Ẓ의 별칭입니다 ÆP).

ẆḌẒƇ

소수 목록을 허용하는 숫자 목록 *을 허용하는 모나드 링크.

^{* "문자열, 파일 또는 원하는 것"으로 이동-정수를 사용하려면 코드 앞에 접두사를 붙입니다. 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]

자바 (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

배쉬 + GNU 코어 활용도 : 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 answer에서 영감을 얻은 실제로는 효율적이지 않습니다.

파이썬 2 , 115114 바이트

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

온라인으로 사용해보십시오!

껍질 , 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

그리고 `로 변환 int합니다 str.

Wolfram Language (Mathematica) , 40 바이트

Select[PrimeQ@*FromDigits]@*Subsequences

온라인으로 사용해보십시오!

입력 및 출력은 자릿수 목록입니다. 소수 하위 번호가없는 경우 빈 목록{} 이 반환됩니다.

사용 @*을위한 Composition기능. Subsequences모든 입력 시퀀스의 목록을 제공하고, Select[PrimeQ@*FromDigits]의 조작 형태 Select의 모든 요소의 목록을 반환하는 PrimeQ@*FromDigits반환 True.

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

온라인으로 사용해보십시오!