Amaç

Dize bitiştirmeyi tersine çevirmek için bir işlev oluşturun

Giriş

Birinin diğeri için çıkarılması gereken iki dize (alfanümerik + boşluklar).

• Çıkarılacak dizginin asla diğerinden daha büyük olmayacağını varsayabilirsiniz.

Çıktı

Çıkarma sonucu

Çıkarma

Bir dizgiyi başka bir dizgenin başlangıcından veya sonundan silmelisiniz. Dize başlangıçta ve sonunda mevcutsa, yalnızca hangisinin kaldırılacağı size ait olanı kaldırabilirsiniz.
Dize başlangıçta veya sonunda değilse veya tam bir eşleşme değilse, geçersiz bir çıkartmadır ve orijinal dizeyi çıkarmanız gerekir.

Test Kılıfları

Geçerli Çıkarma

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

Geçersiz Çıkarma (orijinal dizeyi döndürür)

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

Geçersiz Giriş (ele alınması gerekmez)

'','a' -> ''

Bu kod-golf , yani bayttaki en kısa kod kazanır!

Java 8, 46 45 44 40 bayt

TheLethalCoder sayesinde -1 bayt

-1 bayt çünkü aptalım (teşekkürler Rod!)

Kevin Cruijssen sayesinde -4 bayt

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

Çevrimiçi deneyin! (tüm test durumlarını içerir)

Bir Java cevabı aslında birkaç pratik dili daha atıyor. Smiles. (ve şimdi JS yener!)

JavaScript (ES6), 41 bayt

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

Karıştırma sözdizimi ile girdi, yani f("abab")("ab").

Brachylog (Çevrimiçi Deneyin!), 12 bayt

~cpĊh.∧Ċtw|w

Çevrimiçi deneyin!

Standart girdiden çıkarılacak dizgiyi ve komut satırı argümanı olarak çıkarılacak dizgiyi alır.

açıklama

~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}.

Retina , 21 bayt

Martin Ender'e 1 bayt teşekkürler.

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

Çevrimiçi deneyin!

JavaScript (ES6), 76 70 45 41 bayt

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

Dene

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>

Perl 6 , 21 bayt

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

Dene

Expanded:

-> $_, $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 bayt

k"^|$"¬qV

Çevrimiçi deneyin!

TI-Basic (TI-84 Plus CE), 63 bayt

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

Mathematica, 162 bayt

(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)&

test girişi stili ["abcde", "ab"]

Python, 69 68 64 57 51 45 bayt

Bu Regex ile tamamen farklı bir çözüm olarak sona erdi.

-2 bayt için Value Ink'e teşekkürler !
ve büyük -6 bayt için Felipe Nardi Batista !

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

Çevrimiçi deneyin!

Bash ,66 61 49 bayt

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

Çevrimiçi deneyin!

daha az golf oynadı:

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

