Dựa trên danh sách các số và chữ cái tương đương của chúng, lấy đầu vào chuỗi, thay thế các ký tự của chuỗi đó bằng số / chữ cái tương đương và xuất kết quả.

Danh sách

• 1 = a
• 2 = b
• 3 = c
• 4 = d
• 5 = e
• 6 = f
• 7 = g
• 8 = h
• 9 = tôi
• 0 = j

Đầu vào

thisisastring1124

Đầu ra

t89s9s1str9n7aabd

Quy tắc

• Các số chỉ tương đương với chữ thường.
• Bất kỳ nhân vật ngoài danh sách sẽ được để lại như vậy.
• Chuỗi đầu vào không được chứa khoảng trắng.
• Chương trình hoặc chức năng đầy đủ được cho phép.
• Vì nó là môn đánh gôn, nên ít byte nhất sẽ thắng.

bash, 18 byte

tr 1-90a-j a-j1-90

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

Con trăn 3 , 76 68 byte

lambda w:w.translate(dict(zip(s,s[::-1])))
s=b'1234567890jihgfedcba'

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

Perl 5 , 17 byte

y;a-j1-90;1-90a-j

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

05AB1E , 13 9 byte

žmÁAT£J‡

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

Giải trình

žmÁ         # push 0987654321
   AT£      # push abcdefghij
      J     # join strings
       Â    # bifurcate
        ‡   # transliterate

Perl 6 , 45 23 byte

tr/1..90a..j/a..j1..90/

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

Chỉ là một regex chuyển ngữ đơn giản.

Võng mạc 0.8.2 , 12 byte

T`a-j09-1`Ro

Hãy thử trực tuyến! Giải trình:

T``

Thực hiện phiên âm.

a-j09-1

Danh sách nguồn là các chữ cái a-j, sau 0đó là các chữ số 9-1.

Ro

Danh sách đích là danh sách nguồn được đảo ngược, tức là các chữ số 1-9, sau đó 0, sau đó là các chữ cái j-a.

J , 38 byte

