객관적인

문자열 연결을 되 돌리는 함수 만들기

입력

두 개의 문자열 (영숫자 + 공백)로, 하나는 빼야합니다.

• 빼는 문자열이 다른 문자열보다 크지 않다고 가정 할 수 있습니다.

산출

빼기 결과

빼기

한 문자열을 다른 문자열의 시작 또는 끝에서 제거해야합니다. 문자열이 시작과 끝에 존재하는 경우, 하나만 제거 할 수 있으며, 제거 할 문자열은 사용자에게 달려 있습니다.
문자열이 시작 또는 끝에 없거나 정확하게 일치하지 않으면 뺄셈이 유효하지 않으므로 원래 문자열을 출력해야합니다.

테스트 사례

유효한 빼기

'abcde','ab' -> 'cde'
'abcde','cde' -> 'ab'
'abab','ab' -> 'ab'
'abcab','ab' -> 'abc' or 'cab'
'ababcde','ab' -> 'abcde'
'acdbcd','cd' -> 'acdb'
'abcde','abcde' -> ''
'abcde','' -> 'abcde'
'','' -> ''

잘못된 빼기 (원래 문자열을 반환)

'abcde','ae' -> 'abcde'
'abcde','aa' -> 'abcde'
'abcde','bcd' -> 'abcde'
'abcde','xab' -> 'abcde'
'abcde','yde' -> 'abcde'

유효하지 않은 입력 (처리 할 필요가 없음)

'','a' -> ''

이것은 code-golf 이므로 바이트 단위의 가장 짧은 코드가 이깁니다!

자바 8, 46 45 44 40 바이트

TheLethalCoder 덕분에 -1 바이트

내가 바보이기 때문에 -1 바이트 (로드 감사합니다!)

Kevin Cruijssen 덕분에 -4 바이트

a->b->a.replaceFirst("^"+b+"|"+b+"$","")

온라인으로 사용해보십시오! (모든 테스트 케이스 포함)

Java 답변은 실제로 몇 가지 다른 실용적인 언어보다 뛰어납니다. 미소 (이제 JS보다 뛰어납니다!)

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

s=>t=>s.replace(eval(`/^${t}|${t}$/`),'')

커리 구문을 통해 입력을 f("abab")("ab")받습니다 ( 예 :) .

Brachylog (Try It Online!), 12 바이트

~cpĊh.∧Ċtw|w

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

문자열을 표준 입력에서 빼고 문자열을 빼서 명령 줄 인수로 취합니다.

설명

~cpĊh.∧Ċtw|w
~c            Split {the input} into pieces
  p           and (possibly) rearrange those pieces
   Ċ          such that there are two pieces
    h         and the first
     .        matches the command line argument
      ∧       then
         w    print
        t     the last
       Ċ      piece.
          |   If all else fails,
           w  print {the input}.

망막 , 21 바이트

Martin Ender 덕분에 1 바이트.

(.*);(\1|(.*)\1$|)
$3

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

자바 스크립트 (ES6), 76 70 45 41 바이트

s=>t=>s.replace(RegExp(`^${t}|${t}$`),"")

시도 해봐

f=
s=>t=>s.replace(RegExp(`^${t}|${t}$`),"")
o.innerText=f(i.value="abcde")(j.value="ab")
i.oninput=j.oninput=_=>o.innerText=f(i.value)(j.value)

<input id=i><input id=j><pre id=o>

펄 6 , 21 바이트

