숫자 및 해당 문자 목록을 기반으로 문자열 입력을 사용하여 해당 문자열의 문자를 해당 숫자 / 문자로 바꾸고 결과를 출력하십시오.

명부

• 1 = a
• 2 = b
• 3 = c
• 4 = d
• 5 = 전자
• 6 = f
• 7 = g
• 8 = 시간
• 9 = 나는
• 0 = j

입력

thisisastring1124

산출

t89s9s1str9n7aabd

규칙

• 숫자는 소문자 만 해당합니다.
• 목록 외부의 모든 문자는 그대로 남아 있습니다.
• 입력 문자열에는 공백이 없어야합니다.
• 전체 프로그램 또는 기능이 허용됩니다.
• 코드 골프이기 때문에 가장 적은 바이트가 이깁니다.

bash, 18 바이트

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

온라인으로 사용해보십시오!

파이썬 3 , 76 68 바이트

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

온라인으로 사용해보십시오!

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

펄 6 , 45 23 바이트

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

온라인으로 사용해보십시오!

단순한 음역 정규식입니다.

레티 나 0.8.2 , 12 바이트

T`a-j09-1`Ro

온라인으로 사용해보십시오! 설명:

T``

음역을 수행하십시오.

a-j09-1

소스 목록은 문자 a-j, 0숫자, 숫자 9-1입니다.

Ro

대상 목록은 소스 목록 (예 : 숫자 1-9,, 0문자)이 반전 된 것 j-a입니다.

J , 38 바이트

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

온라인으로 사용해보십시오!

파이썬 2 , 82 78 바이트

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

온라인으로 사용해보십시오!

@ovs 덕분에 -4

자바 스크립트 (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은 Bash 답변 과 같은 기능을 가지고 있기 때문에 이러한 종류의 문자열 도전 tr에 적합합니다 . 왜 존재하는지 모르겠지만 감사합니다!

MS-SQL, 71 바이트

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

새로운 SQL 2017 함수는 TRANSLATE개별 문자 교체를 수행하므로이 목적에 가장 적합합니다. 이전 도전에서 비슷한 답변을 참조하십시오 .

입력은 기존의 테이블을 통해입니다 t varchar 열을 가진 V , 우리의 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.

하스켈 , 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;);}

온라인으로 사용해보십시오!

파워 쉘, 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()

온라인으로 사용해보십시오!

그것이 더 길면 유니 코드 안전하지 않습니다.

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

온라인으로 사용해보십시오!

apt , 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