Một thử thách khá đơn giản: Bạn sẽ nhận được hai đầu vào, một chuỗi và một số (số có thể được lấy dưới dạng một chuỗi, tức là "123"thay vì 123)

Nếu chuỗi không kết thúc bằng một số (nghĩa là nó không khớp với biểu thức chính quy \d$), chỉ cần nối số đó vào cuối chuỗi.

Nếu chuỗi kết thúc bằng một số (nghĩa là nó khớp với biểu thức chính quy \d+$), trước tiên bạn nên xóa chuỗi đó và sau đó nối thêm số đó.

Cả hai đầu vào sẽ không hợp lệ hoặc trống (không hợp lệ được xác định bởi đầu vào số không chỉ chứa các chữ số)

Số sẽ không bao giờ chứa a -hoặc a ..

Chuỗi sẽ không bao giờ chứa một dòng mới, hoặc các ký tự không phải khoảng trắng không thể in được.

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

abc123 + 345 -> abc345
123 + 1 -> 1
hello + 33 -> hello33
123abc123 + 0 -> 123abc0
ab3d5 + 55 -> ab3d55
onetwo3 + 3 -> onetwo3
99ninenine + 9999 -> 99ninenine9999

Võng mạc , 5 byte

\d*¶

Lấy hai chuỗi làm đầu vào, cách nhau bởi một dòng mới.

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

Python 2 , 30 byte

lambda a,b:a.rstrip(`56**7`)+b

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

PHP, 37 36 35 33 byte

<?=chop($argv[1],3**39),$argv[2];

Đã lưu 1 byte nhờ Jörg Hülsermann .

Perl 5, 12 byte

Mã 11 byte + 1 cho -p.

s/\d*$/<>/e

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

Java 8, 32 byte

a->b->a.replaceAll("\\d*$","")+b

Lấy đầu vào adưới dạng Chuỗi và đối với bnó không quan trọng cho dù đó là Chuỗi hay số nguyên (mặc dù tôi sử dụng Số nguyên trong liên kết TIO bên dưới).

Hãy thử nó ở đây.

Python 2 , 32 byte

import re
re.compile("\d*$").sub

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

Đưa các đầu vào theo thứ tự ngược lại, cả hai dưới dạng chuỗi.

05AB1E , 9 byte

DvTFNÜ}}«

Hãy thử trực tuyến! Có lẽ là một giải pháp tồi nhưng đó là cách tốt nhất tôi có thể nghĩ ra

Giải trình

DvTFNÜ}}«
Dv     }  # For each character in input1
  TF  }   # 10 times
    NÜ    # Get 0-9 and trim it from input1
        « # Concatenate with input2

Japt , 10 byte

r"%d*$" +V

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

 r"%d*$" +V
Ur"%d*$" +V # Implicit input (U and V)
 r          # Remove
  "%d*$"    #   any trailing digits
U           #   from the first input
         +V # And append the second input
            # Implicit output

Python 2 , 44 41 39 byte

EDIT: -4 byte nhờ @Dom Hastings. Tôi không sử dụng biểu thức chính quy nhiều.

EDIT 2 : -2 byte nhờ @totallyhuman chỉ ra rằng số này có thể được lấy dưới dạng chuỗi

Phải dự kiến ​​...

lambda x,y:re.sub("\d*$",y,x)
import re

Chỉ cần xóa các chữ số ở cuối chuỗi và nối thêm số

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

Pip , 9 7 byte

a<|XD.b

@DLosc đã tiết kiệm cho tôi 2 byte!

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

Giải trình

a<|         Strip all matches off the end of 'a' (the first cmd line arg)
   XD         of the pattern \d (ordinarily, a regex would be entered as '\d', but digits 
              have a pre-existing constant XD)
     .b     Then concatenate 'b' (the second cmd line arg)
            PIP implicitly prints the results of the last operation.

Thạch , 5 byte

œrØD;

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

Làm thế nào nó hoạt động

œrØD;  Main link. Left argument: s. Right argument: t

  ØD   Digits; yield "0123456789".
œr     Trim these characters from the right of s.
    ;  Append t.

JavaScript (ES6), 28 26 25 byte

x=>y=>x.replace(/\d*$/,y)

• Lưu 1 byte nhờ Neil nhắc nhở tôi tại sao tôi không nên chơi gôn vào sáng sớm!

Ruby , 21 byte

