Objektif

Buat fungsi untuk membalikkan rangkaian senar

Memasukkan

Dua string (spasi + alfanumerik), di mana satu harus dikurangkan untuk yang lain.

• Anda dapat mengasumsikan bahwa string yang akan dikurangkan tidak akan pernah lebih besar dari yang lainnya.

Keluaran

Hasil dari pengurangan

Pengurangan

Anda harus menghapus satu string dari awal atau akhir dari string lain. Jika string ada di awal dan di akhir, Anda hanya dapat menghapus satu, yang mana yang akan dihapus terserah Anda.
Jika string tidak di awal atau di akhir, atau tidak sama persis, itu adalah pengurangan yang tidak valid dan Anda harus menampilkan string asli.

Uji Kasus

Pengurangan Valid

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

Pengurangan Tidak Valid (mengembalikan string asli)

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

Masukan Tidak Valid (tidak perlu ditangani)

'','a' -> ''

Ini adalah kode-golf , jadi kode terpendek dalam byte menang!

Java 8, 46 45 44 40 byte

-1 byte terima kasih kepada TheLethalCoder

-1 byte karena saya bodoh (terima kasih Rod!)

-4 byte terima kasih kepada Kevin Cruijssen

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

Cobalah online! (termasuk semua kasus uji)

Jawaban Java sebenarnya mengalahkan beberapa bahasa praktis lainnya. Senyum. (dan sekarang ini mengalahkan JS!)

JavaScript (ES6), 41 byte

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

Mengambil input melalui sintaks currying, yaitu f("abab")("ab").

Brachylog (Coba Online!), 12 byte

~cpĊh.∧Ċtw|w

Cobalah online!

Mengambil string untuk mengurangi dari input standar, dan string untuk mengurangi sebagai argumen baris perintah.

Penjelasan

~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 byte

1 byte terima kasih kepada Martin Ender.

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

Cobalah online!

JavaScript (ES6), 76 70 45 41 byte

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

Cobalah

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 byte

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

Cobalah

Diperluas:

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

k"^|$"¬qV

Cobalah online!

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

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 byte

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

uji gaya masukan ["abcde", "ab"]

Python, 69 68 64 57 51 45 byte

Ini akhirnya menjadi solusi yang sama sekali berbeda dengan Regex.

Berkat Value Ink untuk -2 byte!
dan Felipe Nardi Batista untuk -6 byte besar!

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

Cobalah online!

Pesta ,66 61 49 byte

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

Cobalah online!

kurang golf:

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

Menggunakan case untuk menguji awal atau akhir, dan menyusun substraksi prefix / suffix (% ​​/ #)

APL (Dyalog) , 31 30 byte

-1 terima kasih kepada Zacharý .

Ini sebenarnya menggunakan concatenation terbalik (yaitu kebalikan dari)! Mengambil string asli sebagai argumen kiri, dan apa yang harus dikurangi sebagai argumen benar.

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

Cobalah online!

Tidak Disatukan:

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

Legenda:

{... } fungsi anonim

⍺ argumen kiri dari fungsi saat ini

⍵ argumen yang benar dari fungsi saat ini

0::... jika ada kesalahan terjadi, jalankan ini, kalau tidak ...

⍣¯1⊢ terbalik

,∘⍵ menyatukan ⍵ di sebelah kanan

⍵, menyatukan ⍵ di sebelah kiri

PHP, 54 Bytes

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

Testcases

Python 2 , 68 byte

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

Cobalah online!

Haskell , 49 byte

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

Cobalah online! Penggunaan: f"" "abcdef" "ab". Atau, tentukan (-)=f""dan gunakan like "abcdef" - "ab".

Solusi bebas regex ini bekerja dengan membelah string secara rekursi di semua pre-dan postfixes-nya dan memeriksa apakah string yang akan dikurangi cocok dengan salah satunya.

Python 2 , 72 65 byte

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

Cobalah online!

-7 byte berkat @FelipeNardiBatista

C #, 88 byte

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

Kompilasi ke a Func<string, Func<string, string>>.

Ruby (ekspresi lambda), 29 byte

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

Yay untuk interpolasi regex! Membutuhkan subtrahends aman-regex, tapi tidak apa-apa sesuai tantangan.

Tcl , 37 byte

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

Cobalah online! (sekarang menjalankan semua tes)

Tcl sangat mudah. proc s {a b}mendefinisikan fungsi bernama syang mengambil parameter adan b. regsubpengganti {}, yang merupakan string kosong, untuk nilai bkapan pada awal atau akhir a. Pengembaliannya implisit.

C, 96 byte

Sudah menjadi rahasia umum bahwa manipulasi string dalam C rumit, karena golf ekstensi akan menjadi garis batas masokis. Kedengarannya baik bagi saya.

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

Salah satu program yang kurang mudah dibaca yang saya tulis. Mengambil dua input (terlepas dari bagaimana fungsi terlihat), char**menunjuk ke string untuk didekonsiliasi dan achar* yang merupakan string untuk dihapus. Pointer input diedit di tempat dan menjadi output (yang peduli tentang kebocoran memori pula).

Contoh penggunaan:

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 byte

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

Cobalah online!

Pengiriman asli secara naif menggantikan teks dalam string pertama, bukan hanya pada awal atau akhir.

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

Cobalah online!

Awalnya mencoba tanpa kawat gigi, tetapi diperlukan trik untuk mencetak garis kosong dan atau tidak cocok yang akhirnya menambahkan lebih banyak byte daripada versi ini.

R, 20 42 41 byte

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

-1 byte terima kasih kepada MickyT!

Mengembalikan fungsi anonim (yang memiliki argumen dalam urutan b,a). Menghitung perbedaan string a-b. subadalah substitusi sederhana yang menukar kemunculan pertama pola dengan, dalam hal ini, string kosong ''. Bangun regex dengan sprintfuntuk mencocokkan hanya pada awal dan akhir string. Membutuhkan pryrpaket untuk diinstal.

Pada tautan TIO, gunakan function(a,b)definisi yang lebih verbose untuk fungsi selama empat byte lebih.

Cobalah online!

Common Lisp, 121 byte

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

Cobalah online!

Common Lisp yang biasa!

Versi tidak disatukan:

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

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

Cobalah online!

Powershell, 34 40 byte

+6 byte saat Invalid Subtractiontest case ditambahkan

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

Komentar:

Ekspresi regexp ^$t|$t$tidak berfungsi seperti yang diharapkan: ia menggantikan kedua kecocokan alih-alih satu (ditandai gselalu aktif). Jadi, kami terpaksa menggunakan grup lookahead negatif.

Skrip uji:

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

Keluaran:

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

QBIC , 57 byte

Whegh, ini berantakan di 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$

Lua , 71 65 byte

Menerima saran

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

Cobalah online!

Saya awalnya salah membaca instruksi. Terima kasih, Ørjan Johansen karena menunjukkan kesalahan saya!

PowerShell , 46 51 byte

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

Cobalah online!

Excel, 129 byte

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

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

Cobalah online!