Напишіть програму, яка приймає за свій вхід рядок, що складається з символів для друку (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!". Тестуйте це тут.

Дивіться відповідь Денніса на подібне, але краще рішення з приємним поясненням.

Bash + загальні утиліти Linux, 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

Математика, 134 байти

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

Якщо функція дозволена:

Математика, 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±µ

Відносно прямий, але приємно короткий. Я, мабуть, можу покатати ще кілька персонажів з деякими іншими операторами. Кілька інших нових функцій також можуть бути використані для скорочення деяких байтів.

Ungolfed && Пояснення

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}

Онлайн тест тут .

Пітон 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"].