Mục tiêu

Tạo một hàm để đảo ngược chuỗi nối

Đầu vào

Hai chuỗi (chữ và số + dấu cách), trong đó một chuỗi nên được trừ cho chuỗi kia.

• Bạn có thể giả định rằng chuỗi được trừ sẽ không bao giờ lớn hơn chuỗi khác.

Đầu ra

Kết quả của phép trừ

Phép trừ

Bạn nên xóa một chuỗi từ đầu hoặc cuối chuỗi khác. Nếu chuỗi có mặt ở đầu và cuối, bạn chỉ có thể xóa một chuỗi, chuỗi nào sẽ bị xóa tùy thuộc vào bạn.
Nếu chuỗi không bắt đầu hoặc kết thúc hoặc không khớp chính xác, đó là phép trừ không hợp lệ và bạn nên xuất chuỗi gốc.

Các trường hợp thử nghiệm

Phép trừ hợp lệ

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

Phép trừ không hợp lệ (trả về chuỗi gốc)

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

Đầu vào không hợp lệ (không cần xử lý)

'','a' -> ''

Đây là mã golf , vì vậy mã ngắn nhất tính bằng byte sẽ thắng!

Java 8, 46 45 44 40 byte

-1 byte nhờ TheLethalCoder

-1 byte vì tôi bị câm (cảm ơn Rod!)

-4 byte nhờ Kevin Cruijssen

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

Hãy thử trực tuyến! (bao gồm tất cả các trường hợp thử nghiệm)

Một câu trả lời Java thực sự đánh bại một vài ngôn ngữ thực tế khác. Mỉm cười. (và bây giờ nó đánh bại JS!)

JavaScript (ES6), 41 byte

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

Đưa đầu vào thông qua cú pháp currying, tức là f("abab")("ab").

Brachylog (Dùng thử trực tuyến!), 12 byte

~cpĊh.∧Ċtw|w

Hãy thử trực tuyến!

Lấy chuỗi để trừ khỏi đầu vào tiêu chuẩn và chuỗi để trừ làm đối số dòng lệnh.

Giải trình

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

Võng mạc , 21 byte

1 byte nhờ Martin Ender.

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

Hãy thử trực tuyến!

JavaScript (ES6), 76 70 45 41 byte

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

Thử nó

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

Thử nó

Mở rộng:

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

Hãy thử trực tuyến!

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

Toán học, 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)&

kiểm tra kiểu đầu vào ["abcde", "ab"]

Python, 69 68 64 57 51 45 byte

Điều này cuối cùng đã trở thành một giải pháp hoàn toàn khác với Regex.

Cảm ơn Ink Ink cho -2 byte!
và Felipe Nardi Batista cho số lượng lớn -6 byte!

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

Hãy thử trực tuyến!

Bash ,66 61 49 byte

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

Hãy thử trực tuyến!

ít chơi gôn

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

