공백으로 구분 된 이진 문자 문자열을 가져 와서 ASCII 문자열로 변환하십시오.

예를 들어 ...

1001000 1100101 1101100 1101100 1101111 100000 1010111 1101111 1110010 1101100 1100100

로 변환 것입니다 ...

Hello World

이진 문자열은이라는 변수에 저장됩니다 s.

이것은 코드 골프 문제이므로 가장 짧은 솔루션이 승리합니다.

루비, 36 32

s.split.map{|x|x.to_i(2).chr}*""

또는 31

s.gsub(/\w+ ?/){$&.to_i(2).chr}

Chron 덕분에 최적화

자바 스크립트 (ES6) 49 55 56 64

s.replace(/\d+./g,x=>String.fromCharCode('0b'+x))

편집 @bebe 제안을 수락-감사
Edit2 이진 숫자 리터럴에 대해 몰랐습니다-덕분에 @kapep
Edit3 Wow 6 not 4 bytes saved thx @ETHproductions

의견에서 요청한 설명

String.replace 두 가지 인수를 취할 수 있습니다.

• 정규 표현식 /\d+./g: 하나 이상의 숫자 다음에 하나의 다른 문자-g 플래그는 패턴을 두 번 이상 검색하도록 지정합니다.
• 여기서 화살표 형식으로 지정된 함수 (여기서 인수 (x)는 찾은 문자열 (공백이 뒤에 오는 숫자 시퀀스)이며 함수 값은 대체되는 값입니다 (이 경우 단일 문자의 코드).

문자열의 끝에 정규 표현식이 후행 공백없이 일련의 숫자와 일치한다는 점에 주목할 가치가 있습니다.이 경우 점은 마지막 숫자와 일치합니다. '123'.match (/ (\ d +) ./)를 시도하여 확인하십시오.

(아직도) 가장 장황한 자바 스크립트 중 하나입니다 ...
(문자열 s에 대한 계산은 계산되지 않습니다)

var s='1001000 1100101 1101100 1101100 1101111 100000 1010111 1101111 1110010 1101100 1100100'
var x=
s.replace(/\d+./g,x=>String.fromCharCode('0b'+x))

console.log(x)

Bash + Common Linux 유틸리티, 25 바이트

dc<<<2i$s[Pz0\<m]dsmx|rev

DC 설명

• 2를 스택으로 밀고; 팝 및 입력 기수로 사용
• 입력 문자열을 스택으로 푸시 (모든 값을 한 번에)
• 재귀 매크로 m를 정의 하여 다음을 수행하십시오.
  • 팝 후 ASCII로 값을 인쇄
  • 스택 깊이를 스택으로 밀어 넣기
  • 쌓으려면 0을 누르십시오
  • 팝 2 스택 값; m비어 있지 않은 경우 매크로 비교 및 호출
• 스택 상단 복제 (매크로 정의)
• 팝업하여 m등록 할 매크로 저장
• 팝업 및 매크로 실행

이진 문자열 전체를 먼저 스택으로 푸시하기 때문에 각 값을 팝하면 문자열이 반전됩니다. 따라서이 rev유틸리티를 사용하여 문제 를 해결하십시오.

사용법 예 :

$ s="1001000 1100101 1101100 1101100 1101111 100000 1010111 1101111 1110010 1101100 1100100"
$ dc<<<2i$s[Pz0\<m]dsmx|rev
Hello World
$ 

PowerShell, 49

-join(-split$s|%{[char][convert]::toint32($_,2)})

편집 : 다른 PowerShell 답변을 보지 못했습니다. 그러나이를 해결하는 방법은 본질적으로 하나뿐입니다.

C- 57 43 38/31

38 바이트 버전 :

for(int*x=s;putchar(strtol(x,&x,2)););

또는 s가 포인터 인 경우에만 31 바이트 :

while(putchar(strtol(s,&s,2)));

나는 이것이 정확히 for 및 while 루프가 사용되어야한다고 생각하지는 않지만 작동합니다.

피 이스 , 12

smCv+"0b"dPZ

s는 Pyth에서 유효한 변수가 아니므로 대신 Z를 사용했습니다.

설명:

        print(
s             sum(
m                 map(lambda d:
C                     chr(
v                         eval(
+"0b"d                         "0b"+d)),
P                     split(
Z                           Z))))

예:

=Z"<the binary string from above>"smCv+"0b"dPZ
Hello World

DOS의 x86 기계 코드-22 바이트

00000000  30 d2 b4 08 cd 21 2c 30  72 06 d0 e2 08 c2 eb f2  |0....!,0r.......|
00000010  b4 02 cd 21 eb ea                                 |...!..|

머신 코드에는 실제 문자열 변수가 없으므로 (특히 " s" 라는 이름의 변수가 없음 ) stdin에 대해 입력으로 설정했습니다.

NASM 입력 :

    org 100h

section .text

start:
    xor dl,dl
loop:
    mov ah,8
    int 21h
    sub al,'0'
    jb print
    shl dl,1
    or dl,al
    jmp loop
print:
    mov ah,2
    int 21h
    jmp start

파워 쉘 ( 52 49)

-join(-split$s|%{[char][convert]::ToInt16($_,2)})

$ s의 이진 문자열을 통한 간단한 루프. [convert]를 포함 시키면 내 점수가 사라집니다.

편집 : 실제로 Powershell에는 이것을 없애는 한 가지 방법이 있습니다. Joey와 나는 둘 다 독립적으로 작동하는 것과 거의 같은 대답을 얻었습니다!

입력:

1001000 1100101 1101100 1101100 1101111 100000 1010111 1101111 1110010 1101100 1100100

산출:

Hello World

매스 매 티카, 52 바이트

아 Mathematica의 사랑스러운 기능 이름

f=FromCharacterCode[#~FromDigits~2&/@StringSplit@#]&

펄 33 32

편집 : 업데이트 된 솔루션, 32.

say$s=~s/\d+ ?/chr oct"0b$&"/rge

이전 솔루션 (33) :

$_=$s;say map{chr oct"0b$_"}split

또는

say map{chr oct"0b$_"}split/ /,$s

테스트:

perl -E '$s="1001000 1100101 1101100 1101100 1101111 100000 1010111 1101111 1110010 1101100 1100100";$_=$s;say map{chr oct"0b$_"}split'

J (23)

u:;(#.@:("."0))&.>cut s

테스트:

   s=:'1001000 1100101 1101100 1101100 1101111 100000 1010111 1101111 1110010 1101100 1100100'
   u:;(#.@:("."0))&.>cut s
Hello World

설명:

                  cut s    NB. split S on spaces
   (          )&.>         NB. for each element
        ("."0)             NB. evaluate each character
      @:                   NB. and
    #.                     NB. convert bitstring to number
  ;                        NB. unbox each number
u:                         NB. convert to ASCII

골프 스크립트-21

' '/{1/{~}%2base}%''+

여기서 테스트 할 수 있습니다 .

파이썬 쉘  44  40 문자

''.join(chr(int(x,2))for x in s.split())

도움 Griffin 주셔서 감사합니다 .

APL (15)

⎕UCS{2⊥⍎¨⍕⍵}¨⍎s

테스트:

      s←'1001000 1100101 1101100 1101100 1101111 100000 1010111 1101111 1110010 1101100 1100100'
      ⎕UCS{2⊥⍎¨⍕⍵}¨⍎s
Hello World

설명:

• ⍎s: 평가 s하여 정수 배열로 바꿉니다. 배열은 공백으로 구분 된 숫자로 작성되므로 분할 s됩니다.
• {... }¨: 각 요소마다 :
  • ⍕⍵: 숫자를 다시 문자열로 바꿉니다.
  • ⍎¨: 각 개별 숫자를 평가하여 비트 열을 제공합니다.
  • 2⊥: base-2 디코드, 숫자 제공
• ⎕UCS: 각 숫자의 문자를 가져옵니다

PHP (61)

<?=join(array_map('chr',array_map('bindec',explode(' ',$s))))

바커스 , 25 바이트

S,' 'j:A=(Ö,2,10b:c),A¨

설명:

S,' 'j 문자열 S를 빈 공간으로 분할하여 블록 (일부 배열)으로 변환합니다.

:A= 이전 블록을 가져 와서 변수에 할당하십시오.

(),A¨ A의 각 요소에 대해

Ö,2,10bÖ기본 2 의 현재 요소 (로 표시 )를 읽고 기본 10으로 변환하십시오.

:c 이전 값을 얻고 문자로 인쇄

GolfScript 23

' '/{[{49=}/]2base}%''+

여기 온라인 테스트 .

C-63

C에는 표준 라이브러리에 기본 2 변환기가 없기 때문에 테스트하십시오
.

r;f(char*s){for(;*s;(*s|32)-32||(putchar(r),r=0))r=2*r|*s++&1;}

실행 길이 인코딩 된 Brainfuck, 49 바이트

Brainfuck에는 변수가 없으므로 표준 입력 및 출력을 대신 사용했습니다.

32+인터프리터는 코드 를 32 +초로 해석해야합니다 . 통역사가 RLE를 지원하지 않는 경우 수동으로 교체하십시오.

>,[32->+<[16-<[>++<-]>[<+>-]>-<]>[<<.[-]>>-]<,]<.

확장 (RLE 이외) 버전 : (91 바이트)

>,[-------------------------------->+<[----------------<[>++<-]>[<+>-]>-<]>[<<.[-]>>-]<,]<.

이 코드는 EOF가 0으로 인코딩 된 것으로 가정합니다.

설명

다음과 같은 레이아웃이 사용됩니다.

+---+---+------+
| x | a | flag |
+---+---+------+

x인쇄 될 ASCII 바이트는 어디에 있고 a표준 입력의 문자 이며 공백 인 flag경우 1 a입니다.

>,            Read a character a into the second cell
[             While not EOF: 
  32-           Decrease a by 32 (a -= ' ')
  >+<           Set the flag to 1 
  [             If a was not a space:
    16-           Decrease by 16 more ('0' == 32+16)
    <[>++<-]      a += 2*x
    >[<+>-]       Move it back (x = a)
    >-<           Reset the flag, it was not a space.
  ]>
  [             If a was a space (flag == 1):
    <<.[-]        Print and reset x
    >>-           Reset the flag
  ]
  <,            Read the next caracter a
]
<.            Print the last character x

자바 8 : 60 바이트

Java 8에서 람다 사용 (75 바이트) :

Arrays.stream(s.split(" ")).reduce("",(a,b)->a+(char)Byte.parseByte(b,2));

그리고 정적 가져 오기 (여기서는 일부 사용)를 허용하면 (61 바이트)입니다.

stream(s.split(" ")).reduce("",(a,b)->a+(char)parseInt(b,2))

for 루프 (60 바이트)를 사용하는 초소형 버전 :

for(String n:s.split(" ")){out.print((char)parseInt(n,2));}

클로저 63 (또는 57)

모든 Clojure impl :

(apply str(map #(char(read-string(str"2r"%)))(re-seq #"\d+"s)))

Java interop으로 :

(apply str(map #(char(Long/parseLong % 2))(.split s" ")))

REPL 세션 :

golf> (def s "1001000 1100101 1101100 1101100 1101111 100000 1010111 1101111 1110010 1101100 1100100")
#'golf/s
golf> (apply str(map #(char(read-string(str"2r"%)))(re-seq #"\d+"s)))
"Hello World"
golf> (apply str(map #(char(Long/parseLong % 2))(.split s" ")))
"Hello World"

Q 기본, 103

s$=s$+" ":FOR i=1 TO LEN(s$):c$=MID$(s$,i,1):IF c$=" "THEN n=0:r$=r$+CHR$(n)ELSE n=n*2+VAL(c$)
NEXT:?r$

뭐? 여기서는 이진 대 십진 함수가 없습니다. 너 스스로해라!

나는 이 메타 포스트END IF 당 줄 바꿈 (i가없는 if-then-else를 얻는 데 필요하다고 생각합니다 )을 1 바이트로 계산 합니다. Windows의 QB64가 코드 파일을 그런 식으로 허용할지 여부를 모르겠습니다. 아마 중요하지 않습니다.

NodeJS – 62

Buffer(s.split(' ').map(function(a){return parseInt(a,2)}))+''

PHP – 75

array_reduce(explode(' ', $b),function($a,$b){return $a.chr(bindec($b));});

자바 스크립트 111

이것은 parseInt 또는 eval없이 숫자 변환을 수행합니다. 문자열을 뒤로 읽고 비트 수를 세면 비트 x는 1입니다. 공백이 발견되면 숫자가 문자로 변환되고 비트 설정을 위해 새로운 0 숫자가 시작됩니다.

x=n=0,w='',s=' '+s
for(i=s.length;i--;){m=s[i]
if(m==1)n|=1<<x
x++
if(m==' ')w=String.fromCharCode(n)+w,n=x=0
}

그루비 64

{it.split(" ").collect{Integer.parseInt(it,2) as char}.join("")}

CJam, 11 바이트

NS/{:~2bc}/

s 는 CJam에서 유효한 변수 이름이 아니므로 대신 N 을 선택했습니다 .

온라인으로 사용해보십시오.

예제 실행

$ cjam <(echo '
> "1001000 1100101 1101100 1101100 1101111 100000 1010111 1101111 1110010 1101100 1100100"
> :N;
> NS/{:~2bc}/
> '); echo
Hello World

작동 원리

NS/            " Split N at spaces.                            ";
   {     }/    " For each chunk:                               ";
    :~         "   Evaluate each character ('0' ↦ 0, '1' ↦ 1). ";
      2b       "   Convert from base 2 array to integer.       ";
        c      "   Cast to character.                          ";

하스켈-48 (+13 수입품 (?))

하스켈에서의 첫 골프 시도입니다.

map(chr.foldl1((+).(*2)).map digitToInt)$words s

Data.Char를 가져와야합니다.

사용법 (ghci) :

Prelude> :m +Data.Char
Prelude Data.Char> let s = "1001000 1100101 1101100 1101100 1101111 100000 1010111 1101111 1110010 1101100 1100100"
Prelude Data.Char> map(chr.foldl1((+).(*2)).map digitToInt)$words s
"Hello World"

설명:

map(chr.foldl1((+).(*2)).map digitToInt)$words s
                                        $words s -- split s on spaces into a list
                         map digitToInt          -- convert each digit in input string to int
              ((+).(*2))                         -- a function that multiplies its first 
-- argument by 2, then adds the second argument
        foldl1((+).(*2)).map digitToInt          -- fold the above over the list of ints: 
-- in other words this is a function that reads strings as binary and gives the value as int
   (chr.foldl1((+).(*2)).map digitToInt)         -- cast to character
map(chr.foldl1((+).(*2)).map digitToInt)$words s -- map our function over the list of words

GNU Sed, 19 바이트

훌륭한 @Digital Trauma 답변에서 영감을 얻었습니다 .

골프

s/\w*/dc -e2i&P;/eg

테스트

echo 1001000 1100101 1101100 1101100 1101111 100000 1010111 1101111 1110010 1101100 1100100|\
sed 's/\w*/dc -e2i&P;/eg'

Hello World

Pyth, 7 바이트 (비경쟁)

smCid2c

입력을 문자열로받습니다.

시도 해봐!

05AB1E , 4 바이트 (비경쟁)

@Emigna 덕분에 3 바이트 절약

#CçJ

온라인으로 사용해보십시오!