->a,b{a=~/\d*$/;$`+b}

Có hai chuỗi trong đầu vào.

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

C #, 45 byte

s=>n=>s.TrimEnd("0123456789".ToCharArray())+n

Giải trình:

s=>n=>                                        // Take input
      s.TrimEnd(                              // Trim the end of the string with the specified chars
                "0123456789"                  // Create a string of the digits
                            .ToCharArray())   // Turn the string into a char array
                                           +n // Append the integer onto the end

V , 7 4 byte

óä*î

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

Điều này sử dụng regex giống như câu trả lời Retina ở trên:

s:/\d*\n//

Perl 6 , 20 byte

->$_,\n{S/\d*$/{n}/}

Tcl 32 byte

proc s a\ b {regsub \\d*$ $a $b}

Tôi không chắc chắn về giao diện dự kiến. Điều này được thực hiện như một thủ tục chấp nhận hai đầu vào làm đối số cuộc gọi. Để biến nó thành một tập lệnh độc lập đọc đầu vào từ stdin và đưa kết quả ra thiết bị xuất chuẩn, người ta sẽ cần thêm dòng:

puts [s [gets stdin] [gets stdin]]

hoặc sẽ làm tất cả "nội tuyến":

puts [regsub \\d*$ [gets stdin] [gets stdin]]

regsub lấy một RE, chuỗi gốc và một chuỗi để thay thế phần khớp với.

Toán học, 48 byte

Đã có một giải pháp Mathicala (84 byte).

StringDrop[StringTrim["."<>#,_?DigitQ..]<>#2,1]&

Cà rốt , 16 21 byte

$^//^.*?(?=\d*$)/S0^#

Hãy thử trực tuyến! (đầu vào được phân tách theo dòng)

Giải trình

$^                Set the stack-string to be equal to the first line in the input
/                 Set the stack-array to be equal to the matches of this regex:
 /^.*?(?=\d*$)/   The beginning of the string followed by non-digit characters at the end that are not included in the match.
S0                Convert to a string with 0 as the delimiter
^#                Append the rest of the input to the stack-string

Tôi đã phải tăng bytecount lên 5 vì mã không hoạt động đối với các testcase như a5b3có nhiều chữ số.

Haskell, 75 byte 95 byte 91 79 61 byte

b=(`notElem`['0'..'9'])
r=reverse
d#e=r(snd$break b$r d)++e

Tôi đã thử làm điều này mà không có regex vì vậy có lẽ đó sẽ là một câu trả lời được cải thiện đáng kể. Ngoài ra, có một vài cách tôi có thể thực hiện về điều này vì vậy tôi không chắc liệu tôi có thể cạo một vài byte bằng một cách tiếp cận khác không.

CẬP NHẬT: Tôi đã đi lên theo byte bởi vì tôi nhận ra rằng tôi đã thất bại trong trường hợp thử nghiệm trong đó các số tồn tại trong chuỗi không phải là hậu tố. Bây giờ tôi chắc chắn rằng regex sẽ cung cấp một câu trả lời tốt hơn nhiều.

CẬP NHẬT2: Sau một số phản hồi tuyệt vời, nhiều byte đã được chơi!

Toán học, 84 byte

(k=#;T=ToCharacterCode;L=T@k;While[47<Last@L<58,w=k~StringDrop~-1;k=w;L=T@w];w<>#2)&

đầu vào 2 chuỗi

["Ab3d5", "55"]

đầu ra

ab3d55

C (gcc) , 99 98 96 95 byte

Có thể đánh golf xuống một chút ...

main(c,v)char**v;{for(c=strlen(v[1]);~c*isdigit(v[1][--c]);v[1][c]=0);printf(v[1]),puts(v[2]);}

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

Noether , 11 byte

I"\d+$"-I+P

Hãy thử nó ở đây!

Khi nhập một chuỗi, hãy đặt nó trong dấu ngoặc kép

Giải trình:

I       - Push input to stack
"\d+$"  - Push string to stack
-       - Remove characters from first string which match the regex
I       - Push input to stack
+       - Append to the first string
P       - Print top item of stack

05AB1E , 8 byte

DþRvyÜ}«

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

Giải trình:

DþRvyÜ}«
D        Duplicate input.
 þ       Get the digits of the input.
  R      Reverse the digits of the input.
   v  }  For each of the digits in the input:
    y        Push the current digit
     Ü       Trim that from the right of the input.
       « Concatenate to 2nd input.