根据数字及其等效字母的列表，输入字符串，用等效数字/字母替换该字符串的字符，然后输出结果。

清单

1 =一个

2 = b

3 = c

4 =天

5 = e

6 = f

7 = g

8 =小时

9 =我

0 = j

输入值

第1124章

输出量

t89s9s1str9n7aabd

规则

数字仅等效于小写字母。
列表外的任何字符都将保留原样。
输入字符串不能包含空格。
允许完整的程序或功能。
由于它是代码高尔夫球，因此最少的字节获胜。

code-golf string

— 黑努尔·安塔雷斯
source

2

欢迎来到PPCG。好挑战！

— ADAM

2

我们可以交换大写字母吗？

— ADAM

仅小写字母，大写字母将不在列表范围内。

— Noir Antares

输入内容将仅包含字母和数字，还是可能包含其他非空格字符（例如标点符号）？

— sundar-恢复莫妮卡

输入字符串可以包含除空格以外的任何其他字符，但是列表之外的任何内容在输出字符串中将保持不变。

— Noir Antares

14

bash，18个字节

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

在线尝试！

— 门把手
source

这如何获取输入/给定输出？标准输入和标准输出？

— 基金莫妮卡的诉讼

@NicHartley是的。

— 门把手

10

Python 3中，76 68个字节

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

在线尝试！

— ovs
source

7

Perl 5，17个字节

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

在线尝试！

— 唐·黑斯廷斯
source

6

05AB1E，13 9字节

žmÁAT£JÂ‡

在线尝试！

说明

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

— 艾米尼亚
source

6

Perl 6的，45的23个字节

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

在线尝试！

只是一个普通的音译正则表达式。

— 乔·金
source

1

在这里使用TR会更短一些，也不TR/1..90a..j/a..j1..90/ 必将

— Phil H

@PhilH哈，我实际上只是在搜索那个运算符！谢谢！

— 乔·金

5

视网膜0.8.2，12字节

T`a-j09-1`Ro

在线尝试！说明：

T``

执行音译。

a-j09-1

源列表是字母a-j，然后0，然后数字9-1。

Ro

目的地清单源列表颠倒，即数字1-9，然后0，然后的字母j-a。

— 尼尔
source

5

J，38个字节

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

在线尝试！

— 加伦·伊万诺夫（Galen Ivanov）
source

3

Python 2中，82 78个字节

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

在线尝试！

-4感谢@ovs

— 埃尔佩德罗
source

3

JavaScript（ES6），66个字节

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

在线尝试！

— Arnauld
source

3

R，40个字节

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

在线尝试！

出人意料的是，R在这种字符串挑战中表现tr出色，因为R 具有与Bash答案相同的功能。不知道为什么存在，但我对此表示感谢！

— 朱塞佩
source

惊人！不知道chartr（）了解正则表达式。

— snoram

@snoram不是很正则表达式；它在文档中指定“规范中支持范围，但不支持字符类和重复字符”。

— 朱塞佩

3

MS-SQL，71个字节

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

新的SQL 2017函数TRANSLATE执行单个字符替换，因此非常适合此目的。在先前的挑战中看到我的类似答案。

根据我们的IO规则，输入通过带有varchar列v的预先存在的表t进行。要仅替换小写字母，必须使用区分大小写的排序规则创建表：

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

— 布拉德
source

2

果冻，16字节

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

在线尝试！

— 暴民埃里克
source

2

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.

— Xcoder先生
source

2

Haskell，80 66字节

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

在线尝试！

— ovs
source

1

REXX，57个字节

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

— 伊德鲁格
source

1

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

在线尝试！

— 埃里克·F
source

您可以通过更改输入字符串（而不是将其打印出来putchar(...)->）删除6个字符，*s=...并通过替换*s-48U<11为“ *s<59 在线尝试”

— Giacomo Garabello

@GiacomoGarabello *s<59如果$输入的字符类似，则会中断，这就是为什么我这样做了*s-48U（[0..47]变成[-48 ..- 1]，这变成了一个大的无符号值。）因为问题没有指定是否非-数字是有效的，我接受了更为保守的解释。

— ErikF

很公平。OP最近评论说，其他所有字符均有效，但空格无效。但是，你仍然可以使用我的第一个建议

— 贾科莫Garabello

1

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存储一个字符串，该字符串在相邻的位置上包含一个成对的char，这些字符的最后一位不同：0 + 1、2 + 3、4 + 5...。
if(1+($p=...)) -如果找到位置
$p-bxor1 -位xor 1

— 疯狂的
source

不错的把戏-bxor1。

— AdmBorkBork

0

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

在线尝试！

第一次尝试，绝对可以改进...

— 数字化
source

chartr我想是你的朋友在这里。

— 朱塞佩

2

tio.run/##FYgxCsAgDAD3PiOLBhS0dOnQx0jBGgcLSXx/…那样

— Giuseppe

1

@Giuseppe：太棒了！我不知道包机功能。请张贴为您的答案，方法完全不同;）

— digEmAll

0

锈，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安全的，甚至更长。

— 康拉德·鲍罗夫斯基（Konrad Borowski）
source

0

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}@'

— 街头小贩
source

0

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

在线尝试！

— 泰勒·斯科特
source

0

Japt，44 42字节

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

在线尝试！

— 贝约佛
source

0

sed，44个字节

y/1234567890abcdefghij/abcdefghij1234567890/

我承认，这有点无聊。

测试：

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

— 库萨兰达
source

将数字转换为字母，反之亦然

清单

输入值

输出量

规则

bash，18个字节

Python 3中，76 68个字节

Perl 5，17个字节

05AB1E，13 9字节

Perl 6的，45的23个字节

视网膜0.8.2，12字节

J，38个字节

Python 2中，82 78个字节

JavaScript（ES6），66个字节

R，40个字节

MS-SQL，71个字节

果冻，16字节

Pyth，13个字节

说明

Haskell，80 66字节

REXX，57个字节

C（gcc），81 72字节

Powershell，94个字节

说明

R，107个字节

锈，96字节

K4，38个字节

Yabasic，135字节

Japt，44 42字节

sed，44个字节