Başlangıç ​​veya bitişi test etmek için büyük / küçük harf ve dizi öneki / sonek (% / #) alt bölümlerini kullanır.

APL (Dyalog) , 31 30 bayt

-1 Zacharý'ya teşekkürler .

Bu aslında ters (yani ters) birleştirme kullanır! Orijinal dizgiyi sol argüman olarak ve ne argüman olarak çıkarmak için alır.

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

Çevrimiçi deneyin!

Ungolfed:

{
    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
}

Açıklama:

{… } Anonim işlev

⍺ geçerli fonksiyonun sol argümanı

⍵ geçerli fonksiyonun doğru argümanı

0::… Herhangi bir hata olursa, bunu yürütün, başka…

⍣¯1⊢ ters

,∘⍵sağda ⍵  birleştirmek

⍵,solda ⍵  birleştirmek

PHP, 54 Bayt

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

testcases

Python 2,68 bayt

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

Çevrimiçi deneyin!

Haskell , 49 bayt

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

Çevrimiçi deneyin! Kullanımı: f"" "abcdef" "ab". Alternatif olarak, tanımlayın (-)=f""ve kullanın "abcdef" - "ab".

Bu regex içermeyen çözüm, dizeyi tüm ön ve son eklerinde yinelemeli olarak bölerek ve çıkarılacak dizenin bunlardan biriyle eşleşip eşleşmediğini kontrol ederek çalışır.

Python 2 , 72 65 bayt

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

Çevrimiçi deneyin!

@FelipeNardiBatista sayesinde -7 bayt

C #, 88 bayt

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

A derler Func<string, Func<string, string>>.

Yakut (lambda ifadesi), 29 bayt

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

Regex enterpolasyonu için yay! Regex-güvenli subtendend'ler gerektirir, ancak bu zorlukya göre tamam.

Tcl , 37 bayt

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

Çevrimiçi deneyin!(şimdi tüm testleri çalıştırıyor)

Tcl basittir. ve alan parametrelerini alan proc s {a b}bir işlevi tanımlar . boş bir dize olan yerini , başlangıcında veya sonundaki değerine göre değiştirir . Dönüş tamdır.sabregsub{}ba

C, 96 bayt

Bir uzatma golfünün borderline mazoşist olacağından, C'deki string manipülasyonunun hantal olduğu yaygın bir bilgidir. Bana iyi geliyor.

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

Yazdığım daha az okunabilen programlardan biri. ( char**Girdi işlevine rağmen) iki giriş alır, dekontanlaştırılacak dizeye bir işaret ve char*hangisi kaldırılacak dizedir. Giriş işaretçisi yerinde düzenlenir ve çıktı haline gelir (kim yine de bellek sızıntısı varsa).

Örnek kullanım:

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 bayt

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

Çevrimiçi deneyin!

Orijinal gönderim, yalnızca başında veya sonunda değil, ilk dizedeki metni saf bir şekilde değiştirdi.

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

Çevrimiçi deneyin!

Başlangıçta ayraçlar olmadan denenmiş, ancak boş sürümleri yazdırmak için püf noktaları ve / veya bu sürümden daha fazla bayt ekleyen eşleşmeler gerektirmiyordu.

R, 20 42 41 bayt

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

MickyT sayesinde -1 bayt!

Anonim bir işlev döndürür (sırayla argüman olan b,a). Dize farkını hesaplar a-b. subBu, desenin ilk oluşumunu bu durumda boş dizeyle değiştiren basit bir ikamedir ''. Regex'i sprintfyalnızca dizenin başında ve sonunda eşleşecek şekilde yapılandırır . pryrPaketin kurulmasını gerektirir .

TIO bağlantısında, function(a,b)dört bayt için işlev için daha ayrıntılı tanımı kullanır .

Çevrimiçi deneyin!

Ortak Lisp, 121 bayt

(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)))

Çevrimiçi deneyin!

Her zamanki wordy Common Lisp!

Ungolfed versiyonu:

(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

Kotlin , 91 bayt

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

Çevrimiçi deneyin!

PowerShell, 34 40 bayt

Invalid SubtractionTest vakaları eklendiğinde +6 bayt

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

Yorum Yap:

Regexp ifadesi ^$t|$t$beklendiği gibi çalışmaz: bir yerine her iki eşleşmeyi de değiştirir (bayrak gdaima açıktır). Bu nedenle, negatif gözetleme grubunu kullanmak zorundayız.

Test komut dosyası:

$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"
}

Çıktı:

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

QBIC , 57 bayt

Whegh, bu QBIC / QBasic’teki bir karışıklık ...

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$

Lua , 71 65 bayt

Önerileri kabul etme

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

Çevrimiçi deneyin!

Başlangıçta talimatları yanlış anladım. Hatamı söylediğin için teşekkürler, Ørjan Johansen !

PowerShell , 46 51 bayt

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

Çevrimiçi deneyin!

Excel, 129 bayt

=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 bayt

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

Çevrimiçi deneyin!