인쇄 가능한 문자 (ASCII 20-7E)와 n[2,16] 의 정수로 구성된 문자열을 입력으로 사용하고 문자열에 대해 다음 수정을 수행하는 프로그램을 작성하십시오.

• 문자열의 각 문자는 ASCII 코드로 변환됩니다 (주어진 예제는 16 진수이지만 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의 답변 을 참조하십시오 .

배쉬 + 일반적인 리눅스 유틸리티, 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.

자바 스크립트 (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&]&

티 스크립트, 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

여기 사용해보십시오

실제로 작업에 가장 적합한 도구는 아닙니다. 파이썬에는 임의의 기본 변환 기능이 없으므로 직접 구현해야했습니다. 적어도 재미있었습니다. 특히 숫자보다 [마지막으로] 짧은 표현을 찾는 것보다 "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))

문자열 s 와 정수 n 을 입력으로 사용 하는 함수 k 를 작성했습니다 . 예 :

k('Hello, World!',6)

준다

 E001R"31$E

내가 해결해야 할 가장 성가신 일은 base n으로 변환 할 때 0이 나타나는 것 입니다. 두 번째 문자마다 분할 될 배열에서 이것을 제거하는 데는 많은 바이트가 필요했습니다. 이 방법을 사용하여 더 이상 바이트를 저장할 수 있는지 확실하지 않습니다.

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