Ambil string karakter biner yang dipisahkan oleh spasi, dan ubah menjadi string ASCII.

Sebagai contoh...

1001000 1100101 1101100 1101100 1101111 100000 1010111 1101111 1110010 1101100 1100100

Akan dikonversi ke ...

Hello World

String biner akan disimpan dalam variabel yang disebut s.

Ini adalah tantangan kode-golf sehingga solusi terpendek menang.

Ruby, 36 32

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

Atau 31

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

Optimalisasi berkat Chron

JavaScript (ES6) 49 55 56 64

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

Edit Menerima saran @bebe - terima kasih
Edit2 Tidak tahu tentang literal angka biner - terima kasih @kapep
Edit3 Wow 6 tidak 4 byte disimpan thx @ETHproductions

Penjelasan seperti yang diminta dalam komentar

String.replace dapat mengambil 2 argumen:

• ekspresi reguler /\d+./g: satu atau lebih digit diikuti oleh satu karakter yang berbeda - bendera g menentukan untuk mencari pola lebih dari sekali
• sebuah fungsi, di sini ditentukan dalam format panah, di mana argumen (x) akan menjadi string yang ditemukan (urutan digit akhirnya diikuti oleh spasi) dan nilai fungsi adalah apa yang diganti (dalam kasus ini, karakter tunggal dari Kode).

Perlu dicatat bahwa pada akhir string regexp cocok dengan urutan digit tanpa spasi tambahan, dalam hal ini titik cocok dengan digit terakhir. Coba '123'.match (/ (\ d +) ./) untuk memverifikasi.

(Tetap) salah satu potongan javascript paling verbose yang pernah ...
(Penugasan ke string s tidak dihitung)

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 + utilitas linux umum, 25 byte

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

penjelasan dc

• dorong 2 ke tumpukan; pop dan gunakan sebagai input radix
• dorong input string ke stack (semua nilai sekaligus)
• Tentukan makro rekursif muntuk:
  • pop, lalu cetak nilai sebagai ASCII
  • dorong kedalaman tumpukan ke tumpukan
  • tekan 0 untuk menumpuk
  • pop top 2 nilai stack; bandingkan dan panggil mmakro jika tumpukan tidak kosong
• duplikat puncak tumpukan (definisi makro)
• pop dan simpan makro untuk mmendaftar
• pop dan jalankan makro

Karena kita mendorong seluruh string biner ke stack terlebih dahulu, ketika kita memunculkan setiap nilai, kita berakhir dengan string yang dibalik. Jadi kami menggunakan revutilitas untuk memperbaikinya.

Contoh penggunaan:

$ 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)})

EDIT: Tidak melihat jawaban PowerShell lainnya. Tetapi pada dasarnya hanya ada satu cara untuk menyelesaikan ini.

C - 57 43 38/31

Versi 38 Byte:

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

Atau hanya 31 byte jika s adalah pointer:

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

Saya tidak berpikir ini persis bagaimana untuk dan sementara loop seharusnya digunakan ... tetapi berfungsi.

Pyth , 12

smCv+"0b"dPZ

Perhatikan bahwa s bukan variabel hukum dalam Pyth, jadi saya menggunakan Z sebagai gantinya.

Penjelasan:

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

Contoh:

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

kode mesin x86 pada DOS - 22 byte

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                                 |...!..|

Karena tidak ada variabel string nyata dalam kode mesin (dan khususnya, tidak ada variabel bernama " s"), saya memilih stdin sebagai input.

Input 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

Powershell ( 52 49)

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

Simpul sederhana di atas string biner dalam $ s. Namun harus memasukkan [konversi] membunuh skor saya.

EDIT: Hanya ada satu cara untuk melakukan ini di Powershell, wowie. Joey dan saya sama-sama mendapat jawaban yang sama dengan bekerja secara mandiri!

Memasukkan:

1001000 1100101 1101100 1101100 1101111 100000 1010111 1101111 1110010 1101100 1100100

Keluaran:

Hello World

Mathematica, 52 byte

Ah, nama fungsi Mathatica yang indah

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

Perl 33 32

Edit: Solusi yang diperbarui, 32.

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

Solusi sebelumnya (33):

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