Sử dụng trường hợp để kiểm tra bắt đầu hoặc kết thúc, và tiền tố mảng / hậu tố (% / #) mảng

APL (Dyalog) , 31 30 byte

-1 cảm ơn Zacharý .

Điều này thực sự sử dụng phép nối ngược (tức là nghịch đảo)! Lấy chuỗi gốc làm đối số bên trái và những gì cần trừ làm đối số bên phải.

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

Hãy thử trực tuyến!

Ung dung:

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

Huyền thoại:

{... } chức năng ẩn danh

⍺ đối số bên trái của hàm hiện tại

⍵ đối số đúng của hàm hiện tại

0::Nếu có lỗi xảy ra, hãy thực hiện điều này, khác

⍣¯1⊢ nghịch đảo

,∘⍵ nối ⍵ bên phải

⍵, nối ⍵ bên trái

PHP, 54 byte

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

Tủ thử

Python 2 , 68 byte

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

Hãy thử trực tuyến!

Haskell , 49 byte

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

Hãy thử trực tuyến! Cách sử dụng : f"" "abcdef" "ab". Cách khác, xác định (-)=f""và sử dụng như thế nào "abcdef" - "ab".

Giải pháp không có regex này hoạt động bằng cách phân chia đệ quy chuỗi trong tất cả các tiền tố và hậu tố của nó và kiểm tra xem chuỗi được trừ có khớp với một trong số chúng không.

Python 2 , 72 65 byte

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

Hãy thử trực tuyến!

-7 byte nhờ @FelipeNardiBatista

C #, 88 byte

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

Biên dịch thành a Func<string, Func<string, string>>.

Ruby (biểu thức lambda), 29 byte

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

Yay cho nội suy regex! Yêu cầu các ẩn phụ an toàn regex, nhưng điều đó không sao theo thách thức.

Tcl , 37 byte

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

Hãy thử trực tuyến! (hiện đang chạy tất cả các bài kiểm tra)

Tcl là đơn giản. proc s {a b}định nghĩa một hàm có tên stham số avà b. regsubthay thế {}, là một chuỗi rỗng, cho giá trị bkhi nó ở đầu hoặc cuối của a. Sự trở lại là ngầm.

C, 96 byte

Đó là kiến ​​thức phổ biến rằng thao tác chuỗi trong C là cồng kềnh, vì việc chơi gôn mở rộng sẽ là đường biên giới. Âm thanh ổn với tôi.

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

Một trong những chương trình ít đọc hơn tôi đã viết. Có hai đầu vào (mặc dù hàm trông như thế nào), một char**trỏ đến chuỗi để deconcatenate và một char*chuỗi là chuỗi cần loại bỏ. Con trỏ đầu vào được chỉnh sửa tại chỗ và trở thành đầu ra (ai cũng bị rò rỉ bộ nhớ).

Ví dụ sử dụng:

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

Hãy thử trực tuyến!

Trình gốc ban đầu thay thế văn bản trong chuỗi đầu tiên, không chỉ ở đầu hoặc cuối.

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

Hãy thử trực tuyến!

Ban đầu đã thử mà không có dấu ngoặc nhọn, nhưng nó yêu cầu các thủ thuật để in ra các dòng trống và không khớp mà cuối cùng đã thêm nhiều byte hơn phiên bản này.

R, 20 42 41 byte

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

-1 byte nhờ MickyT!

Trả về một hàm ẩn danh (có các đối số theo thứ tự b,a). Tính toán sự khác biệt chuỗi a-b. sublà một sự thay thế đơn giản hoán đổi sự xuất hiện đầu tiên của mẫu với, trong trường hợp này là chuỗi rỗng ''. Xây dựng biểu thức chính quy sprintfđể chỉ khớp ở đầu và cuối chuỗi. Yêu cầu pryrgói phải được cài đặt.

Trên liên kết TIO, sử dụng function(a,b)định nghĩa dài hơn cho hàm cho bốn byte nữa.

Hãy thử trực tuyến!

Lisp thông thường, 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)))

Hãy thử trực tuyến!

Lisp thông thường thường gặp!

Phiên bản bị đánh cắp:

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

Hãy thử trực tuyến!

Powershell, 34 40 byte

+6 byte khi Invalid Subtraction thêm trường hợp kiểm tra

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

Bình luận:

Biểu thức regrec ^$t|$t$ không hoạt động như mong đợi: nó thay thế cả hai trận đấu thay vì một (cờ gluôn bật). Vì vậy, chúng tôi buộc phải sử dụng nhóm nhìn tiêu cực.

Kịch bản thử nghiệm:

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

Đầu ra:

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

QBIC , 57 byte

Whegh, đây là một mớ hỗn độn trong 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

Chấp nhận đề xuất

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

Hãy thử trực tuyến!

Tôi ban đầu đọc sai hướng dẫn. Cảm ơn, Ørjan Johansen đã chỉ ra sai lầm của tôi!

PowerShell , 46 51 byte

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

Hãy thử trực tuyến!

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/

Hãy thử trực tuyến!