여기서는 "접미사"를 느슨하게 사용하여 "접두사 다음에 오는 하위 문자열"을 의미합니다.

여기서 "접두사"는 단어의 시작을 의미하며, 단어의 시작은 공백 뒤 또는 입력 텍스트의 첫 번째 문자 (첫 번째 단어)로 정의됩니다. 단어 중간에있는 "접두사"는 무시됩니다.

예를 들어 입력 접두사가 "arm"이고 입력 텍스트가 "Dumbledore의 군대가 임박한 아마겟돈으로 무장했습니다"이면 출력 목록에 (y, ed, ageddon)이 포함됩니다.

테스트 사례

대소 문자를 구분하고 문자열은 공백 다음에 끝납니다. 공백으로 입력이 시작되지 않습니다.

중복 제거는 선택 사항입니다.

Input prefix: "1"

Input text:

"He1in aosl 1ll j21j 1lj2j 1lj2 1ll l1j2i"

Output: (ll, lj2j, lj2) - in any permutation

Input prefix: "frac"

Input text: 

"fracking fractals fracted fractional currency fractionally fractioned into fractious fractostratic fractures causing quite a fracas"

Output: (king, tals, ted, tional, tionally, tioned, tious, tostratic, tures, as)

Input prefix: "href="https://www.astrotheme.com/astrology/"

Input text: 

"(div style="padding: 0; background: url('https://www.astrotheme.com/images/site/arrondi_450_hd.png') no-repeat; text-align: left; font-weight: bold; width: 450px; height: 36px")
  (div class="titreFiche" style="padding: 5px 0 0 6px")(a href="https://www.astrotheme.com/astrology/Nolwenn_Leroy" title="Nolwenn Leroy: Astrology, birth chart, horoscope and astrological portrait")Nolwenn Leroy(br /)
(/div)
  (div style="text-align: right; border-left: 1px solid #b2c1e2; border-right: 1px solid #b2c1e2; width: 446px; padding: 1px 1px 0; background: #eff8ff")
    (table style="width: 100%")(tr)(td style="width: 220px")
(div style="padding: 0; background: url('https://www.astrotheme.com/images/site/arrondi_450_hd.png') no-repeat; text-align: left; font-weight: bold; width: 450px; height: 36px")
  (div class="titreFiche" style="padding: 5px 0 0 6px")(a href="https://www.astrotheme.com/astrology/Kim_Kardashian" title="Kim Kardashian: Astrology, birth chart, horoscope and astrological portrait")Kim Kardashian(br /)(span style="font-weight: normal; font-size: 11px")Display her detailed horoscope and birth chart(/span)(/a)(/div)
(/div)
(div style="padding: 0; background: url('https://www.astrotheme.com/images/site/arrondi_450_hd.png') no-repeat; text-align: left; font-weight: bold; width: 450px; height: 36px")
  (div class="titreFiche" style="padding: 5px 0 0 6px")(a href="https://www.astrotheme.com/astrology/Julia_Roberts" title="Julia Roberts: Astrology, birth chart, horoscope and astrological portrait")Julia Roberts(br /)(span style="font-weight: normal; font-size: 11px")Display her detailed horoscope and birth chart(/span)(/a)(/div)
    (td id="cfcXkw9aycuj35h" style="text-align: right")
  (/div)"

Output: (Nolwenn_Leroy", Kim_Kardashian", Julia_Roberts")

승자

이것은 code-golf 이므로 가장 적은 바이트가 이깁니다. :)

코드가 테스트 사례와 같은 임의의 문제를 해결할 수있는 한 작동하는 방식으로 입력을 받아 들일 수 있습니다.

R , 63 바이트

function(s,p,z=el(strsplit(s,' ')))sub(p,'',z[startsWith(z,p)])

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

긍정적 인 예측 구현은 불행히도 큰 regmatches/gregexpr조합 으로 인해 5 바이트 더 길다 .

function(s,p)regmatches(s,gregexpr(paste0('(?<=',p,')[^ ]*'),s,,T))

젤리 , 12 바이트

Ḳfṛ"€¥Ḋ€ṫ€L}

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

Japt , 9 바이트

단어 배열로 입력을받을 수있는 경우 8 바이트

¸kbV msVl
¸         // Shorthand for `qS`, split into words.
 kbV      // Filter the words, selecting only those that start with the prefix.
     msVl // For each remaining word, remove prefix length chars from the start.

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