atau

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

Uji:

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

Uji:

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

Penjelasan:

                  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

Golfscript - 21

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

Anda bisa mengujinya di sini .

Kerang Python  44  40 karakter

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

Terima kasih atas bantuan Griffin .

APL (15)

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

Uji:

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

Penjelasan:

• ⍎s: mengevaluasi s, mengubahnya menjadi array bilangan bulat. Array ditulis sebagai angka yang dipisahkan oleh spasi, jadi ini terbagis .
• {...}¨ : untuk setiap elemen:
  • ⍕⍵: ubah nomor kembali menjadi string
  • ⍎¨: mengevaluasi setiap digit individu, memberikan bitstring
  • 2⊥: base-2 decode, memberikan angka
• ⎕UCS: dapatkan karakter untuk setiap nomor

PHP (61)

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

Bacchus , 25 byte

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

Penjelasan:

S,' 'j pisahkan String S dengan ruang kosong dan mengubahnya menjadi sebuah blok (semacam array).

:A= dapatkan Blok sebelumnya dan asumsikan ke variabel A.

(),A¨ untuk Setiap elemen dalam A

Ö,2,10b Baca elemen saat ini (diwakili oleh Ö ) di basis 2 dan ubah menjadi basis 10.

:c dapatkan nilai sebelumnya dan cetak sebagai char

GolfScript 23

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

Tes online di sini .

C - 63

karena C tidak memiliki basis 2 converter di perpustakaan standar: tes di sini
edit: ada, aku terlalu bodoh untuk mengetahuinya

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

Jalankan Panjang Encoded Brainfuck, 49 byte

Karena tidak ada variabel di Brainfuck, saya hanya menggunakan input dan output standar saja.

Kode 32+harus ditafsirkan sebagai 32 +detik oleh penerjemah. Ganti saja secara manual jika juru bahasa Anda tidak mendukung RLE.

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

Versi yang diperluas (non-RLE): (91 byte)

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

Kode mengasumsikan bahwa EOF dikodekan sebagai 0.

Penjelasan

Tata letak berikut digunakan:

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

Di mana xbyte ASCII yang akan dicetak, aadalah karakter dari input standar dan flag1 jika aadalah spasi.

>,            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

Java 8: 60 byte

Menggunakan lambdas di Java 8 (75 byte):

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

Dan jika Anda mengizinkan impor statis (yang sebagian digunakan di sini) itu adalah (61 byte):

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

Versi kecil yang lebih pendek menggunakan for loop (60 bytes):

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

Clojure 63 (atau 57)

Implan all-Clojure:

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

Dengan Java interop:

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

Sesi 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"

QBasic, 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$

Apa? Kami tidak memiliki fungsi biner hingga desimal di sini. Lakukan sendiri!

Saya menghitung baris baru (yang saya pikir perlu untuk mendapatkan if-then-else tanpa END IF) sebagai satu byte, per posting meta ini . Saya tidak tahu apakah QB64 di Windows akan menerima file kode seperti itu atau tidak. Mungkin tidak masalah.

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));});

JavaScript 111

Ini melakukan konversi angka tanpa parseInt atau eval. Membaca string ke belakang dan menghitung bit-bit itu mengatur bit x jika itu satu. Ketika spasi ditemukan angka dikonversi ke char dan angka 0 baru dimulai untuk pengaturan bit.

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
}

Groovy 64

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

CJam, 11 byte

NS/{:~2bc}/

s bukan nama variabel hukum di CJam, jadi saya memilih N sebagai gantinya.

Cobalah online.

Contoh dijalankan

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

Bagaimana itu bekerja

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

Haskell - 48 (+13 impor (?))

Ini usaha golf pertama saya di Haskell.

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

Anda perlu mengimpor Data.Char

penggunaan (dalam 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"

Penjelasan:

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 byte

Terinspirasi oleh jawaban Trauma Digital yang sangat baik .

Golf

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

Uji

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

Hello World

Pyth, 7 byte (tidak bersaing)

smCid2c

Mengambil input sebagai string.

Cobalah!

05AB1E , 4 byte (tidak bersaing)

Disimpan 3 byte berkat @Emigna

#CçJ

Cobalah online!