ข้อความ Arecibo เป็นข้อความวิทยุระหว่างดวงดาวปี 1974 ซึ่งมีข้อมูลพื้นฐานเกี่ยวกับมนุษยชาติและโลกที่ส่งไปยังกระจุกดาวทรงกลม M13 ด้วยความหวังว่าหน่วยข่าวกรองต่างดาวอาจได้รับและถอดรหัส ... ข้อความประกอบด้วยเลขฐานสอง 1,679 ประมาณ 210 ไบต์ ...

เลือกหมายเลข 1,679 เนื่องจากเป็น semiprime (ผลิตภัณฑ์ของจำนวนเฉพาะสองหมายเลข) ที่จะจัดเรียงเป็นแถว 73 แถวโดย 23 คอลัมน์ การจัดเรียงทางเลือก 23 แถวคูณ 73 คอลัมน์สร้างชุดอักขระที่ไม่สามารถเข้าใจได้ (เช่นเดียวกับรูปแบบ X / Y อื่น ๆ ทั้งหมด)

นี่คือข้อความที่เพิ่มสีเพื่อเน้นส่วนต่าง ๆ การส่งสัญญาณไบนารีจริงไม่มีข้อมูลสี

ที่มา: Wikipedia

งานของคุณคือการส่งออกข้อความ Arecibo ในการจัดเรียง 23x73 ที่แน่นอนที่แสดงในภาพ รูปแบบเอาต์พุตใด ๆ เหล่านี้ยอมรับได้:

• ข้อความโดยใช้อักขระหนึ่งตัวสำหรับหนึ่งตัวและอีกหนึ่งตัวเป็นศูนย์ (ใช้กฎปกติสำหรับการแยกแถว)
• อาร์เรย์ 2 มิติของค่าที่แตกต่างสองค่า
• รูปภาพขนาด 23x73 สองสีที่ต่างกัน
• กระแสรายการต่อเนื่อง 1679 รายการของค่าสองค่าที่แตกต่าง (เช่นรูปแบบใด ๆ ข้างต้น แต่แบนราบ)
• จำนวนเต็ม 1679 บิต ระบุลำดับบิตและไบต์ (endianness) ในโซลูชันของคุณ

เพื่อความสะดวกของคุณนี่คือรุ่นคัดลอกวาง (เช่นเอาท์พุทตัวอย่างในรูปแบบข้อความ):

00000010101010000000000
00101000001010000000100
10001000100010010110010
10101010101010100100100
00000000000000000000000
00000000000011000000000
00000000001101000000000
00000000001101000000000
00000000010101000000000
00000000011111000000000
00000000000000000000000
11000011100011000011000
10000000000000110010000
11010001100011000011010
11111011111011111011111
00000000000000000000000
00010000000000000000010
00000000000000000000000
00001000000000000000001
11111000000000000011111
00000000000000000000000
11000011000011100011000
10000000100000000010000
11010000110001110011010
11111011111011111011111
00000000000000000000000
00010000001100000000010
00000000001100000000000
00001000001100000000001
11111000001100000011111
00000000001100000000000
00100000000100000000100
00010000001100000001000
00001100001100000010000
00000011000100001100000
00000000001100110000000
00000011000100001100000
00001100001100000010000
00010000001000000001000
00100000001100000000100
01000000001100000000100
01000000000100000001000
00100000001000000010000
00010000000000001100000
00001100000000110000000
00100011101011000000000
00100000001000000000000
00100000111110000000000
00100001011101001011011
00000010011100100111111
10111000011100000110111
00000000010100000111011
00100000010100000111111
00100000010100000110000
00100000110110000000000
00000000000000000000000
00111000001000000000000
00111010100010101010101
00111000000000101010100
00000000000000101000000
00000000111110000000000
00000011111111100000000
00001110000000111000000
00011000000000001100000
00110100000000010110000
01100110000000110011000
01000101000001010001000
01000100100010010001000
00000100010100010000000
00000100001000010000000
00000100000000010000000
00000001001010000000000
01111001111101001111000

หากภาษาของคุณมี Buildin สำหรับข้อความ Arecibo คุณไม่สามารถใช้ builtin นั้นได้

โชคดี!

อัปเดต: ฉันยอมรับคำตอบ 05AB1E เนื่องจากเป็นคำตอบแรกที่สั้นกว่าข้อความต้นฉบับ อย่าปล่อยให้สิ่งนั้นห้ามคุณจากโซลูชันใหม่

อัปเดต 2019-09-09: คำตอบที่ยอมรับถูกย้ายไปยังคำตอบ 05AB1E ใหม่เนื่องจากคำตอบก่อนหน้านี้ล้าสมัยแล้ว 05AB1E จุดเดียวกันจะไปเป็นการอัปเดตก่อนหน้า โซลูชั่นใหม่ยังยินดีต้อนรับ

05AB1E , 182 ไบต์