파이썬 2 , 57 56 바이트

lambda i,j:[w[len(i):]for w in j.split()if w.find(i)==0]

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

@mypetlion 덕분에 -1

C (gcc) , 113 (109) 106 105 바이트

@LambdaBeta 덕분에 -4 바이트!
@WindmillCookies 덕분에 -3 바이트!

i;f(char*s,char*t){for(i=strlen(s);*t;t++)if(!strncmp(t,s,i))for(t+=i,puts("");*t^32&&*t;)putchar(*t++);}

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

Japt , 16 12 바이트

Arnauld 답변 포트

@Shaggy에서 -4 바이트

iS qS+V Å®¸g

iS                  Insert S value (S = " ") at beginning of first input (Implicit)
   q                split using
    S+V             S + Second input
        Å           slice 1
         ®          map
          ¸         split using S
           g        get first position

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

05AB1E , 11 바이트

#ʒηså}εsgF¦

온라인으로 사용해보십시오! ( 여기에 여러 줄 문자열에 대한 데모입니다)

어떻게 작동합니까?

# ʒηså} εsgF¦ 전체 프로그램.
# 첫 번째 입력을 공백으로 나눕니다.
 ʒ} 다음 기준으로 단어 필터링 ...
  ηså ... "두 번째 입력이 단어의 접두사에서 발생합니까?"
      ε 그리고 유효한 단어마다
       sg 두 번째 입력 길이를 검색합니다.
         그리고 그 단어의 첫 문자를 그 횟수만큼 떨어 뜨립니다.

Stax , 8 바이트

·B¬╤²*6&

실행 및 디버깅

설명:

j{x:[fmx|- Full program, implicit input: On stack in order, 1st input in X register
j          Split string on spaces
 {   f     Filter:
  x:[        Is X a prefix?
      m    Map passing elements:
       x|-   Remove all characters in X the first time they occur in the element
             Implicit output

또한 x%t(길이 X, 왼쪽에서 자르기)를 사용할 수 있습니다.이 길이는 동일하지만 9 바이트로 압축됩니다 .

망막 , 31 바이트

L`(?<=^\2¶(.|¶)*([^ ¶]+))[^ ¶]+

온라인으로 사용해보십시오!첫 번째 줄은 원하는 접두사이고 나머지는 입력 텍스트입니다. 중복을 제거하지 않습니다. 공백이 유효한 분리자인 경우 25 바이트입니다. 설명 : 유효한 접 두부의 접미 부를 나열하려고합니다. 는 [^ ¶]+접미사 자체를 일치합니다. 정규 표현식의 접두사는 접미사의 접두사가 입력 접두사임을 보장하는 lookbehind입니다. lookbehind가 오른쪽에서 왼쪽으로 평가 될 때 접두사를 일치시키기 위해 (같은 패턴이지만 내부 ()를 캡처하기 위해 s를 사용하여) 시작한 다음 입력의 시작 부분에서 자체 행의 접두사를 마지막으로 일치시키기 전에 모든 문자를 찾습니다.

Brachylog , 24 21 바이트

tṇ₁W&h;Wz{tR&h;.cR∧}ˢ

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

인라인 술어와 변수 공유가있는 경우 몇 바이트 더 짧을 수 있습니다.

입력은 접두사가 첫 번째 요소이고 텍스트가 두 번째 요소 인 배열입니다.

tṇ₁W                    % Split the text at spaces, call that W
    &h;Wz               % Zip the prefix with each word, to give a list of pairs
         {         }ˢ   % Select the outputs where this predicate succeeds:
          tR            % Call the current word R
            &h;.c       % The prefix and the output concatenated
                 R      % should be R
                  ∧     % (No more constraints on output)

IBM / Lotus Notes 공식, 54 바이트

c:=@Explode(b);@Trim(@If(@Begins(c;a);@Right(c;a);""))

aand 라는 두 필드에서 입력을받습니다 b. Formula는 @For루프 가 없어도 목록에 함수를 재귀 적으로 적용하기 때문에 작동 합니다.

사용 가능한 TIO가 없으므로 여기 스크린 샷이 있습니다.

APL (Dyalog Unicode) , 23 바이트 ^SBCS

전체 프로그램. stdin에서 텍스트 및 접두사를 묻습니다. stdout에리스트를 인쇄합니다.

(5⌽'(\w+)\b',⎕)⎕S'\1'⊢⎕

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

⎕ 프롬프트 (텍스트)

⊢ 그 수율 (분리형 '\1'에서 ⎕)

(… )⎕S'\1' PCRE 다음 정규식에서 캡처 그룹 1의 검색 및 리턴 목록 :

 ⎕ 프롬프트 (접두사)

 '(\w+)\b', 이 문자열 앞에 붙입니다 (단어 문자 그룹 다음에 단어 경계가옵니다).

 5⌽ 처음 5자를 끝까지 회전하십시오. '\bPREFIX(\w+)'

C (클랑) , 107 바이트

i;f(s,t,_)char*s,*t,*_;{i=strlen(s);_=strtok(t," ");while((strncmp(_,s,i)||puts(_+i))&&(_=strtok(0," ")));}

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

기술:

i;f(s,t,_)char*s,*t,*_;{   // F takes s and t and uses i (int) and s,t,u (char*)
    i=strlen(s);           // save strlen(s) in i
    _=strtok(t," ");       // set _ to the first word of t
    while(                 // while loop
        (strncmp(_,s,i)||  // short-circuited if (if _ doesn't match s to i places)
         puts(_+i))        // print _ starting at the i'th character
        &&                 // the previous expression always returns true
        (_=strtok(0," "))) // set _ to the next word of t
    ;                      // do nothing in the actual loop
}

#include <string.h>strtok 문제로 인한 gcc segfaults 때문에 clang이어야 합니다.

MATL, 17 바이트

Yb94ih'(.*)'h6&XX

MATL Online에서 사용해보십시오

어떻게?

Yb -입력을 공백으로 나누고 결과를 셀형 배열에 배치

94- 대한 ASCII 코드 ^문자

ih -입력 ( "frac")을 가져오고 '^'와 입력을 연결

'(.*)'h-문자열 '(.*)'을 스택에 넣고 '^ frac'와 '(. *)'를 연결합니다. 이제 '^frac(.*)문자열의 시작 부분에 "frac"와 일치하고 이후에 나오는 것을 포착하는 정규식이 있습니다.

6&XX- 6&'토큰'모드 를 지정하여 정규식 일치를 실행 합니다. 즉, 일치 된 캡처 그룹이 전체 일치 대신 반환됩니다.

암시 적으로 결과를 출력합니다.

배쉬 + grep, 20 바이트

grep -Po "\b$1\K\S*"

접두사는 명령 행 매개 변수로 제공되며 입력 텍스트는 stdin을 통해 파이프됩니다.

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

PowerShell 3.0, 60 62 59 바이트

param($p,$s)-split$s|%{if($_-cmatch"^$p(.*)"){$Matches[1]}}

cmatch 출력을 억제하는 일부 바이트가 손실되었습니다. 고의로 중복을 일으켜 일부를 얻은 해결책이 있습니다. 그러나 처음에는 일치하지 않으면 수정 지시를 던졌지 만 이제는 생각하지 않습니다. 그것을 고치기 위해 +2 바이트.

자바 스크립트 (ES6), 57 바이트

카레 구문으로 입력을 (text)(prefix)받습니다. 중복을 제거하지 않습니다.

s=>p=>(' '+s).split(' '+p).slice(1).map(s=>s.split` `[0])

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

자바 스크립트 (Node.js) , 64 59 바이트

@Shaggy에서 -5 바이트

a=>b=>b.match(eval(`/\\b${a}\\w*/g`)).map(x=>x.split(a)[1])

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

하스켈 , 51 바이트

p#x=[length p`drop`y|y<-words x,and$zipWith(==)p y]

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

껍질 , 11 바이트

Haskell 답변 의 포트는 거의 같습니다.

m↓L⁰foΠz=⁰w

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

설명

m↓L⁰f(Πz=⁰)w  -- prefix is explicit argument ⁰, the other one implicit. eg: ⁰ = "ab" and implicit "abc def"
           w  -- words: ["abc","def"]
    f(    )   -- filter by (example w/ "abc"
       z=⁰    -- | zip ⁰ and element with equality: [1,1]
      Π       -- | product: 1
              -- : ["abc"]
m             -- map the following
 ↓            -- | drop n elements
  L⁰          -- | n being the length of ⁰ (2)
              -- : ["c"]

젤리 ,  11  9 바이트

Ḳœṣ€ḢÐḟj€

왼쪽의 텍스트 (문자 목록)와 오른쪽의 접두사 (문자 목록)를 허용하는 2 차원 링크로, 문자 목록 (결과 접미사)을 생성합니다.

온라인으로 사용해보십시오! (바닥 글은 전체 프로그램의 암시 적 스매싱을 피하기 위해 공백과 결합합니다)
참고 : OP의 문자열에 세 가지 엣지 케이스를 추가했습니다.

어떻게?

Ḳœṣ€ḢÐḟj€ - Link: text, prefix                        e.g. "fracfracit unfracked", "frac"
Ḳ         - split (text) at spaces -> list of words        ["fracfracit", "unfracked"]
   €      - for each (word):
 œṣ       -   split around sublists equal to (prefix)       ["","","it"]  ["un","ked"]
     Ðḟ   - filter discard items for which this is truthy:
    Ḣ     -   head
          -   -- Crucially this modifies the list:             ["","it"]       ["ked"]
          -   -- and yields the popped item:                 ""            "un"
          -   -- and only non-empty lists are truthy:       kept          discarded
          -            ...so we end up with the list:      [["","it"]]
        € - for each (remaining list of lists of characters):
       j  -   join with the prefix                          "fracit"                                             
          -                                                ["fracit"]

이전 11 개월 :

Ḳs€L}Ḣ⁼¥ƇẎ€

또한 위와 같은 쌍방향 링크.

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

-asE가있는 Perl 5, 23 22 21 바이트 (?)

say/^$b(.*)/ for@F

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

명령 줄 하나의 라이너 로 perl -asE 'say/^$b(.*)/ for@F' -- -b=frac -또는 마지막 파일 이름 대신 파일 이름 으로 실행할 수 있습니다 -.
또는 스크립트 파일에서perl -as -M5.010 script.pl -b=frac - (이를 보여주는 TIO 링크에 대한 @Brad Gilbert b2gills 덕분에).

코드 자체는 18 바이트이며 코드에 -b=이름이 지정된 변수에 값 (접두사 입력)을 할당 하는 옵션 에 3 바이트를 추가 했습니다 $b. 그것은 일반적인 "플래그는 계산되지 않는다"는 합의에 대한 예외처럼 느껴졌다.

-a각 입력 행을 공백으로 분할하고 결과를 배열에 배치 @F합니다. -s명령 행에 이름을 지정하여 명령 행 인수를 변수로 지정하는 단축 방법입니다. 여기서 인수는 -b=frac"frac"접두어를 변수에 배치 $b합니다.

/^$b(.*)/- $b문자열 시작 부분의 값과 일치 합니다. .*그 말이 끝날 때까지 그 뒤에 오는 것이 무엇이고, 주변의 패러티 인들은이 가치를 포착합니다. 캡처 된 값은로 반환되어 자동으로 반환됩니다 say. 공백으로 구분 된 단어를 반복하면 for @F초기 또는 마지막 공백을 확인할 필요가 없습니다.

펄 6 , 30 바이트

{$^t.comb: /[^|' ']$^p <(\S+/}

그것을 테스트

넓히는:

{  # bare block lambda with placeholder params $p, $t

  $^t.comb:    # find all the substrings that match the following
  /
    [ ^ | ' ' ] # beginning of string or space
    $^p        # match the prefix
    <(         # don't include anything before this
    \S+        # one or more non-space characters (suffix)
  /
}

자바 10, 94 바이트

p->s->{for(var w:s.split(" "))if(w.startsWith(p))System.out.println(w.substring(p.length()));}

여기에서 온라인으로 사용해보십시오 .

언 골프 드 :

p -> s -> { // lambda taking prefix and text as Strings in currying syntax
    for(var w:s.split(" ")) // split the String into words (delimited by a space); for each word ...
        if(w.startsWith(p)) //  ... test whether p is a prefix ...
            System.out.println(w.substring(p.length())); // ... if it is, output the suffix
}

작은 기본 , 242 바이트

TextWindow객체에 입력 및 출력을받지 않는 스크립트

c=TextWindow.Read()
s=TextWindow.Read()
i=1
While i>0
i=Text.GetIndexOf(s," ")
w=Text.GetSubText(s,1,i)
If Text.StartsWith(w,c)Then
TextWindow.WriteLine(Text.GetSubTextToEnd(w,Text.GetLength(c)+1))
EndIf
s=Text.GetSubTextToEnd(s,i+1)
EndWhile

SmallBasic.com에서 사용해보십시오! IE / Silverlight 필요

파이썬 2 , 53 바이트

lambda i,j:[w.split()[0]for w in j.split(i)if len(w)]

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

Brachylog , 12 바이트

hṇ₁∋R&t;.cR∧

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

[text, prefix]입력 변수 를 통해 입력을 받아서 출력 변수를 통해 각 단어 를 생성 합니다. 이것은 원래 sundar의 대답으로, "인라인 술어와 변수 공유가 있으면 몇 바이트 더 짧아 질 수 있습니다"라고 읽은 후 골프를 시작했습니다. 이는 현재 가능합니다. 생성기 출력이 더 많은 바이트를 절약한다는 것이 밝혀졌습니다.

    R           R
   ∋            is an element of
h               the first element of
                the input
 ṇ₁             split on spaces,
     &          and the input
      t         's last element
         c      concatenated
       ;        with
        .       the output variable
          R     is R
           ∧    (which is not necessarily equal to the output).

언어의 새로운 기능을 사용하여 골프를 치기 시작한 첫 두 번의 시도 :

기대했던 전역 변수로 : hA⁰&tṇ₁{∧A⁰;.c?∧}ˢ (18 바이트)

Apply-to-head Metapredicate로 다음을 수행하십시오. ṇ₁ᵗz{tR&h;.cR∧}ˢ (16 바이트)

그리고 내 원래 해결책 :

Brachylog , 15 바이트

ṇ₁ʰlᵗ↙X⟨∋a₀⟩b↙X

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

동일한 I / O 이것은 기본적으로 접두사 ṇ₁ʰ⟨∋a₀⟩를 제거하기 위해 수정 된 접두사가있는 단어의 생성기입니다 .

                   The input variable
  ʰ                with its first element replaced with itself
ṇ₁                 split on spaces
    ᵗ              has a last element
   l               the length of which
     ↙X            is X,
       ⟨   ⟩       and the output from the sandwich
       ⟨∋  ⟩       is an element of the first element of the modified input
       ⟨ a₀⟩       and has the last element of the input as a prefix.
                   The output variable
       ⟨   ⟩       is the output from the sandwich
            b      with a number of characters removed from the beginning
             ↙X    equal to X.

동일한 바이트 수를 가진 매우 다른 술어 :

Brachylog , 15 바이트

hṇ₁∋~c₂Xh~t?∧Xt

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

동일한 I / O

   ∋               An element of
h                  the first element of
                   the input variable
 ṇ₁                split on spaces
    ~c             can be un-concatenated
      ₂            into a list of two strings
       X           which we'll call X.
        h          Its first element
         ~t        is the last element of
           ?       the input variable,
            ∧      and
             Xt    its last element is
                   the output variable.

빨강 , 62 바이트

func[p s][parse s[collect[any[p keep to[" "| end]| thru" "]]]]

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

Pyth , 21 20 18 17 16 바이트

AQVcH)IqxNG0:NG"

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

내재적으로 설정 하기 때문에 V대신 -1을 사용하여 -1FNVN

문자열 슬라이싱 옵션에 대한 추가 정보를 읽은 후 -2

사용하여 -1 x인덱스 0에 하위 문자열이 있는지 확인 데 하는

문자열 끝을 얻기 위해 ""로 대체를 사용하여 -1

나는 이것이 심각한 골프를 사용할 수 있다고 확신하지만 Pyth 초보자로서 그것을 작동시키는 것은 보너스였습니다.

어떻게 작동합니까?

assign('Q',eval_input())
assign('[G,H]',Q)
for N in num_to_range(chop(H)):
    if equal(index(N,G),0):
        imp_print(at_slice(N,G,""))

Excel VBA, 86 바이트

입력을 접 두부로 사용 [A1]하고 값을 [B1]콘솔에 출력합니다.

For each w in Split([B1]):?IIf(Left(w,[Len(A1)])=[A1],Mid(w,[Len(A1)+1])+" ","");:Next