Bir sayı listesine ve eşdeğer harflerine dayanarak, bir dize girişi alın, o dizenin karakterlerini eşdeğer sayı / harfle değiştirin ve sonucu alın.

Liste

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

Giriş

thisisastring1124

Çıktı

t89s9s1str9n7aabd

kurallar

• Sayılar yalnızca küçük harflere eşittir.
• Listenin dışındaki tüm karakterler olduğu gibi bırakılacaktır.
• Giriş dizesi boşluk içermemelidir.
• Tam programa veya işleve izin verilir.
• Kod golf olduğu için en az bayt kazanır.

bash, 18 bayt

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

Çevrimiçi deneyin!

Python 3 , 76 68 bayt

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

Çevrimiçi deneyin!

Perl 5 , 17 bayt

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

Çevrimiçi deneyin!

05AB1E , 13 9 bayt

žmÁAT£J‡

Çevrimiçi deneyin!

açıklama

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

Perl 6 , 45 23 bayt

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

Çevrimiçi deneyin!

Sadece düz bir harf çevirisi regex'i.

Retina 0.8.2 , 12 bayt

T`a-j09-1`Ro

Çevrimiçi deneyin! Açıklama:

T``

Harf çevirisi gerçekleştirin.

a-j09-1

Kaynak listesi harflerdir a-j, sonra 0rakamlardır 9-1.

Ro

Hedef listesi, ters çevrilmiş kaynak listesidir, yani rakamlar 1-9, ardından 0harfler j-a.

J , 38 bayt

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

Çevrimiçi deneyin!

Python 2 , 82 78 bayt

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

Çevrimiçi deneyin!

@Ovs sayesinde -4 ile

JavaScript (ES6), 66 bayt

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

Çevrimiçi deneyin!

R , 40 bayt

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

Çevrimiçi deneyin!

Şaşırtıcı bir şekilde, R, bu tür dize mücadelesinde iyi, çünkü Bash cevabındatr olduğu gibi benzer bir işlevi var . Neden var olduğu hakkında hiçbir fikrim yok, ama bunun için minnettarım!

MS-SQL, 71 bayt

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

Yeni SQL 2017 işlevi TRANSLATEbireysel karakter değiştirme gerçekleştirdiğinden, bu amaç için idealdir. Bkz önceki meydan benim benzer bir cevap .

Girdi önceden var olan bir tablo yoluyladır t varchar sütunu ile v , bizim ES kurallarına göre . Yalnızca küçük harfleri değiştirmek için, tablo büyük / küçük harfe duyarlı bir harmanlama kullanılarak oluşturulmalıdır :

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

Jöle , 16 bayt

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

Çevrimiçi deneyin!

Pyth , 13 bayt

Xz+jk+0_S9<GT

Burada deneyin!

açıklama

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 bayt

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

Çevrimiçi deneyin!

REXX, 57 bayt

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

C (gcc) , 81 72 bayt

Öneriler için Giacomo Garabello'ya teşekkürler.

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

Çevrimiçi deneyin!

Powershell, 94 bayt

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

Test komut dosyası:

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

&$f "thisisastring1124"

açıklama

• $args - argüman dizeleri
• $args|% t*y- |ForEach-Object -Method ToCharArrayeşdeğerine kadar genişler"$args".ToCharArray()
• ($s='1a2b3c4d5e6f7g8h9i0j').IndexOf($_)- dizede bir karakter bulun, bir konum veya bulunmazsa -1 döndürür. $ S, eşleştirilmiş karakter içeren dizeyi son bite göre değişen komşu konumlarında saklar: 0 + 1, 2 + 3, 4 + 5 ....
• if(1+($p=...)) - konum bulunursa
• $p-bxor1 - konum biti x veya 1

R , 107 bayt

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

Çevrimiçi deneyin!

İlk deneme, kesinlikle geliştirilebilir ...

Pas , 96 bayt

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

Çevrimiçi deneyin!

Unicode güvenli değil, eğer daha uzun olurdu.

K4 , 38 bayt

Çözüm:

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

Açıklama:

Listedeki her karakteri arayın "abcdefghij1234567890"ve ardından orijinal karakterin "1234567890abcdefghijX"olduğu listeye dizin Xekleyin.

Dizeleri oluşturmak için daha kısa bir yol bulmamız gerekiyor ...

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

Bonus:

38 bayt için başka bir çözüm :

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

Yabasic , 135 bayt

Konsoldan girdi alır ve konsola çıktılar.

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

Çevrimiçi deneyin!

Japt , 44 42 bayt

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

Çevrimiçi deneyin!

sed, 44 bayt

y/1234567890abcdefghij/abcdefghij1234567890/

Biraz sıkıcı, itiraf ediyorum.

Test yapmak:

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