•sv¯ö¨₁ÿ.ÛïžôΔ¨γ_Ígv…=Bм„Ð.(ܦi´…ε±G½0^/₃öRÛž¼¤"āêL!ˆ6‘Gā܇ðв₁÷Ã7€₂䬂Cć¨g¾†@÷[_-68¯a∍iG*6ÆîÆ;>éjζãÎÂ+ºžnî¼ć'(ÝÞΔ‹∞ÉݹÕ5λ₆*a|§oÄmôæ¨;—:hž¥ð¢ocË'¨%¡4Ćáß©ìća;FÁ?iˆèεƒʒ•Ž6–FD4‰`3ÊD?i-

ลองออนไลน์! (ใช้1สำหรับ 0 และ01 ตามที่อนุญาตโดยคำถาม)

ลองออนไลน์! (5 ไบต์นานขึ้น0สำหรับ 0 และ11 เพิ่มบรรทัดใหม่เพื่อให้สามารถอ่านได้)

รหัสส่วนใหญ่เป็นค่าคงที่จำนวนเต็มฐาน-255 N ส่วนที่เหลือเป็นตัวถอดรหัสระบบตัวเลขแบบไม่สมมาตรโดยใช้ความน่าจะเป็น hardcoded ที่ 75% / 25% (ความถี่ที่แท้จริงของ 0 คือ 76.35% ซึ่งใกล้เคียงกับ 75% เลยทีเดียว จะบันทึกเพียง 1.2 บิตในเพย์โหลดในขณะที่ดีและ 75% รอบช่วยให้เราประหยัดหลายไบต์ในตัวถอดรหัส)

Ž6–F                  # repeat the following 1679 times:
    D                 #  duplicate N
     4‰`              #  divmod 4: pushes N / 4, N % 4 on the stack
        3Ê            #  is N % 4 != 3 ? (boolean 1 or 0)
          D?          #  print a copy
            i-        #  if it's 1, subtract: N = N - (N / 4)
                      #  (otherwise, N = N / 4, since that's the top of the stack)

นี่คือตัวเข้ารหัส ANS ที่สร้างค่าคงที่: ลองออนไลน์!

Î                          # start from N = 0
 Rv         ]              # for each bit in the reversed input:
   4*                      #  N *= 4
     yi                    #  if the bit is 1:
       3+                  #   N += 3
         ë                 #  else:
          3÷               #   N /= 3 (integer division)
             ₅B'•.ø        # compress N as base-255

05AB1E , 215 210 200 ไบต์

บันทึก 15 ไบต์ขอบคุณMagic Octopus Urn

•cOž¤4é57ñΛ\Ö₃BαöĀíL½₅üBdoÙRθLγ¨G×Tćú$G(˜ƒ¦!€R»SDrµCnJ†d∊ζ·<8‡T@|‹ï=BζćósxG\ÙÎ$¿o₁5/ÔŸÇBûXé-”a::Ž]°∊y;ζ]MÜβ‘иL”β{üÃÇíäc€÷›ÎU=}¨иaŸdY`»¾ÚUβ:ô©¦β†₅DGŠβ3Jêθ,äá!ícqšVÖ›lÈΣ¯pε €êʃDpÙ/¬Žλ8:ãÿ3=€.Þć•3BY¾4×:

ลองออนไลน์! หรือมีการจัดรูปแบบเพิ่มเติม

ฐาน-255 เข้ารหัสสตริง trinary กับการเกิดขึ้นของแทนที่ด้วย00002

Java, 688 678 590 379 361 ไบต์

ส่งคืนสตริง

n->new java.math.BigInteger("in95mzupnpa2r0khpoepyql6ioqyn413avucdtfay6indx4wh9dehe3sn18klobtf4z9g9q17umqmwpegr2khb5eqinn7azl4jpfp2a8eui0xfrx5qwrou6gd65jh4ge3ls14k5lu7qrvmg6942ms29u5rb8fa6yrdhfoh5zoi9bdi7uh5ig0u0ff9kounth8sh357x7qox4m3oqviqsbrvakonbka4ahp21bgzi5v1akzzuqoncszhpabbru9q1uo2g11zr73iuyiqr5ikr69zn7cdv7e1lhd6ese9",36).toString(3).replace("2","0000")

-10 bytes โดยคืนค่า raw raw (คำตอบเก่า)
-88 bytes โดยใช้ฐาน 10 numerics (ขอบคุณ @ceilingcat!)
-211 bytes (ฉันรู้ว่ามันสามารถ golfed ได้!) โดยใช้ BigInteger เข้ารหัส 36 ฐาน (ขอบคุณ @ JollyJoker !)
-18 ไบต์โดยใช้จำนวนเต็มที่เข้ารหัสที่แตกต่างกัน (ขอบคุณอีกครั้ง @JollyJoker)

ลองออนไลน์!

คำอธิบาย:

n->new java.math.BigInteger("base36 string",36) // Decode the base-36 integer.
   .toString(3)                                 // Re-encode as ternary
   .replace("2","0000")                         // Replace 2 with "0000"
                                                // Implicit return

เยลลี่ , 213 ไบต์

“H²ɓ¶Ṡḷ€ẹ]ƒf*ḳḢ&ƁṇOḥ{ḄṫwỊ+oLạʋߢH9¢¹÷ỴɗÇ⁶ƲƙæḊẋ3³=1!VƇƁ'D⁺3Ỵɱ©⁵%fȯez#ƈjƒżṆo.ZF⁶ċṢ⁶ọṛb9Ȯƒd?ƁUĠt4ẇ,ḞġƒµƭfʠƁP§÷øȤŻPɲẋ(¢ß¢(⁽3¶ṙėɗy@ṁYȮL~e⁷ƤĊ§nỊṅµṠ°@7ẠB>Ġ⁻İ}uy¡½:esOpḢt}qS©HÞṬĖṛṇḣ9÷;ESḢ,Ẉ^ṙpƲ©tṃwçnẒṆ¡⁻Jıƒị£-&Ɱ*ẋʂżoȯÑḢɼ’

ลองออนไลน์!

ฉันเล่นด้วยการเข้ารหัส Huffman แต่การปรับปรุงขนาดข้อมูลนั้นเกินดุลโดยรหัสพิเศษ ดังนั้นนี่เป็นเพียงเวอร์ชันเข้ารหัส 250 ฐานของเอาต์พุตที่ต้องการ เอาท์พุทประกอบด้วยจำนวนเต็มที่เมื่อถอดรหัสเป็นฐานทางชีวภาพ 2 จะให้ผล 1D รายการ 1 วินาทีและ 2 วินาที ขอบคุณ @Emigna ที่ชี้ให้เห็นการเปลี่ยนแปลงในกฎ

ลองออนไลน์ - ด้วยการถอดรหัสเพิ่มเติมเพื่อแสดงผลลัพธ์!

หากต้องการเข้ารหัสแบบไบนารี่แบบทั่วไปมากขึ้นนี่คือสิ่งที่เข้ารหัสการแทนค่าจำนวนเต็มของข้อความไบนารีแบบกลับด้าน บิตที่สำคัญที่สุดของจำนวนเต็มแสดงถึงจุดเริ่มต้นของข้อความ

Brainfuck, 2360 2008 1938 ไบต์

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

ลองออนไลน์!

ฉันจะเล่นกอล์ฟนี้ต่อไปในไม่ช้า

Deadfish ~ , 1115 1088 1084 bytes

oooooo{i}ooo{d}iod{o}{i}c{d}ooiodoiodoooooiodoiodoooooooiodoo{i}c{ii}is{iiii}doooio{{{d}}}oioodooiodo{i}coooooooo{d}o{{i}}oo{{d}i}c{d}{oo}ooo{i}c{d}{o}ooioodooooooooo{i}c{d}{o}ioodoiodooooooooo{i}c{d}{o}ioodoiodooooooooo{i}c{d}oooooooooiodoiodoiodooooooooo{i}c{d}oooooooooiooooodooooooooo{i}c{d}{oo}ooo{i}c{d}ioodooooiooodoooioodooooioodooo{i}c{d}iod{o}oooioodooiodoooo{i}c{d}ioodoiodoooioodoooioodooooioodoiodo{i}c{d}iooooodoiooooodoiooooodoioooood{i}c{d}{oo}ooo{i}c{d}oooiod{o}oooooooiodo{i}c{d}{oo}ooo{i}c{d}ooooiod{o}oooooooiod{i}c{d}ioooood{o}oooioooood{i}c{d}{oo}ooo{i}c{d}ioodooooioodooooiooodoooioodooo{i}c{d}iodoooooooiodoooooooooiodoooo{i}c{d}ioodoiodooooioodoooiooodooioodoiodo{i}c{d}iooooodoiooooodoiooooodoioooood{i}c{d}{oo}ooo{i}c{d}oooiodooooooioodoooooooooiodo{i}c{d}{o}iood{o}o{i}c{d}ooooiodoooooiood{o}iod{i}c{d}iooooodoooooioodooooooioooood{i}c{d}{o}iood{o}o{i}c{d}ooiodooooooooiodooooooooiodoo{i}c{d}oooiodooooooioodoooooooiodooo{i}c{d}ooooioodooooioodooooooiodoooo{i}c{d}ooooooioodoooiodooooioodooooo{i}c{d}{o}ioodooioodooooooo{i}c{d}ooooooioodoooiodooooioodooooo

ลองออนไลน์!

หากใครมีความอดทนที่จะตีกอล์ฟนี้ต่อไปฉันขอคำนับคุณล่วงหน้า : P

-27 ไบต์โดยการพิมพ์ 10s และ 100s ในตำแหน่งที่เหมาะสม
-4 ไบต์โดยการพิมพ์สามพันและหนึ่ง 1001 ในบรรทัดที่ 3

Piet , 1763 codels

เอาต์พุตสตรีม 0s และ 1s (ไม่มีการขึ้นบรรทัดใหม่)

Codel ขนาด 1:

Codel size 4 เพื่อการดูที่ง่ายขึ้น:

คำอธิบาย

• ขั้นแรกให้กดค่า Sentinel เป็น -1 ลงในสแต็ก
• จากนั้นกดข้อความ Arecibo ตามลำดับย้อนกลับ (เนื่องจากเป็นสแต็ก) โดยใช้การเข้ารหัสแบบความยาวรัน
• สุดท้ายสลับกันระหว่างสองลูปหนึ่งศูนย์พิมพ์และคนอื่น ๆ พิมพ์
  • ตัวนับลูปคือค่าสแต็กปัจจุบันลดลงจนกว่าจะถึงศูนย์ซึ่งจะถูกยกเลิกและเราจะสลับไปที่ลูปอื่น
  • ระหว่าง zeroes-loop และ ones-loop ให้ตรวจสอบค่า Sentinel เพื่อออกหากพบ

หมายเหตุ

โปรแกรมดังต่อไปนี้เส้นทางเกลียวตามเข็มนาฬิกาจากซ้ายบนเข้าสู่ศูนย์กลาง บล็อกสีดำกระจัดกระจายที่ติดตามคร่าวๆคือการควบคุมการไหล นี่คือร่องรอยจาก NPiet

ฉันได้ทำมาตั้งแต่วันที่ความท้าทายนี้เพิ่มขึ้น แต่ใช้เวลาเล็กน้อยเพื่อให้ข้อความ "เขียน" ในภาพ! ฉันเขียนลูปสุดท้ายและค่า Sentinel เป็นอันดับแรกจากนั้นสร้างข้อความจากกึ่งกลางด้านนอก (เนื่องจาก Piet เริ่มต้นการดำเนินการจากด้านบนซ้ายเสมอฉันคาดว่าจะต้องสลับและหมุนภาพไปรอบ ๆ เพื่อหลีกเลี่ยงช่องว่างส่วนเกิน แต่พอดีอย่างสมบูรณ์!)

ความจริงแล้วสนุก: การเข้ารหัสแบบ Run-length ใน Piet ไม่ได้ช่วยประหยัดพื้นที่ ใช้n codels ของสีเดียวเพื่อดันค่าnลงบนสแต็กหรือn codels ของสีที่ต่างกันเพื่อดัน 1s จำนวนมากลงบนสแต็ก ดังนั้นมันจึงเป็นโคเดอร์จำนวนเท่ากัน แต่ตัวเลขที่ใหญ่กว่าที่ RLE ให้หมายถึงคุณสามารถใช้เทคนิคทางคณิตศาสตร์ (เช่นการกด 9 คุณสามารถกด 3 ซ้ำและคูณ) เพื่อลดจำนวนโคเดลและบล็อกที่มีรูปร่างตลกเพื่อเติมเต็มช่องว่างที่มีอยู่

ฉันไม่แน่ใจเกี่ยวกับวิธีการนับคะแนนสำหรับรายการ Piet ฉันพบบางอย่างที่ดูเหมือนจะนับโคเดกทั้งหมดและอื่น ๆ ที่นับเฉพาะที่ใช้อย่างแข็งขันเท่านั้น ฉันแค่นับพวกเขาทั้งหมด การเพิกเฉยโคเดกสีขาว (แม้จะเป็นโปรแกรมที่ไม่เคยผ่านมา) ก็ดูเหมือนว่าจะไม่สนใจช่องว่างในภาษาโปรแกรมทั่วไป

โอ้และตอนนี้ฉันเพิ่ง (สองชั่วโมงหลังจากโพสต์) ตระหนักว่าฉันเสียเวลาเล็กน้อยในการทำงานกับเรื่องนี้ ฉันต้องการตัดแถวสุดท้ายและคอลัมน์สีขาวเกือบทั้งหมดดังนั้นฉันจึงสับสิ่งต่าง ๆ รอบ ๆ ... รวมถึงบล็อกควบคุมการไหลสีดำ แต่ขอบของภาพทำงานเหมือนกับสีดำ! หากฉันเพิ่งจำได้ว่าฉันไม่จำเป็นต้องใช้เวลาทำให้งุนงงกับความซับซ้อนของ DP และ CC ...

C # (Visual C # Interactive Compiler) , 366 332 329 319 ไบต์

int i;foreach(var g in"*ЀʂЄ࢈ҲપԤ␀␀␀؀ȀȀȀ؀␀␀సؘࠀƐഘؚ྾ߟ␀␀Ā␀␀ྀ␀␀రܘࠈഌΚ྾ߟ␀␀ă␀ྃ␀ȁăÃ1`ƀ1`ÃĂȃЃЁȂĀ`ÀƀȺ؀Ȃ␀ȏЀȗɛ'Ŀஇ7;ȅ?ȅ0ȍЀ␀␀΂␀ΨՕ΀Ŕ␀ŀЀ?܀àǀƀ`̀°٠Ƙѐʈш҈EB@Ѐޟɸ")Write(Convert.ToString(g,2).PadLeft(12-i++%2,'0'));

แทนที่อินสแตนซ์ทั้งหมดของ␀ด้วย\0เป็นทดสอบ

ลองออนไลน์!

C # (Visual C # Interactive คอมไพเลอร์) , 305 ไบต์, 210 ตัวอักษร

_=>"*ЀʂЄ࢈ҲપԤ␀␀␀؀ȀȀȀ؀␀␀సؘࠀƐഘؚ྾ߟ␀␀Ā␀␀ྀ␀␀రܘࠈഌΚ྾ߟ␀␀ă␀ྃ␀ȁăÃ1`ƀ1`ÃĂȃЃЁȂĀ`ÀƀȺ؀Ȃ␀ȏЀȗɛ'Ŀஇ7;ȅ?ȅ0ȍЀ␀␀΂␀ΨՕ΀Ŕ␀ŀЀ?܀àǀƀ`̀°٠Ƙѐʈш҈EB@Ѐޟɸ".Select((g,i)=>Convert.ToString(g,2).PadLeft(12-i%2,'0'))

เช่นเดียวกันกับข้างต้นแทนที่␀ด้วย\0เพื่อทดสอบ IEnumerable<string>ออกเป็น

ลองออนไลน์! (ความอนุเคราะห์จาก Jo King)

Perl 6 , 368 ไบต์

.say for :36('FJXOE0PDDNF5Y5EHGB8M9SWMXQOXIKIT9F6ZKWWDEACHCBGXL1N2H60CN0CJ4EMKF7D6MODSKYJVNR4SFTDR6NSM421LQ67B6MWF0G5BQATFOJJJBQ0UFQM64T0MWSQN41C4S5D1QR5KJM2L9UTYMMKUBBQWY45YCMRGO8ZRGTQH7LXMZBUASLCTKX30IH0AYKYEPHO8HFHX8GAY5WM38YOSUX0HABYSH2PPBLRDRZIN5ANAQ3V8PLOZ6EHC0UI95EVJVYD1820T6J14HGX85NWFQET2NWOMSNUT0JW4LHMY90X094TEE9KXJXSNN6YPERFQW').base(2).substr(1).comb(23)

ลองออนไลน์!

สตริงที่ยาวคือข้อความเป็นหมายเลขฐาน -36 เดียว (ที่มีส่วนนำหน้า 1 บิตเดียวเพื่อรักษาศูนย์นำหน้า) ซึ่งจะถูกแปลงกลับไปเป็นเลขฐานสองและพิมพ์ 23 บิตในแต่ละครั้ง

ภาษา Wolfram (Mathematica) , 383 ไบต์

StringPartition[Uncompress@"1:eJylVNsRwjAM44s92KBaBTZgAUZhZXqtHUuOWrgjfSRRHFlO4tyer/vjfb1clq0gHirZLRjby986hppcT5p+L3BmgJ3t4Ul4GsNyG++7YbaXLh0ZTPhXa4Sn+X/s9Qfk3Hx2cOaSIuNYaVu5laschvgzSqAjHeZBhilKgKBDEhw0upJRg+HOK4MyNC29sfbc3RV0VPDqeLiRTsG1ulExq1IitpunOa7asnYM9siDZ6eidUCkEzBOUbCkGIig4aTyUGBYWAX6W6aXIWGGI/HlhmsqzSU0QTZjkMVpaX5sBsm1OGKVg1qdjKP0EdyqZBRLhukn8DLBQav6kccgz8OKfgBzjj6Z",23]

ลองออนไลน์!

Node.js , 333 ไบต์

ส่งคืนสตริงไบนารี่ 1,679 ตัวอักษร

_=>Buffer(")SI)=.);1K?>>>2333A3,93/I3>3)g33)AEAAI)5JQZJTddda3)*3*33+3,e)*e3)//0/1+)1C/7Cgggg3395)9)A3IY)h*IH),39+)995*)AA-)59Y)*O3Z,)//*)91**)A*-)Y+1)I11+)I1)/)5)Y*0?)+)I)-0Y)1@;_*7<gaE/a)Q7[*9HM+IY16I33)a1)*^.><I+S3.38I)*hY)7)a)Y)A,9*A5Y/A:9=9K:1I-=9)19I)9*329)GH<").map(x=>s+=(x-51&&x-41).toString(2).padStart(x-51?6:12,0),s='')&&s

ลองออนไลน์! (พร้อมเอาต์พุตที่จัดรูปแบบ)

JavaScript (ES8), 413 ไบต์

ส่งคืนสตริงไบนารี่ 1,679 ตัวอักษร

_=>atob('AsKoAFBQEiIlwpVVUk!!ABwo!DQ!Gg!V!Aw7g!!GHGHCi!yGjHChsK+w7vDr8K!!Q!Q!!g!/DgAHDs!AGGHDhiAgCGhjwprDu8Ovwr4!ABAw4AQAcK!MKDAD8GB8OAD!QCAQQMBAYYEAMQwABwpgAMQwBwoYEBAgEEBgEQDAIwoAgIMKAwoDCgMKABgDDgDAEdcKACAgAEHwAIXTCtgTDpMO+w6HDgcK4AsKDwrIFB8OkCgwINg!!A4IAB1FVTDoArCo!U!/CgAB/w4ADwoDDoAwAYDQBYMOMBmEUFEIkSMKARR!woQgAQB!MKUAHnDtA'.split`!`.join`AA`).replace(/[\s\S]/g,c=>c.charCodeAt().toString(2).padStart(8,0))

ลองออนไลน์! (พร้อมเอาต์พุตที่จัดรูปแบบ)

Bubblegum, 275 236 bytes

00000000: e006 8e00 e45d 0018 6988 6507 a228 f86f  .....]..i.e..(.o
00000010: f042 c62f d4d7 b99e 38bc 56c4 52e8 2630  .B./....8.V.R.&0
00000020: 8aaa 7252 d47d 5ef4 c96a 511f 6842 423f  ..rR.}^..jQ.hBB?
00000030: 4532 ca9f 22d3 1633 e0c4 665a d5dc 4e68  E2.."..3..fZ..Nh
00000040: 7b09 76ae 3c7e f9d4 fa4a 05e0 4163 c580  {.v.<~...J..Ac..
00000050: c585 a383 2396 4ca9 1f48 a4b9 744e 37c8  ....#.L..H..tN7.
00000060: 68c5 af23 645d 59a7 542a e6d1 23b9 3aba  h..#d]Y.T*..#.:.
00000070: f0e6 2738 dfd5 b0a3 c6a3 60bf c5b6 5ae6  ..'8......`...Z.
00000080: 7893 30a8 ae04 edf9 298b b777 4d56 285b  x.0.....)..wMV([
00000090: cb74 07cc 7a7b a399 3dc7 c6e7 b693 e715  .t..z{..=.......
000000a0: d908 876e 001f 7408 3c6a 5fcd 37cb 02c4  ...n..t.<j_.7...
000000b0: 93de 33c2 a11e 5bac cd12 d99a fac3 e0fa  ..3...[.........
000000c0: 5268 94f7 d640 0f73 cede f79d 821f 39d1  Rh...@.s......9.
000000d0: dc49 ff06 6962 6c31 dc29 a077 01c3 7690  .I..ibl1.).w..v.
000000e0: 85ef bbec 31d7 5c7f f9fc 8c00            ....1.\.....

ลองออนไลน์!

bash + GNU tools, 351 ไบต์

base64 -d<<<H4sIAPnNrVwCA6WUCRLDIAwDv8T+/3NNG4wvkTBTcisGSyA8xrcxj9Ds02F+Z7yuf3hnPyz0vYEGz+FG3IKBs+x3oL2PSh0TM/PnaGamft9nPUCew3uCp5RBWdRKGz+qNJn8qRKkkNaTBgeVIFXWOdi8VCaIeUnsfHo6TXpaFa3H5olf6J5MuIHLoEi0uKcRFCvEXG4xseglKzZg7kpYJSLMA3M7wXKR+/L2WiK0kvg+TDASLp6Co1KEVIlVmFzhCktRhBBDdSZYU1xKHrmDUllcWpNR/YNW2QNcHtF0rSySb0MXk/SDUgEwG5gfLvQDxuEdDo8GAAA=|gunzip

TIO

MathGolf , 223 220 ไบต์

'06*"x·<×J× Ç×►B×ê\"@$↕!◙è0♥f░×→0×♠p└☺α?×└•×◙×P♣p¬è:×►∟××××←♦♠♣≥â☻┘A☺▄αp⌂r☻[║►×>◘×♦♦└:☻↑`×♥@@@@►►@♦↑ ☻♀◘☻♦☻☻├×å↑×╠×Ç!♠ 0♀◘↑◘☻♦◘×♠α♥â▼ÇA×└×◘` ×××▀≈}═14♦►►π0♀××°×α•×►×××☻×◘××└≈}_├↑♪↓×─0♫♥×××|××*××♪×Ç♠×└×××× ⌐¬╩↕◄○((×T☺"$à+

ลองออนไลน์!

คำอธิบาย

'0                push single character "0"
  6*              repeat 6 times
    "..."         push the magic string
         $        convert to ordinal
          à       convert to binary string
           +      pop a, b : push(a+b) (add the 6 zeroes)
                  below is the footer
            L/    divide into groups of 23 characters
              n   join array with newlines into string

Perl 5 , 460 ไบต์

printf"%023b",oct"0x$_"for qw/15400 141404 4444b2 555524 0 600 1a00 1a00 2a00 3e00 0 61c618 400190 68c61a 7df7df 0 80002 0 40001 7c001f 0 618718 404010 68639a 7df7df 0 81802 1800 41801 7c181f 1800 100804 81808 61810 18860 1980 18860 61810 81008 101804 201804 200808 101010 80060 60180 11d600 101000 107c00 10ba5b 1393f 5c3837 283b 10283f 102830 106c00 0 1c1000 1d4555 1c0154 140 7c00 1ff00 701c0 c0060 1a00b0 330198 228288 224488 22880 21080 20080 9400 3cfa78/

ลองออนไลน์!

Python 2 , 336 ไบต์

print bin(int('gVQAKCgJERLKqqkgAAAAAMAABoAADQAAKgAAfAAAAAMOMMQAGQ0Yw19998AAAAgAAgAAABAAB+AA+AAADDDjEBAENDHNffffAAAAIGAIAMAAQYAfgwPgBgAIBAIIGAgMMCAGIYAAzAAYhgDDAgIEAggMAiAYBEAQEEBAQEADAGAYAjrABAQACD4AELpbAnJ/cODcAUHZAoPyBQYEGwAAAAAcEAA6iqpwBVAACgAHwAA/4AHAcAYAMBoAsGYDMIoKIRIkQCKIAEIQAIAgAEoAPPp4'.decode('base64').encode('hex'),16))[3:]

ลองออนไลน์!

พิมพ์สตริงไบต์

Java (OpenJDK 8) , 364 ไบต์

n->new java.math.BigInteger("in95mzupnpa2r0khpoepyql6ioqyn413avucdtfay6indx4wh9dehe3sn18klobtf4z9g9q17umqmwpegr2khb5eqinn7azl4jpfp2a8eui0xfrx5qwrou6gd65jh4ge3ls14k5lu7qrvmg6942ms29u5rb8fa6yrdhfoh5zoi9bdi7uh5ig0u0ff9kounth8sh357x7qox4m3oqviqsbrvakonbka4ahp21bgzi5v1akzzuqoncszhpabbru9q1uo2g11zr73iuyiqr5ikr69zn7cdv7e1lhd6ese9",36).toString(3).replaceAll("2","0000")

ลองออนไลน์!

คำอธิบาย: ก่อนอื่นn->new java.math.BigInteger(str,36).toString(2)เพียงแปลงเลขฐาน 36 เป็นไบนารี่ แต่จำเป็นต้องมีตัวอักษรพิเศษเก้าตัวเพื่อนำศูนย์ จากนั้นฉันก็มีความคิดที่จะเข้ารหัสเลขศูนย์แบบยาวเป็นสองเท่า ความยาวของสี่ศูนย์ดูเหมือนจะลดความยาวของฐานที่ 36 ดังนั้นn->new java.math.BigInteger(str,36).toString(3).replaceAll("2","0000")

ดูการอภิปรายภายใต้คำตอบนี้สำหรับการแก้ไขข้อบกพร่องเป็นศูนย์ชั้นนำโดย @KevinCruijssen

[Python 2] , 345 ไบต์

s=''
for c in")pG/K(K*j$h%kk$ppjGE&I6S6S5[5eCv~vw0x&z$wgqcde$e=G4G?G4eG0e:vv~w*G,gn$wy$uuuuG=G)I,G.I2G(I-eG(I)e-I0G+G+G(G)I*G*vI)G-w'I2y0w'I,vI)G*G)G+G(G*I+W+I+W,G*G(G*G*G*G/I,I+I,iq.G*G1G(e/g$c%sG)m%md~$M(},K(cO)K(eO)K(I)G(aE$M(G1c$hpoI,pG3K1e3eU/M*M,I.I*S,Q(y*y'hG(ng&j$j$G+hW/g'G/G,G1k.d$e$mN":c=ord(c)-35;s+=[bin(c-35)[2:],'0'*c][c<35]
print s

ฉันเข้ารหัสความยาวของสตริง 0 เป็นไบต์เริ่มต้นที่ chr (31) จากนั้นฉันเข้ารหัส 10101 ที่เหลือเป็นเลขฐานสองเริ่มต้นที่ chr (70) จนถึง chr (126) สตริงไบนารีที่ไม่พอดีถูกแบ่งออกเป็นชิ้นเล็ก ๆ

แก้ไข: ลดลงเป็น 326 ไบต์ ขอบคุณโจคิง

แก้ไข: แก้ไขข้อบกพร่องในโปรแกรมสร้างโค้ด

แก้ไข: แก้ไขครั้งสุดท้าย

Zsh , 577 ไบต์

ลองออนไลน์ !!

S=fxxxxibxxdxxfyzzzyx1yxxxxxxxxyyywl2ij1xxhj1xxhixxxhi5iw2d3c2d2cxl2bxc2az2c2d2ax4x4x4x5wcxpxwdxp15m5w2d2d3c2cxfxhxc1xxc2c2y1xx4x4x4x5wc1f2ixj2kd1e2j15e2f5j2kb1h1hyc1f2gzd2d2fzaf2c1d2ej2b2gf2c1d2ed2d2f1dc1f1hzb1g2hya1h2hya1i1gzb1g1g1dc1l2ed2h2gbz2xx2ibzd1lbzb5jb1dx2xyx1x2fy2yy6x3d3e2a3ixxd2x2b1fxxd6b1fxxd2db1e2a2jwb3e1lb2xxzxxxxx1b3ixxxynxxeh5jf9hd3g3fc2k2eb2a1ix2da2b2g2b2cazxxdxzzazyzyzzezxz1ge1d1d1ge1i1ggyxxia3y4xy3z
for X in ${(s::)S};{case $X in
[a-w])V=$[##$X-96];printf 0%.s {1..$V};;[1-9])V=$[##$X-48];printf 1%.s {1..$V};;[x-z])V=$[##$X-119];printf $[10**$V];;esac}

ตรรกะการเข้ารหัสที่กำหนดเองที่ใช้ สตริงSคือ 421 อักขระซึ่งอาจถูกบีบอัดได้อีกเล็กน้อย จดหมายa-wแทนซ้ำ0s ตัวเลข1-9แสดงซ้ำ1s ตัวอักษรx y zแสดง10 100 1000ตามลำดับ

บางทีฉันควรได้พยายามเข้ารหัสไบต์คู่หรือAscii85

Bash , 702 697 ไบต์

xxd -r -p<<X|xz -dc
fd377a585a000004e6d6b4460200210116000000742fe5a3e006d7010c5d
0018698865079cf6752c9e9a501a87a798b4844f9fcfdaaf87733b9d8239
48c816d860a938767f6cb81299f3e8a638effe3068c0e096a8949c81d706
7dff3ec44e5df185b3a48e5b5857724386e8c37cfbd5c856b12614ee78ec
c41df4db3aea71fd3a8fa474905609f78eb3fd66e246557965e4ab6dfd67
efbd9202f542ded9cf98a6401ee2d23afb2f544bd2442c6f428fd612397c
f2c6ec50847ddccc5832185e487712e5a7676b97058d7e485d5a3536166a
44ab3c689c93073cdda73b5306a83c4cd268e79db238bfa2d08ac912a578
75020bc7828342d5a62ce367aff7fd89290336128d119fa4272da2b2a79f
5973c71935af054f2d91c1bd3ea4847a3502d6dc8c975114dacf8a4de600
622d80986dbb0cd00001a802d80d00001b16e2a7b1c467fb020000000004
595a
X

ลองออนไลน์!

Ruby , 362 ไบต์

puts"5r0afnfm8wyke8tfy1pwt7xnuaxyh3wodfp7bhsdufyw0xbdp1pumrz2xir652tuc0ss9oec8yad9vefivd66j126wybhefgk2lv38uqqiur11u26q275jk3h2ucithd59awpaenqpqi1pszh52179zw0ddqtbrvo6kyrrgv8c34pqrp83j8estjp63v29t4hqp9yg2hhzjlq1e9zqx6gh20n9lsttimz3nbq060ritrphxaru7quwmv3oujhd9xjddpbacq4bnpf270znhgto59yn0980itylf95pxw9x7rvkvi7mfql1sx46puo8rg4dq0".to_i(36).to_s(2).rjust(1679,?0)

จำนวนเต็มเขียนในฐาน 36. มีก็เป็นวิธีที่มีประสิทธิภาพมากขึ้นในการบีบอัดจำนวนเต็มเช่นด้วยหรือzlibbase64

ลองออนไลน์!

[C ++ (VC ++) (แต่ทดสอบด้วย gcc เช่นกัน)], 585 ไบต์

#define l(x,y)for(int x=0;x<y;x++)
void f(){const char*a="02A800505012Y595Y240U180YD0Y1A0Y540YF80V61C618800321A3186BEFBEF80X10Y40W20YFC001F0X1861C620200868639AFBEFBE0W40C0100180Z83003F0607C00C001008041030101860400C430Z19800310C018604040804101804403008802020808080800600C030047580080800107C002174B604E4FEE1C1B80283B20507E40A0C08360U3820Z751554E00AA0Z140ZF80Z7FC00380E00C0060340160CC06611414422448804510Z8420010040Z940079F4F0";int x=1679;l(i,365){int d=a[i],c=0;d-=(d>47&d<58)?48:((d>64&d<71)?55:0);if(d>70&d<91)c=91-d,d=a[i-1];for(c;c>=0;c--)l(j,4){if(x--)cout<<(int)((d&(8>>j))>0);}}}

ลองออนไลน์!

เวอร์ชั่น ungolfed (ขาดการหยุดพักหลังจากองค์ประกอบ 1679 แม้ว่าและไปจนถึง 1680):

#include <stdio.h>
#include <iostream>
using namespace std;
int main()
{
    const char arecibo[]="02A800505012Y595Y240U180YD0Y1A0Y540YF80V61C618800321A3186BEFBEF80X10Y40W20YFC001F0X1861C620200868639AFBEFBE0W40C0100180Z83003F0607C00C001008041030101860400C430Z19800310C018604040804101804403008802020808080800600C030047580080800107C002174B604E4FEE1C1B80283B20507E40A0C08360U3820Z751554E00AA0Z140ZF80Z7FC00380E00C0060340160CC06611414422448804510Z8420010040Z940079F4F0";
    int i = 0,j;
    while (i<sizeof(arecibo)-1)
    {   
        char digit = arecibo[i];
        int count=0;
        if (digit >= '0' & digit <= '9')
        {
            digit -= '0';
        }
        else if (digit>='A'& digit<='F')
        {
            digit -=  'A'-10;
        }
        else if (digit > 'F'&digit<='Z')
        {
            //digit does not contain any valid hex digit in this case
            count = 'Z' - digit+1; //digit = Z means repeat 2 more times...
            digit = arecibo[i - 1];
        }
        for (count; count >= 0; count--)
        {
            for (j = 0; j<4; j++)
            {
                cout << (int)(((digit)&(8 >> j))>0);
            }
        }
        i++;
    }
    return 0;
}

ในฐานะที่เป็นคำอธิบาย: ฉันตัดแบ่ง 73 ตัวอย่างของเอาต์พุตตัวอย่างที่กำหนดให้กับหนึ่งบรรทัดยาว ฉันเข้ารหัสพวกเขาในเลขฐานสิบหกที่คำสั่งบิตเป็น msbfirst (ใช้โปรแกรมนี้https://github.com/Marc-Bender/longBinaryStreamToHex/releases/download/addedErrorCode-4/longBinaryStreamToHex.exe ) ฉันสั้นลงประมาณ 70 เลขฐานสิบหกโดยใช้ตัวอักษร 'G' - 'Z' เป็นสัญญาณที่จะทำซ้ำตัวเลขล่าสุดเป็นระยะเวลาหนึ่ง (Z = 2 ครั้ง, Y = 3 ครั้งมากกว่า ... ) ส่วนที่เหลือควรอธิบายด้วยตนเองสำหรับนักกอล์ฟ . เหยียดหยามลูป, ใช้,โอเปอเรเตอร์และสิ่งที่ไม่ชอบในทางที่ผิด

รูปแบบเอาท์พุทเป็นสตรีมอย่างต่อเนื่องของ 1679 0/1-values

Perl 6 , 348 ไบต์

{"000000"~:36<5r0afnfm8wyke8tfy1pwt7xnuaxyh3wodfp7bhsdufyw0xbdp1pumrz2xir652tuc0ss9oec8yad9vefivd66j126wybhefgk2lv38uqqiur11u26q275jk3h2ucithd59awpaenqpqi1pszh52179zw0ddqtbrvo6kyrrgv8c34pqrp83j8estjp63v29t4hqp9yg2hhzjlq1e9zqx6gh20n9lsttimz3nbq060ritrphxaru7quwmv3oujhd9xjddpbacq4bnpf270znhgto59yn0980itylf95pxw9x7rvkvi7mfql1sx46puo8rg4dq0>.base(2)}

ขึ้นอยู่กับเบนจามิน Urquhart ของการแก้ปัญหา Java

ใช้กระแสข้อมูลตรงของ 0 และ 1 อักขระ ลิงค์ด้านล่างมีรหัสบางอย่างเพื่อ prettify เอาท์พุท

ลองออนไลน์!

Tcl , 366 ไบต์

binary scan [binary decode base64 QBUACgpIRKSpqkoCAAAAgAEAsAAAWAAAKgAAHwAAAGA4hhEATFiMYX3f9wEAAAgAIAAAAAQA8AOADwAAGIZjBAQQFsZZ3/d9AAAAAgMIgAEAwQD8YOADMAAIECAIDAgYBgIwwgCAGQCMMIBhICAQIAgYIAIMEAEEBAEBAQFgAAMMIK4BEBAACD4AhC5tICd/h4MdQMFNoOAnUDAQbAAAAAAcBACuqCoHUAUAKADwAQD+A8ABBzAABiyABjNghigoQiQSAaIIACEEgAACACkAni8P] b* z
puts [join [regexp -all -inline .{23} $z] \n]

ลองออนไลน์!

C ++ (ด้วยไลบรารีความแม่นยำหลาย Gnu), 359 ไบต์

สิ่งนี้จะส่งออกสตริงเป็นหนึ่งบรรทัด มันใช้ '1' สำหรับ 0 และ '0' สำหรับ 1: /

มันอ่านสตริงฝังตัวเป็นฐาน 62 และพิมพ์มันเป็นฐาน 2

ใช้g++ -g arecibo.cpp -lgmp -lgmpxxในการรวบรวมและลิงค์

#include<gmpxx.h>
main(){mpz_out_str(stdout,2,class_mpz("vuXXKBYAu1hPsJPbFSf49akyFd0bjJbMIV3upYndU8kYFPsXcpRUK6c9qnzLfORxkxGL7ZfoSwgSxFbCrydjHL603QcxexopAzoYAcAyEiENJJU2vQA2zM8NDbeY6nHgL8rfFoPJaclwxx6TeKeOEknEQHzp7C4la3o8xijBQLOVweFZ1CI9dXy2VQhgnuwF5FeW5mQ909pRMxhn6G3RJ1QEtkS7oGMZYHM03fh4fj391IoYLGVv3iUVuTrV2ghz9CUa9hfGYrdhGoVE2w1inYalYl",62).get_mpz_t());}

Perl 6 , 276 ไบต์

:122[q{3tD!gLF['u#.K>'uCG8cvJZ[on1Z<D!	`Fhqq-_V'"qQn+n0h\:b,vXjo&1TMFaW;wvX;eUS
(ueelNSu,y93\kjGI&?UU/38 :ndi4Y5cyC+ME\g7LWaS;QLjtD^L+aVd(XW%gy\8'Eqk-+f72S5J?(r5!m^5px T[Z'3&jd0lZ'/x%#(}.ords].base(2)~~S/.//.say

ลองออนไลน์!

เอาต์พุตเป็นชุดของ 1679 0s และ 1s คุณสามารถมีได้บนเส้นที่แตกต่างกันโดยการเพิ่มก่อน.comb(23)>>say

คำอธิบาย:

:122["...".ords]                     # Convert the string from base 122
                .base(2)             # To base 2
                        ~~S/.//      # Remove the leading 1
                               .say  # And print

ฉันสามารถบันทึกไบต์โดยใช้ผลลัพธ์เป็นจำนวนเต็ม 1679 บิตแทนหรือย้อนกลับการเป็นตัวแทนบิต

C ++ (gcc) , 748 ไบต์

#define l(X,Y)if(z[i]==#X[0])z.replace(i,1,#Y);
void f(){std::string z = {"ab1eeedala1ebeeheal1mmma1fa1g1eeeeeeea1a1alddhgdbcdgdacedgdacedgdeeedgdndgddhgqiafbcag1dbfa1blceafafbcegcinnnlddhgmddegddhgb1ddelcidbnlddhgqqiafag1hedeblcebcaf1acegcinnnlddhgmhcdegdacdagb1bfda1lcibfhcildacdaga1d1d1almhcheagbqch1blhcmbqgdacachghcmbqgbqch1blmh1d1aga1hfd1aledcd1aledeheaga1heheblmdbqgbcdchga1af1efdga1hedbla1bndala1b1f1ea1fflh1aia1acccl1f1bibff1ldeebf1fla1h1ebfccla1h1ebfbla1bffdalddhgaibedblaieemeeeeelaideeeealdh1ehldcidalhcccidlbihf1hlafdafbgacedefblfachfacagemebeemagema1ma1magbememhgbeb1b1hgbedehghea1edalfcacieacca0"};for(int i=0;i<1751;i++){l(q,cb)l(n,fi)l(m,ae)l(i,c1)l(h,ba)l(g,0l)l(f,0c)l(e,01)l(d,bb)l(c,11)l(b,aa)l(a,00)l(l,\n)printf("%c",z[i]);}}

ลองออนไลน์!

โดยการแทนที่ซับสตริงที่ใช้มากที่สุดด้วยอักขระใหม่จนกว่าจะไม่คุ้มค่าอีกต่อไป

Python 3 , 331 ไบต์

exit(''.join(bin(i)[3:]for i in b'`UP@JB`IDQKJjjd`@@@@@L@@Ah@@CP@@J`@@_@@@@@LNLLP@FPtXpu}}}|@@@@`@@`@@@A@@A~@@~@@@CCCcDA@DMCGM____@@@@HF@H@L@@PX@_`pO`A`@HA@HHF@`LLB@FHX@@s@@Xa`CC@`HD@``L@b@XAD@PDDA@PD@C@F@X@ck@A@P@BCx@DKi[@gI\x7f\\NC\\@TGY@hOrAPXDFp@@@@@\\D@@zbjipAU@@B`@Gp@@\x7fx@G@\\@X@LAh@lFXCLHhJHQHdPBJH@DHP@H@`@Dh@OOix')[1:])

ลองออนไลน์!