rplc[:(;~"0|.)'9876543210jabcdefghi'"1

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

Python 2 , 82 78 byte

lambda i,l='1234567890jihgfedcba':''.join((x,l[~l.find(x)])[x in l]for x in i)

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

-4 cảm ơn @ovs

JavaScript (ES6), 66 byte

s=>s.replace(e=/[1a2b3c4d5e6f7g8h9i0j]/g,c=>e[e.search(c)^1],e+=e)

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

R , 40 byte

function(s)chartr("0-9ja-i","ja-i0-9",s)

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

Đáng ngạc nhiên, R là khá tốt ở loại thách thức chuỗi này , bởi vì nó có trchức năng giống như trong câu trả lời Bash . Không biết tại sao nó tồn tại, nhưng tôi biết ơn vì điều đó!

MS-SQL, 71 byte

SELECT TRANSLATE(v,'1234567890abcdefghij','abcdefghij1234567890')FROM t

Hàm SQL 2017 mới TRANSLATEthực hiện thay thế ký tự riêng lẻ, vì vậy rất phù hợp cho mục đích này. Xem câu trả lời tương tự của tôi trong một thử thách trước .

Đầu vào là thông qua một bảng t có sẵn với cột varar v , theo quy tắc IO của chúng tôi . Để chỉ thay thế các chữ cái viết thường, bảng phải được tạo bằng cách sử dụng đối chiếu phân biệt chữ hoa chữ thường :

CREATE TABLE t(v varchar(max) COLLATE Latin1_General_CS_AS)

Thạch , 16 byte

⁵Øaḣ,ØDṙ1¤ċÞ⁸Ṛy)

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

Bình thường , 13 byte

Xz+jk+0_S9<GT

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

Giải trình

Xz+jk+0_S9<GT – Full program.
       _S9    – Yield [9, 8, 7, ..., 1]
     +0       – Prepend a 0.
   jk         – Join to a single string.
  +       <GT – And append the first 10 letters of the alphabet to it.
                Yields 0987654321abcdefghij.
Xz            – Transliterates the input from the above to the above reversed.

Haskell , 80 66 byte

map(!"1a2b3c4d5e6f7g8h9i0j")
e!(a:b:y)|e==a=b|e==b=a|1<2=e!y
e!_=e

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

REXX, 57 byte

#=1234567890
a='abcdefghij'
say translate(arg(1),a #,# a)

C (gcc) , 81 72 byte

Cảm ơn Giacomo Garabello cho những gợi ý.

f(char*s){for(;*s++=*s-97U<11?(*s-6)%10+48:*s-48U<11?(*s-9)%10+97:*s;);}

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

Powershell, 94 byte

-join($args|% t*y|%{if(1+($p=($s='1a2b3c4d5e6f7g8h9i0j').IndexOf($_))){$s[$p-bxor1]}else{$_}})

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

$f = {
-join($args|% t*y|%{if(1+($p=($s='1a2b3c4d5e6f7g8h9i0j').IndexOf($_))){$s[$p-bxor1]}else{$_}})
}

&$f "thisisastring1124"

Giải trình

• $args - chuỗi đối số
• $args|% t*y- mở rộng |ForEach-Object -Method ToCharArraytương đương với"$args".ToCharArray()
• ($s='1a2b3c4d5e6f7g8h9i0j').IndexOf($_)- tìm một char trong chuỗi, trả về vị trí hoặc -1 nếu không tìm thấy. Hãy để $ s lưu trữ chuỗi chứa char được ghép nối trên các vị trí lân cận khác nhau bởi bit cuối cùng: 0 + 1, 2 + 3, 4 + 5 ....
• if(1+($p=...)) - nếu vị trí được tìm thấy
• $p-bxor1 - vị trí bit xor 1

R , 107 byte

function(s){a=utf8ToInt(s);l=a>96&a<107;n=a>47&a<58;a[n]=(a[n]-9)%%10+97;a[l]=(a[l]+4)%%10+48;intToUtf8(a)}

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

Nỗ lực đầu tiên, chắc chắn là ngẫu hứng ...

Rust , 96 byte

|x|x.bytes().map(|x|match
x{49..=57=>x+48,97..=105=>x-48,48=>106,106=>48,x=>x}as
char).collect()

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

Không an toàn Unicode, nếu nó còn dài hơn nữa.

K4 , 38 byte

Giải pháp:

{(,/|x,a)(,/a:0 1_'10 11#'.Q`a`n)?x}@'

Giải trình:

Tra cứu từng ký tự trong danh sách "abcdefghij1234567890"và sau đó lập chỉ mục vào danh sách"1234567890abcdefghijX" nơi Xlà nhân vật ban đầu.

Cần tìm một cách ngắn hơn để xây dựng chuỗi ...

{(,/|x,a)(,/a:0 1_'10 11#'.Q`a`n)?x}@'
{                                  }@' / apply (@) lambda {} to each (')
                                 ?x    / lookup x in
         (                      )      / do this together
                          .Q`a`n       / index into .Q with a (gives a-z) and n (gives 0-9)
                   10 11#'             / take 10 from first list and 11 from second list
              0 1_'                    / drop 0 from first list and 1 from second list
            a:                         / save as a
          ,/                           / flatten
 (      )                              / do this together
     x,a                               / prepend x to a
    |                                  / reverse it
  ,/                                   / flatten

Tặng kem:

Một giải pháp khác cho 38 byte :

{(a,b,x)?[(b:1_11#.Q.n),a:10#.Q.a]x}@'

Yabasic , 135 byte

Đưa đầu vào từ bàn điều khiển và đầu ra cho bàn điều khiển.

Input""s$
For i=1To Len(s$)
c$=Mid$(s$,i,1)
n=asc(c$)-96
If-38>n Then?chr$(143+n+11^(n=-48));ElsIf n<11Then?n*(10>n),"";Else?c$;Fi
Next

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

Japt , 44 42 byte

V=1oA q +0+"jihgfedcba"Um@W=VaX)¦É?Vw gW:X

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

sed, 44 byte

y/1234567890abcdefghij/abcdefghij1234567890/

Một chút nhàm chán, tôi thừa nhận.

Kiểm tra:

$ echo 'thisisastring1124' | sed 'y/1234567890abcdefghij/abcdefghij1234567890/'
t89s9s1str9n7aabd