ขึ้นอยู่กับรายการของตัวเลขและตัวอักษรที่เทียบเท่ากันใช้อินพุตสตริงแทนที่อักขระของสตริงนั้นด้วยตัวเลข / ตัวอักษรและผลลัพธ์ผลลัพธ์ที่เทียบเท่ากัน

รายการ

• 1 = a
• 2 = b
• 3 = c
• 4 = d
• 5 = e
• 6 = f
• 7 = g
• 8 = ชม
• 9 = ฉัน
• 0 = j

อินพุต

thisisastring1124

เอาท์พุต

t89s9s1str9n7aabd

กฎระเบียบ

• ตัวเลขเทียบเท่ากับตัวอักษรตัวพิมพ์เล็กเท่านั้น
• ตัวละครใด ๆ นอกรายการจะถูกทิ้งไว้ตามที่เป็น
• สตริงอินพุตต้องไม่มีช่องว่าง
• อนุญาตให้ใช้โปรแกรมหรือฟังก์ชั่นเต็มรูปแบบได้
• เนื่องจากเป็น code-golf ไบต์ที่น้อยที่สุดจึงชนะ

ทุบตี, 18 ไบต์

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

ลองออนไลน์!

Python 3 , 76 68 ไบต์

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

ลองออนไลน์!

Perl 5 , 17 ไบต์

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

ลองออนไลน์!

05AB1E , 13 9 ไบต์

žmÁAT£J‡

ลองออนไลน์!

คำอธิบาย

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

Perl 6 , 45 23 ไบต์

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

ลองออนไลน์!

เพียง regex การทับศัพท์ธรรมดา

เรติน่า 0.8.2 , 12 ไบต์

T`a-j09-1`Ro

ลองออนไลน์! คำอธิบาย:

T``

ทำการทับศัพท์

a-j09-1

รายการมาเป็นตัวอักษรa-jแล้วแล้วตัวเลข09-1

Ro

รายการปลายทางเป็นรายการที่มาตรงกันข้ามคือตัวเลข1-9แล้วแล้วตัวอักษร0j-a

J , 38 ไบต์

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

ลองออนไลน์!

Python 2 , 82 78 ไบต์

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

ลองออนไลน์!

-4 ด้วย @ovs ขอบคุณ

JavaScript (ES6), 66 ไบต์

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

ลองออนไลน์!

R , 40 ไบต์

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

ลองออนไลน์!

น่าแปลกที่ R คือดีในชนิดของสตริงท้าทายเพราะมีtrฟังก์ชั่นเหมือนเช่นเดียวกับในคำตอบทุบตี ไม่รู้เลยว่าทำไมมันถึงมีอยู่ แต่ฉันรู้สึกขอบคุณมัน

MS-SQL, 71 ไบต์

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

ฟังก์ชัน SQL 2017 ใหม่TRANSLATEดำเนินการแทนที่อักขระแต่ละตัวดังนั้นจึงเหมาะอย่างยิ่งสำหรับวัตถุประสงค์นี้ ดูคำตอบที่คล้ายกันของฉันในความท้าทายก่อน

การป้อนข้อมูลผ่านทางตารางที่มีอยู่ก่อนทีกับคอลัมน์ varchar วี , ต่อกฎ IO ของเรา หากต้องการแทนที่อักษรตัวพิมพ์เล็กเท่านั้นคุณต้องสร้างตารางโดยใช้การเปรียบเทียบตามตัวพิมพ์เล็กและตัวพิมพ์ใหญ่:

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

เยลลี่ขนาด 16 ไบต์

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

ลองออนไลน์!

Pyth , 13 ไบต์

Xz+jk+0_S9<GT

ลองที่นี่!

คำอธิบาย

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 ไบต์

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

ลองออนไลน์!

REXX, 57 ไบต์

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

C (gcc) , 81 72 ไบต์

ขอบคุณ Giacomo Garabello สำหรับคำแนะนำ

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

ลองออนไลน์!

Powershell, 94 ไบต์

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

สคริปต์ทดสอบ:

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

&$f "thisisastring1124"

คำอธิบาย

• $args - สตริงอาร์กิวเมนต์
• $args|% t*y- ขยายเป็น|ForEach-Object -Method ToCharArrayเทียบเท่า"$args".ToCharArray()
• ($s='1a2b3c4d5e6f7g8h9i0j').IndexOf($_)- หาถ่านในสตริงส่งกลับตำแหน่งหรือ -1 ถ้าไม่พบ ให้ $ s เก็บสตริงซึ่งบรรจุถ่านที่จับคู่กับตำแหน่งเพื่อนบ้านที่แตกต่างกันไปตามบิตสุดท้าย: 0 + 1, 2 + 3, 4 + 5 ....
• if(1+($p=...)) - หากพบตำแหน่ง
• $p-bxor1 - ตำแหน่งบิต xor 1

R , 107 ไบต์

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

ลองออนไลน์!

ความพยายามครั้งแรก, แก้ไขได้แน่นอน ...

สนิม 96 ไบต์

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

ลองออนไลน์!

ไม่ปลอดภัยจาก Unicode หากเป็นไปได้จะนานกว่า

K4 , 38 ไบต์

วิธีการแก้:

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

คำอธิบาย:

ค้นหาอักขระแต่ละตัวในรายการ"abcdefghij1234567890"แล้วสร้างดัชนีลงในรายการ"1234567890abcdefghijX"ที่Xเป็นอักขระดั้งเดิม

ต้องการหาวิธีที่สั้นกว่าในการสร้างสตริง ...

{(,/|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

โบนัส:

วิธีแก้ปัญหาอื่นสำหรับ38 ไบต์ :

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

Yabasic , 135 ไบต์

รับอินพุตจากคอนโซลและเอาต์พุตไปยังคอนโซล

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

ลองออนไลน์!

Japt , 44 42 ไบต์

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

ลองออนไลน์!

sed, 44 ไบต์

y/1234567890abcdefghij/abcdefghij1234567890/

น่าเบื่อนิดหน่อยฉันยอมรับ

การทดสอบ:

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