->$_,$b {S/^$b|$b$//}

시도 해봐

넓히는:

-> $_, $b {   # pointy block lambda

  S/          # Str replace and return (implicitly against ｢$_｣)

  |   ^ $b    # starting with the second argument
  |     $b $  # or ending with the second argument

  //          # replace with nothing.

}

Japt , 11 9 바이트

k"^|$"¬qV

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

TI 기본 (TI-84 Plus CE), 63 바이트

Prompt Str0,Str2
inString(Str0,Str2
If Ans
sub(Str0,1,Ans-1)+sub(Str0,Ans+length(Str2),length(Str0)-Ans+1-length(Str2→Str0
Str0

수학, 162 바이트

(c=Characters;a=c@#;b=c@#2;l=Length;t={};If[l@Intersection[a,b]==l@b,If[MemberQ[Partition[a,l@b,1],b],t=a;Table[t=DeleteCases[t,b[[i]],1,1],{i,l@b}]],t=a];""<>t)&

테스트 입력 스타일 [ "abcde", "ab"]

파이썬, 69 68 64 57 51 45 바이트

결국 Regex와 완전히 다른 솔루션이되었습니다.

-2 바이트의 Value Ink 덕분에 !
그리고 펠리페 나르디 바티스타 대규모을위한 -6 바이트!

import re
lambda s,c:re.sub(c+'$|^'+c,'',s,1)

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

배쉬 ,66 61 49 바이트

case $1 in *$2)echo ${1%$2};;*)echo ${1#$2};;esac

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

덜 골프 :

a=$1;
case $1 in 
    *$2)  c=${a%$2};;       
    $2*)  c=${a#$2};;
      *)  c=$1;;
esac;
echo $c

대 / 소문자를 사용하여 시작 또는 종료 및 배열 접두사 / 접미사 (% / #)를 테스트합니다.

APL (Dyalog) , 31 30 바이트

Zacharý 에게 -1 감사합니다 .

이것은 실제로 역 (즉, 역) 연결을 사용합니다! 원래 문자열을 왼쪽 인수로 사용하고 오른쪽 인수로 뺄 것을 취합니다.

{0::⍺{0::⍺⋄,∘⍵⍣¯1⊢⍺}⍵⋄⍵,⍣¯1⊢⍺}

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

언 골프 드 :

{
    0::⍺{         ⍝ if an error happens, apply the following function on the arguments
        0::⍺          ⍝ if an error happens, return the left argument unmodified
        ,∘⍵⍣¯1⊢⍺      ⍝ inverse-append right argument on left argument
        }⍵
    ⍵,⍣¯1⊢⍺      ⍝ inverse-prepend the right argument on the left argument
}

전설:

{… } 익명 기능

⍺ 현재 함수의 왼쪽 인수

⍵ 현재 함수의 올바른 인수

0::… 오류가 발생하면 이것을 실행하십시오.

⍣¯1⊢ 역

,∘⍵오른쪽에 ⍵ 을  연결

⍵,왼쪽에 ⍵ 을  연결

PHP, 54 바이트

[,$x,$y]=$argv;echo preg_replace("#^$y|$y$#","",$x,1);

테스트 케이스

파이썬 2 , 68 바이트

def f(s,c):v=len(c);print[s[v:],s[:-v],s][[s[:v],s[-v:],c].index(c)]

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

하스켈 , 49 바이트

f s a b|s==b=a|a/=b,h:t<-a=f(s++[h])t b|1<3=s
f""

온라인으로 사용해보십시오! 사용법 : f"" "abcdef" "ab". 또는을 정의 (-)=f""하고 사용하십시오 "abcdef" - "ab".

이 정규식이없는 솔루션은 모든 접두사 및 접미사에서 문자열을 재귀 적으로 분할하고 빼는 문자열이 그 중 하나와 일치하는지 확인하여 작동합니다.

파이썬 2 , 72 65 바이트

a,b=input()
l=len(b)
print[[a,a[:-l]][b==a[-l:]],a[l:]][b==a[:l]]

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

@FelipeNardiBatista 덕분에 -7 바이트

C #, 88 바이트

s=>r=>s.StartsWith(r)?s.Substring(r.Length):s.EndsWith(r)?s.Substring(0,s.IndexOf(r)):s;

로 컴파일합니다 Func<string, Func<string, string>>.

루비 (람다 식), 29 바이트

->a,b{a.sub /^#{b}|#{b}$/,""}

정규 표현식 보간에 대한 예! 정규식 안전 subtrahends가 필요하지만 도전에 따라 괜찮습니다.

Tcl , 37 바이트

proc s {a b} {regsub "^$b|$b$" $a {}}

온라인으로 사용해보십시오! (현재 모든 테스트 실행)

Tcl은 간단합니다. 매개 변수 및을 사용 하는 proc s {a b}명명 s된 함수를 정의합니다 . 시작 또는 끝에있을 때 의 값을 빈 문자열로 대체 합니다. 반환은 암시 적입니다.abregsub{}ba

C, 96 바이트

확장 골프는 경계선의 마조히즘 적이므로 C의 문자열 조작은 번거 롭다는 것은 일반적인 지식입니다. 나에게 잘 들린다.

f(a,b,t,l)char**a,*b,*t;{t=*a;l=strlen(b);bcmp(t,b,l)?bcmp(t+=strlen(t)-l,b,l)||(*t=0):(*a+=l);}

내가 작성한 덜 읽기 쉬운 프로그램 중 하나입니다. 함수가 어떻게 보이는지에도 불구하고 분리 char**할 문자열을 가리키는 것과 제거 할 문자열을 나타내는 두 가지 입력 을받습니다 char*. 입력 포인터가 제자리에서 편집되어 출력이됩니다 (어쨌든 메모리 누수에 대한 경우).

사용법 예 :

char *a = malloc(6);
strcpy(a, "abcde");
char *b = malloc(4);
strcpy(b, "abc");
f(&a,b);
printf("%s\n", a); // "de"

AWK , 21 32 바이트

{sub("^"$2"|"$2"$",z,$1);$0=$1}1

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

원본 제출은 처음이나 끝이 아닌 첫 번째 문자열 내에서 순진하게 텍스트를 대체했습니다.

{sub($2,z,$1);$0=$1}1

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

원래는 중괄호없이 시도했지만 빈 줄을 인쇄하거나 일치하지 않는 항목을 인쇄 하여이 버전보다 더 많은 바이트를 추가 해야하는 트릭이 필요했습니다.

R, 20 42 41 바이트

pryr::f(sub(sprintf('^%s|%s$',b,b),'',a))

MickyT 덕분에 -1 바이트!

익명 함수 (순서에 인수가 있음)를 리턴합니다 b,a. 문자열 차이를 계산합니다 a-b. sub패턴의 첫 번째 발생을이 경우 빈 문자열로 바꾸는 간단한 대체입니다 ''. sprintf문자열의 시작과 끝에서만 일치 하도록 정규 표현식 을 구성합니다. 필요 pryr설치할 패키지를.

TIO 링크에서 function(a,b)4 바이트 이상의 함수에 대해 더 자세한 정의를 사용합니다 .

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

공통 리스프, 121 바이트

(lambda(x y)(cond((equal(#1=subseq x 0 #3=(length y))y)(#1#x #3#))((equal(#1#x #2=(-(length x)#3#))y)(#1#x 0 #2#))(t x)))

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

평범한 wordy Common Lisp!

언 골프 버전 :

(defun f(x y)
  (cond ((equal (subseq x 0 (length y)) y)               ; if x starts with y
         (subseq x (length y)))                          ; return rest of x
        ((equal (subseq x (- (length x) (length y))) y)  ; if x ends with x
         (subseq x 0 (- (length x) (length y))))         ; return first part of x
        (t x)))                                          ; else return x

코 틀린 , 91 바이트

{a,b->val v=b.length
if(a.startsWith(b))a.drop(v)else if(a.endsWith(b))a.dropLast(v)else a}

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

파워 쉘, 34 40 바이트

Invalid Subtraction테스트 케이스 추가 시 +6 바이트

param($s,$t)$s-replace"^$t(?!.*$t$)|$t$"

논평:

정규 표현식 ^$t|$t$은 예상대로 작동하지 않습니다. 두 개의 일치 항목을 모두 대신 바꿉니다 (플래그가 g항상 켜져 있음). 따라서 부정적 예측 그룹을 사용해야합니다.

테스트 스크립트 :

$f = {
    param($s,$t)$s-replace"^$t(?!.*$t$)|$t$"
}

@(
    ,('abcde','ab', 'cde')
    ,('abcde','cde', 'ab')
    ,('abab','ab', 'ab')
    ,('abcab','ab', 'abc', 'cab')
    ,('ababcde','ab', 'abcde')
    ,('acdbcd','cd', 'acdb')
    ,('abcde','abcde', '')
    ,('abcde','', 'abcde')
    ,('','', '')

    ,('abcde','ae', 'abcde')
    ,('abcde','aa', 'abcde')
    ,('abcde','bcd', 'abcde')
    ,('abcde','xab', 'abcde')
    ,('abcde','yde', 'abcde')

    ,('','a', '')
) | % {
    $s,$t,$e = $_
    $r = &$f $s $t
    "$($r-in$e): $r"
}

산출:

True: cde
True: ab
True: ab
True: abc
True: abcde
True: acdb
True:
True: abcde
True:

QBIC , 57 바이트

이건 QBIC / QBasic의 혼란입니다 ...

B=@ `+B┘x=instr(;,;)~x|?_t_sB,x-1|+_sB,x+_lC|,_lB|||\?B

B=@ `+B          Prepend a string to B$. Thisis a hack to avoid errors with 
                 removing substrings stating at index 1
┘                Line-break in QBasic output
       (;,;)     Read the string (B$) and the to-be-removed substring (C$)
x=instr          And make x to be the starting index of the first C$ in B$
~x|              IF X <> 0 (ie C$ is present in B$)
?                PRINT
 _t                trimmed version (drops the prepended space)
  _sB,x-1|+        of a substring from 1 to x (the start of C$) -1
  _sB,x+_lC|,_lB   and the rest of the string, starting after C$
                     _l takes the length of a string
  |||              End TRIM, end Substring, end Length
\?B              When missing C$, just print B$

루아 , 71 65 바이트

제안 수락

a,b=...p='(.*)'print(a:match('^'..b..p)or a:match(p..b..'$')or a)

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

처음에 지시 사항을 잘못 읽었습니다. 내 실수를 지적한 Ørjan Johansen 에게 감사합니다 !

PowerShell , 46 51 바이트

Function F($o,$a){([regex]"^$a").replace($o,'',1);}

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

Excel, 129 바이트

=IFERROR(IF(FIND(B1,A1)=1,SUBSTITUTE(A1,B1,"",1),IF(FIND(B1,A1,LEN(A1)-LEN(B1))>LEN(A1)-LEN(B1),LEFT(A1,LEN(A1)-LEN(B1)),A1)),A1)

sed , 56 53 바이트

s/^(.*),(.*)\1$/\2/
s/^(.*),\1(.*)$/\2/
s/.*,(.*)/\1/

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