Napisz program, który pobiera jako ciąg wejściowy ciąg znaków składający się z drukowalnych znaków (ASCII 20-7E) i liczbę całkowitą nw [2,16] i wykonuje następującą modyfikację ciągu.

• Każdy znak w ciągu jest konwertowany na kod ASCII (podane przykłady są w systemie szesnastkowym, chociaż podstawa 10 jest również dopuszczalna).
• Kody ASCII są konwertowane na bazę ni łączone razem.
• Nowy ciąg znaków jest dzielony co drugi znak. Jeśli jest nieparzysta liczba znaków, ostatni znak jest całkowicie usuwany.
• Drukowanie kodów ASCII (w bazie 16) jest konwertowane z powrotem na ich znaki, natomiast niedrukowalne kody ASCII są usuwane.
• Powstały ciąg jest drukowany.

Przypadek testowy

Wkład

Hello, World!
6

Kroki

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

Dane wyjściowe tego programu to E001R"31$E.

To jest kod golfowy, więc obowiązują standardowe zasady. Najkrótszy kod w bajtach wygrywa.

Pyth - 22 bajty

Mam nadzieję na golfa o wiele więcej, całkiem proste.

sfq3l`TmCid16csjRQCMz2

Wypróbuj online tutaj .

CJam, 33 bajty

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

Pobiera dane wejściowe w formularzu 6 "Hello, World!". Sprawdź to tutaj.

Zobacz odpowiedź Dennisa na podobne, ale lepsze rozwiązanie z dobrym wyjaśnieniem.

Bash + wspólne narzędzia 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 bajty

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

Zauważ, że pomiędzy 'i ,. Występuje znak DEL (0x7F) . Wypróbuj online w interpretatorze CJam .

Jak to działa

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

Korzystanie z najbardziej szczegółowych funkcji dostępnych w 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)

Julia, 118 bajtów

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...])))))

Nie golfowany:

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 bajty

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

Jeśli funkcja jest dozwolona:

Mathematica, 112 bajtów

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

TeaScript, 23 bajty

TeaScript to JavaScript do gry w golfa

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

Stosunkowo prosty, ale zachwycająco krótki. Prawdopodobnie mogę zagrać w golfa o kilka innych postaci z kilkoma innymi operatorami. Można także użyć kilku innych nowych funkcji do zmniejszenia niektórych bajtów.

Niegolfowane i objaśnienia

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

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

Test online tutaj .

Python 2, 174 bajty

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

Wypróbuj tutaj

Niezupełnie najlepsze narzędzie do pracy. Ponieważ Python nie ma funkcji konwersji do arbitralnej bazy, musiałem zaimplementować własną. To była co najmniej zabawna - szczególnie znalezienie [nieznacznie] krótszego wyrazu dla cyfr niż "0123456789ABCDEF"[n%b]. W przypadku iteracji więcej niż dwóch znaków naraz, whilepętla była nieco krótsza niż podejście funkcjonalne.

181 bajtów jako pełny program:

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 bajty

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

Napisałem funkcję k, która przyjmuje ciąg s oraz liczbę całkowitą n jako dane wejściowe. na przykład:

k('Hello, World!',6)

daje

 E001R"31$E

Najbardziej irytującą rzeczą, nad którą musiałem się obejść, jest wyświetlanie zer wiodących podczas konwersji na bazę n . Usunięcie ich z tablicy, która miała zostać podzielona po co 2 znaku, kosztuje sporo bajtów. Nie jestem pewien, czy można zapisać więcej bajtów przy użyciu tego podejścia.

PHP - 286 bajtów

Wprowadź ciąg $si liczbę całkowitą $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)))));?>

Przekaż wartość do GET["s"].