Oldukça basit bir meydan okuma: İki giriş alırsınız, bir dize ve bir sayı (sayı dize olarak alınabilir, yani "123"yerine 123)

Dize bir sayıyla bitmezse (yani normal ifadeyle eşleşmezse \d$), sayıyı dizenin sonuna ekleyin.

Dize bir sayıyla bitiyorsa (yani normal ifadeyle eşleşiyorsa \d+$), önce bunu silmeli ve ardından sayıyı eklemelisiniz.

Girişlerin hiçbiri geçersiz veya boş olmayacaktır (geçersiz, yalnızca rakam içermeyen sayısal giriş tarafından tanımlanır)

Sayı hiçbir zaman a -veya a içermeyecektir ..

Dize hiçbir zaman yeni satır veya yazdırılamayan boşluk olmayan karakterler içermez.

Test Durumları:

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

Retina , 5 bayt

\d*¶

Bir satırsonu ile ayrılmış iki dizeyi girdi olarak alır.

Çevrimiçi deneyin!

Python 2 , 30 bayt

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

Çevrimiçi deneyin!

PHP, 37 36 35 33 bayt

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

Jörg Hülsermann sayesinde 1 bayt kurtardı .

Perl 5, 12 bayt

İçin 11 bayt kodu + 1 -p .

s/\d*$/<>/e

Çevrimiçi deneyin!

Java 8, 32 bayt

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

Girdi alır aBir String olarak ve bbunun için bir String veya integer olması fark etmez (aşağıdaki TIO bağlantısında Integer kullanmamıza rağmen).

Burada deneyin.

Python 2 , 32 bayt

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

Çevrimiçi deneyin!

Girdileri dize olarak ters sırayla alır.

05AB1E , 9 bayt

DvTFNÜ}}«

Çevrimiçi deneyin! Muhtemelen kötü bir çözüm ama gelebileceğim en iyisi

açıklama

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

Japt , 10 bayt

r"%d*$" +V

Çevrimiçi deneyin!

 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 bayt

EDIT: @Dom Hastings sayesinde -4 bayt. Normal ifadeleri fazla kullanmıyorum.

DÜZENLEME 2 : -2 bayt @totallyhuman sayının bir dize olarak alınabileceğine işaret ederek

Beklenmesi gerekiyordu ...

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

Dizenin sonundaki rakamları kaldırır ve numarayı ekler

Çevrimiçi deneyin!

Pip , 9 7 bayt

a<|XD.b

@DLosc beni 2 bayt kurtardı!

Çevrimiçi deneyin!

açıklama

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.

Jöle , 5 bayt

œrØD;

Çevrimiçi deneyin!

Nasıl çalışır

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

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

• Neil sayesinde sabahın erken saatlerinde neden golf oynamamam gerektiğini hatırlatan 1 bayt kurtardı !

Ruby , 21 bayt

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

Girdi iki dizge alır.

Çevrimiçi deneyin!

C #, 45 bayt

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

Açıklama:

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 bayt

óä*î

Çevrimiçi deneyin!

Bu, yukarıdaki Retina cevabı ile aynı normal ifadeyi kullanır:

s:/\d*\n//

Perl 6 , 20 bayt

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

Tcl 32 bayt

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

Beklenen arayüzden emin değilim. Bu, iki girişi çağrı argümanları olarak kabul eden bir prosedür olarak yapılır. Stdin'den girdi okuyan ve sonucu stdout'a çıkaran bağımsız bir komut dosyasına dönüştürmek için ekstra satır gerekir:

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

veya hepsini "satır içi" yapar:

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

regsub, bir RE, orijinal dize ve eşleşen parçayı değiştirmek için bir dize alır.

Mathematica, 48 bayt

Zaten bir Mathematica çözümü var (84 bayt).

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

Havuç , 16 21 bayt

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

Çevrimiçi deneyin! (giriş satır besleme ile ayrılmıştır)

açıklama

$^                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

Kod a5b3birden çok basamaklı gibi testcases için işe yaramadı çünkü bayt 5 artırmak zorunda kaldı .

Haskell, 75 bayt 95 bayt 91 79 61 bayt

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

Bunu regex olmadan yapmayı denedim, bu yüzden bu dramatik bir şekilde geliştirilmiş bir cevap olurdu. Ayrıca bu konuda gidebileceğim birkaç yol var, bu yüzden farklı bir yaklaşımla birkaç bayt tıraş edebileceğimden emin değilim.

GÜNCELLEME: Bayt olarak girdim çünkü dizede sayıların sonek olmayan sayılarının bulunduğu test senaryosunda başarısız olduğumu fark ettim. Şimdi regex'in daha iyi bir cevap sağlayacağından eminim.

GÜNCELLEME2: Harika geri bildirimlerden sonra daha fazla bayt golf oynadı!

Mathematica, 84 bayt

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

giriş 2 dizeleri

["ab3d5", "55"]

çıktı

ab3d55

C (gcc) , 99 98 96 95 bayt

Bu biraz golf mümkün olmalıdır ...

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

Çevrimiçi deneyin!

Noether , 11 bayt

I"\d+$"-I+P

Burada deneyin!

Bir dize girerken onu tırnak içine alın

Açıklama:

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 bayt

DþRvyÜ}«

Çevrimiçi deneyin!

Açıklama:

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.