编写一个程序，将包含可打印字符（ASCII 20-7E）和n[2,16]中的整数的字符串作为输入，并对字符串进行以下修改。

• 字符串中的每个字符都将转换为其ASCII码（给出的示例为十六进制，但基数10也可以接受）。
• ASCII码将转换为基数n并串联在一起。
• 新字符串将每隔一个字符分割一次。如果有奇数个字符，则最后一个字符将被完全删除。
• 打印的ASCII代码（以16为基数）被转换回其字符，而非打印的ASCII代码被删除。
• 结果字符串被打印出来。

测试用例

输入项

Hello, World!
6

脚步

Hello, World!
48 65 6C 6C 6F 2C 20 57 6F 72 6C 64 21
2002453003003031125222330331030024453
20 02 45 30 03 00 30 31 12 52 22 33 03 31 03 00 24 45

该程序的输出为 E001R"31$E。

这是代码高尔夫球，因此适用标准规则。以字节为单位的最短代码获胜。

Pyth-22个字节

希望能打更多的球，非常简单。

sfq3l`TmCid16csjRQCMz2

在这里在线尝试。

CJam，33个字节

q~:i\fb:~0+2/W<Gfb:c' ,-'ÿ),127>-

以形式输入6 "Hello, World!"。在这里测试。

请参阅Dennis的答案以得到类似但更好的解决方案，并带有很好的解释。

Bash +通用Linux utils，118

printf %s "$1"|xxd -p|sed -r "s/../\U& /g;y/ /n/;s/^/dc -e$2o16i/e;s/../& /g;s/ .$//;"|xxd -rp|sed 's/[^[:print:]]//g'

CJam，24个字节

l:irifbe_2/{Gbc',32>&}/

请注意，有一个DEL字符（0x7F的）之间'和,。在CJam解释器中在线尝试。

怎么运行的

l:i                     Read a line from STDIN and cast each char to integer. 
   ri                   Read another integer (base) from STDIN.
     fb                 Convert each integer from line 1 to that base.
       e_2/             Flatten and split into chunks of length 2.
                        If the last chunk has only one element, it will get
                        converted into a control character, which will be
                        removed later.
          {         }/  For each digit pair:
           Gb             Convert the pair from base 16 to integer.
             c            Cast to character.
              ',          Push the string of ASCII characters up to '~'.
                32>       Remove the first 32 (control characters).
                   &      Intersect.

JavaScript（ES6），137 147

使用JavaScript中最详细的功能

f=(s,b)=>alert(s.replace(/./g,x=>x.charCodeAt().toString(b)).match(/../g).map(x=>(x=String.fromCharCode('0x'+x))<='~'&x>' '?x:'').join``)

// Just for test purpose, redefine alert()
alert=x=>document.write('<pre>'+x+'</pre>')

f('Hello, World!',6)
f('PORK',3)

朱莉娅118字节

f(s,n)=join(map(i->(c=string(Char(parse(Int,i,16))))^isprint(c),matchall(r"..",join(map(i->base(n,Int(i)),[s...])))))

取消高尔夫：

function f(s::AbstractString, n::Integer)
    # Construct an array of ASCII codes in base n
    v = map(i -> base(n, Int(i)), [s...])

    # Join into a string and get all pairs, truncating
    # to an even length
    m = matchall(r"..", join(v))

    # Parse each pair as an integer in base 16, get the
    # character associated with that code point, convert
    # to a string, and include if it's printable
    x = map(i -> (c = string(Char(parse(Int, i, 16)))^isprint(c), m)

    # Join as a string and return
    return join(x)
end

Mathematica，134个字节

Print@FromCharacterCode@Select[#~FromDigits~16&/@StringPartition[""<>ToCharacterCode@InputString[]~IntegerString~Input[],2],31<#<127&]

如果允许功能：

Mathematica，112个字节

FromCharacterCode@Select[#~FromDigits~16&/@StringPartition[""<>ToCharacterCode@#~IntegerString~#2,2],31<#<127&]&

TeaScript，23个字节

TeaScript是用于高尔夫的JavaScript

£lc¡T(y©K(2)ßC(P(l,16±µ

相对简单明了但令人愉快的简短。我可能可以和更多的操作员一起打高尔夫球。其他一些新功能也可以用来减少一些字节。

取消&&说明

x.l(#
    l.c().T(y)
).K(2)
.m(#
    C(
      P(l,16)
    )
).j``

红宝石92

->s,n{o=''
s.chars.map{|x|x.ord.to_s n}.join.scan(/../).map{|x|x>?2&&x<?8&&o<<x.to_i(16)}
o}

在这里在线测试。

Python 2，174字节

def J(a,b,i=0):
 h=r=''
 B=lambda n,b:n*'x'and B(n/b,b)+chr(48+n%b+7*(n%b>9))
 for c in a:h+=B(ord(c),b)
 while i<len(h):v=int(h[i:i+2],16);r+=chr(v)*(31<v<127);i+=2
 print r

在这里尝试

并不是真正的最佳工具。由于Python没有转换为任意基数的函数，因此我必须实现自己的函数。至少这很有趣-特别是找到了一个比[]短的数字表达式"0123456789ABCDEF"[n%b]。为了一次遍历两个字符，我发现while循环比功能方法略短。

完整程序为181个字节：

B=lambda n,b:n*'x'and B(n/b,b)+chr(48+n%b+7*(n%b>9))
a=raw_input()
b=input()
h=r=''
for c in a:h+=B(ord(c),b)
i=0
while i<len(h):v=int(h[i:i+2],16);r+=chr(v)*(31<v<127);i+=2
print r

MATLAB，103字节

function k(s,n),b=dec2base(s,n)';b(~cumsum(b-'0',1))='';c=base2dec(textscan(b,'%2c'),16)';char(c(c>31))

我编写了一个函数k，该函数采用字符串s和整数n作为输入。例如：

k('Hello, World!',6)

给

 E001R"31$E

我必须解决的最烦人的事情是在转换为基数n时出现零。将它们从要在第二个字符之后拆分的数组中取出要花费很多字节。不知道是否可以使用这种方法保存更多的字节。

PHP-286字节

将字符串放入$s，将整数放入$b。

<?php $s=$_GET["s"];$b;$m="array_map";echo implode($m(function($v){return ctype_print($v)?$v:"";},$m("chr",$m("hexdec",str_split(strlen(implode($a=$m(function($v){global$b;return base_convert($v,16,$b);},$m("dechex",$m("ord",str_split($s))))))%2==1?substr(implode($a),0,-1):$a,2)))));?>

将值传递给GET["s"]。