ใช้สตริงของอักขระไบนารีคั่นด้วยเว้นวรรคและแปลงเป็นสตริง 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

JavaScript (ES6) 49 55 56 64

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

แก้ไขยอมรับคำแนะนำ @bebe - ขอบคุณ
Edit2ไม่ทราบเกี่ยวกับตัวอักษรตัวเลขไบนารี - ขอบคุณ @kapep
Edit3ว้าว 6 ไม่ใช่ 4ไบต์บันทึก thx @ETHproductions

คำอธิบายตามที่ร้องขอในความคิดเห็น

String.replace สามารถรับ 2 อาร์กิวเมนต์:

• นิพจน์ทั่วไป/\d+./g: หนึ่งหลักหรือมากกว่าตามด้วยอักขระอื่น - แฟล็ก g ระบุเพื่อค้นหารูปแบบมากกว่าหนึ่งครั้ง
• ฟังก์ชั่นที่ระบุไว้ที่นี่ในรูปแบบลูกศรที่อาร์กิวเมนต์ (x) จะเป็นสตริงที่พบ (ลำดับของตัวเลขในที่สุดตามด้วยช่องว่าง) และค่าของฟังก์ชั่นคือสิ่งที่ถูกแทนที่ (ในกรณีนี้ตัวละครเดียวจาก รหัส).

เป็นที่น่าสังเกตว่าในตอนท้ายของสตริงนั้น regexp ตรงกับลำดับของตัวเลขโดยไม่มีช่องว่างท้ายในกรณีนี้จุดจะตรงกับหลักสุดท้าย ลอง '123'.match (/ (\ d +) ./) เพื่อยืนยัน

(ยัง) อีกหนึ่งชิ้น verbose ของจาวาสคริปต์ที่เคย ...
(การกำหนดให้กับสตริง 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 + linux ทั่วไป utils 25 ไบต์

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

คำอธิบาย dc

• ผลัก 2 ไปที่กอง; ป๊อปและใช้เป็น Radix อินพุต
• กดสตริงป้อนเข้าเพื่อสแต็ค (ค่าทั้งหมดในครั้งเดียว)
• กำหนดแมโครแบบเรียกซ้ำmไปที่:
  • pop จากนั้นพิมพ์ค่าเป็น 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)););

หรือ 31 ไบต์เท่านั้นหาก s เป็นตัวชี้:

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

ฉันไม่คิดว่ามันจะเป็นไปได้อย่างไรและในขณะที่ลูปควรจะใช้ ... แต่ใช้งานได้

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

รหัสเครื่อง x86 บน DOS - 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

Powershell ( 52 49)

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

วนรอบง่ายกว่าสตริงไบนารีใน $ s ต้องรวม [แปลง] ฆ่าคะแนนของฉันแม้ว่า

แก้ไข: มีวิธีเดียวเท่านั้นที่จะดึงสิ่งนี้ออกใน Powershell, wowie Joey และฉันต่างก็มีคำตอบเดียวกันกับที่ทำงานอย่างอิสระมาก!

การป้อนข้อมูล:

1001000 1100101 1101100 1101100 1101111 100000 1010111 1101111 1110010 1101100 1100100

เอาท์พุท:

Hello World

Mathematica, 52 ไบต์

อาชื่อฟังก์ชันน่ารักของ Mathematica

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

Perl 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

Golfscript - 21

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

คุณสามารถทดสอบได้ที่นี่

Python shell  44  40 chars

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

ขอบคุณสำหรับความช่วยเหลือริฟฟิน

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นี้
• {... }¨: สำหรับแต่ละองค์ประกอบ:
  • ⍕⍵: เปลี่ยนตัวเลขกลับเป็นสตริง
  • ⍎¨: ประเมินแต่ละหลักของแต่ละคนให้ bitstring
  • 2⊥: ถอดรหัสฐาน 2 ให้ตัวเลข
• ⎕UCS: รับตัวอักษรสำหรับแต่ละหมายเลข

PHP (61)

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

แบคคัสขนาด 25 ไบต์

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

คำอธิบาย:

S,' 'j แยก String S ด้วยพื้นที่ว่างและแปลงเป็นบล็อก

:A= รับ Block ก่อนหน้าและยืนยันกับตัวแปร 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;}

Run Length Encoded 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

Java 8: 60 ไบต์

การใช้ lambdas ใน 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))

เวอร์ชันที่สั้นกว่าเล็กน้อยใช้สำหรับลูป (60 ไบต์):

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

Clojure 63 (หรือ 57)

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

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$

อะไร? เราไม่มีฟังก์ชั่นไบนารีถึงทศนิยมที่นี่ ทำด้วยตัวคุณเอง!

ฉันกำลังนับบรรทัดใหม่ (ซึ่งฉันคิดว่าจำเป็นต้องได้รับ if-then-else โดยไม่มีEND IF) เป็นหนึ่งไบต์ต่อเมตาโพสต์นี้ ฉันไม่รู้ว่า QB64 บน Windows จะยอมรับไฟล์โค้ดด้วยวิธีนี้หรือไม่ อาจไม่สำคัญมากนัก

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

นี่เป็นการแปลงตัวเลขโดยไม่มีการแยกวิเคราะห์หรือประเมินผล อ่านสตริงไปข้างหลังและนับบิตมันตั้งค่าบิต x ถ้ามันเป็นหนึ่ง เมื่อพบช่องว่างตัวเลขจะถูกแปลงเป็นอักขระถ่านและหมายเลข 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
}

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

Haskell - 48 (+13 การนำเข้า (?))

นี่คือความพยายามครั้งแรกของฉันในสนามกอล์ฟ Haskell

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 ไบต์ (ไม่แข่งขัน)

บันทึกแล้ว 3 ไบต์ขอบคุณ @Emigna

#CçJ

ลองออนไลน์!